frameler de for next döngüsü kullanmak

[nihatkocaoglan]

1 den 50 ye kadar kullandığım frame var ve bunların hepsinin zaman zaman aynı özellikleri taşıması gerekiyor ama beceremedim yardım edebilecek olan varsa şimdiden teşekkürler

örn:
frame1.left=100
frame2.left=100
frame3.left=100
.
.
.


bunun yerine :
for x = 1 to 50
frame(x).left=100
next

gibi birşey olabilir mi? ( denedim, bu olmuyo )

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz?


Private Sub CommandButton1_Click()
For Each Kontrol In Me.Controls
If TypeName(Kontrol) = "Frame" Then
Kontrol.Left = 100
End If
Next Kontrol
End Sub

 

[nihatkocaoglan]

sayın ripek,

teşekkürler ama bir hususu belirtmedim sanırım, formumda 100 tane frame varsa ben bunların 6 ve 50 aralığına tek işlem yaptırmak istiyorum sizin gönderdiğiniz kodlar çok güzel ama frame lerin tamamı için aynı işlemi yapıyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton1_Click()
For X = 6 To 50
Controls("Frame" & X).Left = 100
Next
End Sub

 

[nihatkocaoglan]

Sayın COST_CONTROL,
malesef olmadı

 

[Korhan Ayhan]

Selamlar,

Test ederek göndermiştim ama madem olmadı örnek bir dosya ekleyin üzerinden gidelim.

 

[nihatkocaoglan]

ÖZÜR DİLERİM

sayın COST_CONTROL,
denediğinizi söylemeseniz hala uğraşıyor olacaktım, başka bir sebepten hata vermiş ama yinede bu satırda hata vermişti anlayamadım. Şu an çok güzel çalışıyor ellerinize sağlık, teşekkürler