Intercettare evento da classe in una dll

giovedì 05 aprile 2012 - 16.17

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

massimo1965 Profilo | Junior Member

134 messaggi | Data Invio: gio 5 apr 2012 - 16:17

Ciao a tutti,
non so dove sbaglio ma non riesco a venirne fuori.
Ho una dll, nella quale è presente una form con un pulsante che se è attivo permette l'esecuzione di una certa routine.
Nella form vengono richiesti dei dati e alcuni valori di questi dati richiesti vengono passati ad una classe la quale se un certo numero di dati sono congrui scatena un evento che abilita o meno il bottone di cui sopra.
Il problema è che se eseguo il tutto in un progetto exe mi funziona in questa dll non viene intercettato l'evento.
Posto parte del codice della classe

Dim m_idCommessa As Long
Dim m_idCliFor As Long
Dim m_idArticolo As Long

Public Event VerificaCondizioni() ' verifico se ci sono tutti le condizione per la creazione del movimento
Public Property Let idCommessa(ByVal vNewValue As Long)
m_idCommessa = vNewValue
RaiseEvent VerificaCondizioni
End Property
Public Property Let idCliFor(ByVal vNewValue As Long)
m_idCliFor = vNewValue
RaiseEvent VerificaCondizioni
End Property
Public Property Let idArticolo(ByVal vNewValue As Long)
m_idArticolo = vNewValue
RaiseEvent VerificaCondizioni
End Property
Public Property Get CondizioniOK() As Boolean
CondizioniOK = False
If m_idArticolo = 0 Then Exit Function
CondizioniOK = True
End Property

e quello della form

Public cDOCUMENTO As clsDocumento
Public WithEvents RoutineDocumento As clsDocumento

Private Sub RoutineDocumento_VerificaCondizioni()

cmdOption(2).Enabled = cDOCUMENTO.CondizioniOK

End Sub

la classe cDOCUMENTO a come parametri Instancing = 1 private

Qualche idea ?
Grazie

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !