In Visual Basic 6, il meccanismo degli eventi si basa sulla parola chiave WithEvents. Essa consente a una variabile di fare riferimento a un oggetto e di inoltrare automaticamente gli eventi di quest'oggetto nella finestra o nella classe dove è definito il gestore degli eventi. Il nome della procedura gestore deve seguire uno schema particolare: <Nome oggetto>_<Nome evento>. Per impostare un gestore, basta dichiarare una variabile con WithEvents e implementare le procedure necessarie nel codice.
Esempio di dichiarazione e utilizzo di WithEvents in VB6:
Private WithEvents myButton As CommandButton Private Sub Form_Load() Set myButton = Me.Controls.Add("VB.CommandButton", "btn1") myButton.Caption = "Cliccami!" End Sub Private Sub myButton_Click() MsgBox "Pulsante cliccato!" End Sub
Un'attenzione particolare in VB6 deve essere prestata all'ordine di inizializzazione e alla corretta disconnessione dell'oggetto (tramite Set myButton = Nothing) per liberare correttamente le risorse e prevenire il blocco dei gestori.
Domanda: "Cosa accade se si tenta di gestire un evento di un oggetto quando la variabile WithEvents = Nothing, e come influisce sul funzionamento del programma?"
Risposta: Se la variabile WithEvents non punta a un oggetto (cioè è uguale a Nothing), l'evento di quell'oggetto non potrà essere generato e passato al gestore. Non si verificherà la chiamata al gestore: non ci sarà alcun errore, ma la logica attesa del programma non verrà eseguita, il che può portare a 'bug silenziosi' e a una difficile fase di debug.
Esempio:
Private WithEvents myObj As SomeClass ' ... Set myObj = Nothing ' Dopo questo, l'evento myObj_Event non verrà attivato
Storia
In un grande sistema di gestione degli ordini, uno sviluppatore creava dinamicamente oggetti di forma, iscrivendosi agli eventi tramite WithEvents. Dopo la distruzione programmata delle forme figlie, si dimenticò di azzerare le variabili — gli eventi continuavano a "rimanere" in memoria, causando effetti collaterali inaspettati e portando a una perdita di memoria. Per risolvere, fu necessario implementare manualmente la corretta disconnessione e finalizzazione dei gestori.
Storia
In uno dei moduli di automazione della produzione, l'evento dell'oggetto "si perdeva" — il gestore non si attivava. Si scoprì che la variabile WithEvents veniva impostata su Nothing prima che l'evento dovesse verificarsi. Fu corretto, costruendo con attenzione il ciclo di vita del collegamento tra l'oggetto e il gestore e controllando l'ordine di liberazione della memoria.
Storia
Nel progetto di automazione medica, i gestori dei pulsanti tramite WithEvents erano legati alla logica di sincronizzazione con basi dati esterne. Alla riapertura della finestra veniva creato un nuovo oggetto, mentre i vecchi riferimenti non venivano rimossi — si creavano gestori concorrenti, causando l'esecuzione della logica aggiornata due o addirittura tre volte. Dopo aver identificato l'errore, fu implementato un rigoroso controllo della cancellazione dei gestori alla chiusura della finestra.