textbox-image nesne ilişkisi

[xxihsidxx]

iyi akşamlar,herkese kolay gelsin.
10 adet image nesnesi var.textboxa kaç yazılırsa o kadar image nesnesinin gözükmesini nasıl saglarım.textboxta 3 var ise ilk üç tane ,5 varsa 5 tane image nesnesinin gözükmesi lazım.

 

[alpi]

Aşağıdaki kodlar ile yapabilirsiniz.
Formunuza bir Frame ekleyin ve İmage nesnelerini bu frame içerisine koyun

Private Sub TextBox1_Change()
    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
End Sub

 

[xxihsidxx]

çok teşekkür ederim sayın alpi.