état du bouton de réglage activé

Question

J'ai un simple formulaire vb 2010 que je veux être en mesure de définir le activé indiqué de tous les boutons. J'ai effectué des fonctions similaires pour les cases à cocher et les commandes numériquesUpDown qui fonctionnent selon les besoins, mais pour les boutons, la fonction ne semble pas fonctionner correctement.

Private Sub setButtonsState(ByVal state As Boolean) 
    Dim cControl As Control 
    For Each cControl In Me.Controls 
     If (TypeOf cControl Is Button) Then 
      cControl.Enabled = state 
     End If 
    Next cControl 
End Sub 

Ce qui est appelé comme ceci: setButtonsState(True) Cela ne marche pas semblent avoir un effet quelconque avec des boutons, si buttonName.Enabled = True fonctionne bien ... Im à peu près ce que vous appelez un noob à VB, donc tout le monde aide moi? Ta

Answer 1

À moins que tous vos boutons appartiennent directement au formulaire ci est exécuté en , alors ils ne seront pas accessibles parce que cela ne descend pas à travers l'arbre de contrôle pour les atteindre. Une approche légèrement différente pourrait être une méthode plus récursive:

Private Sub setButtonsState(ByVal controls as System.Windows.Forms.Control.ControlCollection, ByVal state as Boolean) 

    For Each ctrl as Control in controls 
     If (ctrl.HasChildren) Then setButtonsState(ctrl.Controls, state) 

     If (TypeOf ctrl Is Button) Then ctrl.Enabled = state 
    Next 

End Sub 

Answer 2

Cela fonctionne sur ma forme. Etes-vous sûr que vous définissez l'état sur une valeur réelle? vous voulez souvent faire varier une variable appelée "état" dans le sous-programme juste pour le tester. Définissez l'état sur true et désactivez tous vos boutons.

Essayez de récupérer le nombre de contrôles renvoyés. Pour vous assurer que vous faites correctement référence aux contrôles.

Démontrant booléen jeu True pour le test:

*Dim state As Boolean = True* 

    Dim cControl As Control 
    For Each cControl In Me.Controls 
     If (TypeOf cControl Is Button) Then 
      cControl.Enabled = state 
     End If 
    Next cControl 

Vérifiez le nombre de contrôles:

For Each cControl In (Your Form Name Ex. FrmMain1).Controls 
        If (TypeOf cControl Is Button) Then 
         cControl.Enabled = state 
         *debug.writeline(cControl.Name)* 
        End If 
       Next cControl 

Answer 3

Je vous suggère d'éviter la récursivité, si possible. L'approche ci-dessous a une meilleure capacité de débogage.

Tout d'abord, Linearise ControlCollection tree dans le tableau de contrôle - méthode d'extension générique, pas de récursivité, LINQ ou GetNextControl.

Ensuite, vous pouvez écrire comme ceci:

Private Sub setButtonsState(ByVal controls As ControlCollection, ByVal state As Boolean) 
    For Each ctrl As Control In controls.GetAllControlsOfType(Of Button)() 
    ctrl.Enabled = state 
    Next 
End Sub