Non tutto quello che funziona con VB6 si puo' passare in VBA ... penso che la gestione degli eventi funzioni ...
In VB6, un esempio
In un form scrivi
e in un modulo di classe (MiaClasse)codice:Private WithEvents obj As MiaClasse Private Sub Form_Load() Set obj = New MiaClasse End Sub Private Sub Form_Unload(Cancel As Integer) Set obj = Nothing End Sub Private Sub Form_Click() obj.Valore = 1 End Sub Private Sub obj_ValoreModificato() MsgBox "OK" End Sub
Spero ti sia tutto chiaro.codice:Private mValore As Long Public Event ValoreModificato() Public Property Let Valore(ByVal vData As Long) mValore = vData RaiseEvent ValoreModificato End Property Public Property Get Valore() As Long Valore = mValore End Property

Rispondi quotando