VBA: à l'Aide de WithEvents sur les UserForms

J'ai un Mot à l'objet userform avec+ de 60 commandes de différents types. Je voudrais évaluer le formulaire chaque fois qu'un control_change événement est déclenché et changer l'état activé de la forme du bouton "soumettre". Cependant, je ne veux vraiment pas à écrire et à maintenir 60 sur le changement des gestionnaires d'événements.

InformationsquelleAutor user51498 | 2009-07-05
  1. 25

    Vous pouvez créer un événement-l'évier de la classe qui va contenir l'événement le code de gestion pour toutes vos commandes d'un type particulier.

    Par exemple, créer une classe appelée TextBoxEventHandler comme suit:

    Private WithEvents m_oTextBox as TextBox

Public Property Set TextBox(ByVal oTextBox as TextBox)
    Set m_oTextBox = oTextBox
End Property

Private Sub m_oTextBox_Change()
    ' Do something
End Sub

    Maintenant, vous devez créer & crochet en place une instance de cette classe pour chaque contrôle du type approprié sur votre formulaire:

    Private m_oCollectionOfEventHandlers As Collection

Private Sub UserForm_Initialise()

    Set m_oCollectionOfEventHandlers = New Collection

    Dim oControl As Control
    For Each oControl In Me.Controls

        If TypeName(oControl) = "TextBox" Then

            Dim oEventHandler As TextBoxEventHandler
            Set oEventHandler = New TextBoxEventHandler

            Set oEventHandler.TextBox = oControl

            m_oCollectionOfEventHandlers.Add oEventHandler

        End If

    Next oControl

End Sub

    Remarque que la raison pour laquelle vous avez besoin pour ajouter le gestionnaire d'événement instances d'une collection, c'est tout simplement pour s'assurer qu'ils restent bien référencé et donc de ne pas se jeter par le garbage collector avant que vous avez terminé avec eux.

    Clairement cette technique peut être étendue à traiter avec d'autres types de contrôle. Vous pourriez avoir soit distinct du gestionnaire d'événement classes pour chaque type, ou vous pouvez utiliser une seule classe qui a un membre de la variable (et des biens associés & event handler) pour chacun des types de contrôle que vous devez gérer.

    • Le Code fonctionne très bien. Cependant, est-il possible de le faire sur le même objet userform sans la création d'une catégorie distincte?
    • Non, parce que vous avez besoin d'un exemple de la classe pour chaque contrôle. Sinon, le gestionnaire d'événement à ne pas savoir qui contrôle l'événement. Si seulement les gestionnaires d'événements ont eu un "expéditeur" paramètre tel que C#, les gestionnaires d'événements...
    • Je sais que c'est il y a quelques temps (bon, il y a longtemps :)) mais je suis l'ajout dynamique de zones de liste modifiables dans ma feuille. Je me demandais si je peux appliquer la même approche à une feuille de calcul au lieu d'un formulaire? Voici ma question
    • oui, il devrait fonctionner exactement de la même manière. Juste mettre le code "dans" la Feuille de calcul module (nommée Feuil1 etc. par défaut), et utiliser le Sheet_xxx événement. Ce sera OK si vous avez un petit, fixe le nombre de feuilles à traiter; il n'est pas vraiment dans une situation où vous avez à traiter avec des feuilles de calcul créés par l'utilisateur (que vous auriez probablement besoin d'utiliser un add-in).
    • Le code fonctionne très bien pour les zones de texte. Lorsque vous essayez de le faire fonctionner pour les cases à cocher, CheckBox doit être spécifié en tant que MSForms.CheckBox. Pensé que cette information pourrait être utile pour quelqu'un.
    InformationsquelleAutor Gary McGill
  2. 2

    Dans ce cas, vous avez quelques options, à cause des gestionnaires d'événement ne peut pas être partagée en VBA/VB6

    Option 1: Utilisation d'une centrale de la manipulation d'une fonction qui est appelée à partir de chaque gestionnaire d'événement.

    Sub Control1_ChangeEvent()
  CommonChangeEvent // Just call the common handler, parameters as needed
End Sub

Sub Control2_ChangeEvent()
  CommonChangeEvent
End Sub
...
Sub CommonChangeEvent(/* Add necessary parameters */)
  //Do the heavy lifting here
End Sub

    Option 2: Organiser vos contrôles dans des tableaux de contrôle.

    Sub TextBox_ChangeEvent(Index As Integer)
  CommonChangeEvent
End Sub

Sub OtherControlType_ChangeEvent(Index As Integer)
  CommonChangeEvent
End Sub

    Combinant à la fois les options de votre total de gestionnaire d'événement comte va se réduire considérablement et les autres gestionnaires sont juste sans cervelle talons pour le seul vrai gestionnaire d'événement.

    InformationsquelleAutor Daniel Rikowski