gestione eventi

Hai un problema con Excel?

Nuova discussione

gestione eventi
di lukky (utente non iscritto) data: 11/12/2015 18:25:36
Devo gestire degli eventi in VBA, per cominciare ho scritto un pgm piccolo in modo da rendermi conto se ho compreso correttam. ciò che ho trovato sul web.Sembrava facile ma ho dei problemi.
Vi allego il codice sperando di ricevere aiuto Grazie per l aiuto,la classe Class1 viene invocata, il comandoo raiseevent viene eseguito, ma l'evento ErrClasse_Errore non viene invocato.Dovè l'errore?Non riesco a venirne fuori. Grazie per l'event. aiuto.Lukky

Option Explicit

Dim WithEvents ErrClasse As Classe1


Dim Cal As Classe1

Dim lszWork As String
Private Sub btnUscita_Click()
Unload frmCalc
End Sub
Private Sub btnEsegui_Click()
Esegui
End Sub
Public Sub Esegui()

If Cal Is Nothing Then
                       Set Cal = New Classe1
                       Set ErrClasse = New Classe1
End If

Cal.sEsegClasse

End Sub
Public Sub ErrClasse_Errore(ERR)
lszWork = "123"
End Sub
Private Sub UserForm_Terminate()
Set Cal = Nothing            ' Annullo variabile oggetto
Set ErrClasse = Nothing
End Sub
Option Explicit
' Classe class1
Public Event Errore(Codice)
Dim Codice As Integer
Public Sub sEsegClasse()
Codice = 4
RaiseEvent Errore(Codice)
End Sub

di patel data: 11/12/2015 19:42:53
io inizierei a descrivere qual'è il tuo obiettivo ed allegherei un file di esempio, che se non erro ha delle userform
gestione event
di lukky (utente non iscritto) data: 12/12/2015 11:54:12
l'obiettivo ò quello di eseguire la SUB "ErrClasse_Errore" evento generato dalla classe1, e di impostare nella variabile lszWork il valore 123, avrei pututo anche mettere una MsgBox per descrivere l'avvenuto evento.
Grazie Lukky
di patel data: 12/12/2015 12:03:38
Quando scrivo una macro il mio obiettivo non è soltanto quello di eseguirla, ma di produrre un certo risultato.
Quando si chiede aiuto occorre aiutare gli altri a capire, altrimenti si rischia di attendere invano.
gestione eventi
di lukky (utente non iscritto) data: 13/12/2015 12:15:08
Vi allego il pgm prova classe.zip, lo scopo è qerllo di eseguire "msgbox" di avvenuto evento nella classe,
e di visualizzare il messaggio nel modulo della form.spero di avervi inviato il file in modo corretto.
grazie per il il tempo dedicatomi. Lukky

Vuoi Approfondire?