W Visual Basic 6 mechanizm zdarzeń oparty jest na słowie kluczowym WithEvents. Dzięki temu zmienna może przyjmować odniesienie do obiektu i automatycznie przesyłać zdarzenia tego obiektu do formularza lub klasy, gdzie definiowany jest obsługujący zdarzenia. Nazwa procedury-obsługującej musi podążać za szczególnym wzorem: <Nazwa obiektu>_<Nazwa zdarzenia>. Aby ustawić obsługującego zdarzenia, wystarczy zadeklarować zmienną z WithEvents i zaimplementować w kodzie potrzebne procedury.
Przykład deklaracji i użycia WithEvents w VB6:
Private WithEvents myButton As CommandButton Private Sub Form_Load() Set myButton = Me.Controls.Add("VB.CommandButton", "btn1") myButton.Caption = "Naciśnij mnie!" End Sub Private Sub myButton_Click() MsgBox "Przycisk został naciśnięty!" End Sub
Szczególną uwagę w VB6 wymaga kolejność inicjalizacji oraz ręczne usunięcie obiektu (poprzez Set myButton = Nothing) w celu prawidłowego zwolnienia zasobów i zapobiegania zawieszaniu się obsługujących zdarzenia.
Pytanie: "Co się stanie, gdy spróbujesz przetworzyć zdarzenie obiektu, jeśli zmienna WithEvents = Nothing, i jak wpłynie to na działanie programu?"
Odpowiedź: Jeśli zmienna WithEvents nie wskazuje na obiekt (czyli jest równa Nothing), zdarzenie tego obiektu nie może zostać wygenerowane i przekazane do obsługującego zdarzenia. Nie dojdzie do wywołania obsługującego zdarzenia: nie wystąpi błąd, ale oczekiwana logika programu nie zostanie wykonana, co może prowadzić do „cichych” błędów i trudności w debugowaniu.
Przykład:
Private WithEvents myObj As SomeClass ' ... Set myObj = Nothing ' Po tym zdarzenie myObj_Event nie będzie wywoływane
Historia
W dużym systemie zarządzania zamówieniami programista dynamicznie tworzył obiekty formularzy, subskrybując zdarzenia przez WithEvents. Po programowym zniszczeniu podrzędnych formularzy zapomniano o zresetowaniu zmiennych — zdarzenia nadal „wisiały” w pamięci, wywołując nieoczekiwane efekty uboczne i prowadząc do wycieków pamięci. Aby to naprawić, musiano ręcznie wdrożyć prawidłowe odsubskrybowanie i finalizację obsługujących zdarzenia.
Historia
W jednym z modułów automatyzacji produkcji zdarzenie obiektu „gubiło się” — obsługujący nie działał. Okazało się, że zmiennej WithEvents przypisywano Nothing jeszcze zanim zdarzenie miało wystąpić. Naprawiliśmy to, starannie budując cykl życia związku między obiektem a obsługującym i kontrolując kolejność zwalniania pamięci.
Historia
W projekcie automatyzacji medycznej do obsługujących przyciski przez WithEvents przypisano logikę synchronizacji z zewnętrznymi bazami. Przy ponownym otwieraniu formularza tworzony był nowy obiekt, a stare odniesienia nie były usuwane — pojawiały się konkurencyjne obsługujące zdarzenia, prowadzące do wykonania zaktualizowanej logiki dwa lub nawet trzy razy. Po wykryciu błędu wprowadzono ścisłą kontrolę oczyszczania obsługujących zdarzenia po zamknięciu okna.