Razzi, aiutatemi voi vi prego.
Ho il seguente problema:
se creo una classe (modulo di classe):
nome:Persona
------------------------------------------------
Option Explicit
Private Nome as String
Property let Nome(Valore as String)
If Valore="" then Err.Raise 600,,"Descrizione"
End Property
------------------------------------------------
Poi ad esempio all'interno di una form dichiaro una variabile di questo tipo:
------------------------------------------------
Private Sub Form_Load()
Dim Pers as Persona
Set Pers=New Persona
Pers.Nome=""
End Sub
------------------------------------------------
Ovviamente avendo specificato nella Property Let Nome che se passo una stringa vuota mi spara un errore eseguendo il programma scatenerà subito l'errore "600 Descrizione".
Ora il mio problema è il seguente: Come diavolo faccio a far uscire questo errore dalla classe?
Se io ad esempio facessi questo:
------------------------------------------------
Private Sub Form_Load()
Dim Pers as Persona
Set Pers=New Persona
On Error Resume Next
Pers.Nome=""
End Sub
------------------------------------------------
Quello che di logica dovrebbe accadere è che l'istruzione "Set Pers=New Persona" genera errore ma lo gestisce ignorandolo e passando oltre, invece non va così, la classe si tiene l'errore al suo interno e blocca comunque l'esecuzione dell'applicazione.
Se qualcuno di voi sa dirmi come far uscire l'errore dalla classe ne sarei felicissimo!
Grazie ancora :quote:
Rispondi quotando
