Framedeki image nesnesi

[xxihsidxx]

iyi akşamlar
framenin üzerinde image nesneleri var. textbox1'e yazılan sayı kadar image nesnesi gözüküyor.textbox2'ye yazılan sayı kadar image nesnesini de gizliyor.benim yapmak istediğim textbox2'ye yazılan sayı kadar nesnenin framenin dışında göstermesi.".controls(i,-1).top=300" şeklinde değiştirdim framenin dışına çıkmıyor.dosyam ektedir.

Private Sub TextBox1_Change()
On Error GoTo hata
Dim i As Byte
With Me.Frame1
For i = 1 To TextBox1.Text
.Controls(i - 1).Visible = True
Next
For i = TextBox1.Text + 1 To 10
.Controls(i - 1).Visible = False
Next
End With
hata: Cancel = True
End Sub
 
Private Sub TextBox2_Change()
On Error GoTo hata
Dim i As Byte
With Me.Frame1
For i = 1 To TextBox2.Text
.Controls(i - 1).top=300
Next
For i = TextBox2.Text + 1 To TextBox1
.Controls(i - 1).Visible = True
Next
End With
hata: Cancel = True
 
End Sub

 

[Levent Menteşoğlu]

Frame dışında derken istediğiniz nedir biraz daha açarmısınız. Eğer frame dışında textboxları göstermek istiyorsanız, bunlarıda userform üzerine yerleştirmelisiniz. Aslında bu istediğiniz userform üzerine nesne yerleştirmedende yapılabilir.

 

[xxihsidxx]

merhaba levent bey
framede bulunan image nesnelerinden bazıları (textbox2 ye yazılan sayı kadarını .controls(i,-1).visible=false olarak gizliyorum .ama benim istediğim bu image nesnelerini framenin dışında diyelim top=300 dediğimizde userformun üzerinde göstersin..controls(i,-1).top=300 dediğimde image nesnelerini top 300 e alıyor ama framenin dışında olmadığı için image nesneleri gözükmüyor ben framenin dışında gözükmelerini istiyorum.

 

[Levent Menteşoğlu]

Frame içindeki nesneleri frame dışında gösteremezsiniz. Bence frame yüksekliğinide orantılı olarak kod ile ayarlayın ve frame çizgilerini yine kod ile gizleyin.

 

[xxihsidxx]

özverili uğraşlarınız için ne kadar teşekkür etsek azdır.sağolun.