Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub HideButtons(ByVal serieno As Integer, ByVal flaghide As Boolean) Dim i As Integer Dim iend As Integer Dim numero As Integer iend = (serieno - 1) * 50 + 50 For Each cont As Control In Me.Controls If TypeOf (cont) Is Button Then Integer.TryParse(DirectCast(cont, Button).Name.Substring(DirectCast(cont, Button).Name.IndexOf("n") + 1), numero) If numero <= iend Then DirectCast(cont, Button).Visible = flaghide End If End If Next pour utiliser HideButtons(1, False) ou HideButtons(2, true)
Private Sub HideButtons(ByVal serieno As Integer, ByVal flaghide As Boolean) Dim iend As Integer Dim numero As Integer iend = (serieno - 1) * 50 + 50 For Each cont As Control In Me.Controls If TypeOf (cont) Is Button Then Integer.TryParse(DirectCast(cont, Button).Name.Substring(DirectCast(cont, Button).Name.IndexOf("n") + 1), numero) If numero <= iend Then DirectCast(cont, Button).Visible = flaghide End If End If Next End Sub