For k = 1 To 6 For Each ctrl In Me.Controls If TypeOf ctrl Is TextBox Then If DirectCast(ctrl, TextBox).Name = "TextBox" & k.ToString Then DirectCast(ctrl, TextBox).Select(12, 2) Exit For End If End If Next Next
For i = 0 To Me.Controls.Count - 1 If Me.Controls(i).Name = "TextBox" & i.ToString Then DirectCast(Me.Controls(i), TextBox).Select(12, 2) End If Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionsont toutes dans la Form1.vb
Me.controls