[VB6] Eventi non generati per controllo WebBrowser creato da codice (a runtime)

[mvent]

salve a tutti!

allora ho un form nel quale, da codice, creo un oggetto WebBrowser.
tramite codice faccio una ricerca su vari siti tramite il webbrowser.
il mio problema è questo: non mi entra più negli eventi:
WebBrowser1_NavigateError
WebBrowser1_ProgressChange

forse perché gli eventi vengono generati solo quando il WEbBrowser viene inserito come oggetto nel form e non quando viene creato da codice???

possiboli? come si fa a farlo entrare in quegli eventi?

:rollo:

[mvent]

[mvent]

dopo ore di ricerche ho trovato che bisogna usare la parla chiave withevents:

dim withevents nomecontrollo as tipo.xxx

per esempio:

dim withevents nomeLabel as Vb.label

in questo modo la label "nomelabel" creata a run time avrà tutti gli eventi che hanno le normali label create in sede di progettazione.


tuttavia nel mio caso lo devo dichiarare nel modulo in questo modo:
Public withevents WebBrowser1 As WebBrowser

ma non funziona, mi dà l'errore: "valido solo nel modulo oggetto"

quindi va messo nel codice del form in cui viene usato:

Dim WithEvents WebBrowser1 As WebBrowser

e casomai passarlo come variabile di tipo webbrowser in eventuali routine di modulo generale.