Ciao,
ho un problema (credo concettuale) riguardo la gestione degli errori in visual basic.
ho scritto una piccola classe di prova (CPersona)
Definizione di CPersona :
codice:
private mNome as string
private enum Errori
ErroreNome=0
end enum
Public Property Get Nome() as string
Nome=m_nome
end Property
Public Property Let Nome(byval Value as string)
If value="" Then
Err.Raise Errori.ErroreNome,"CPersona.Nome","Nome non valido"
else
mNome=Value
end if
end Property
poi nel form
codice:
Private Sub Com_Click()
On Error GoTo GestioneErrori
dim pers as new CPersona
pers.Nome=txtNome.Text
Exit Sub
GestioneErrori:
lblErrori.Caption=Err.Description
End Sub
ora non so se sbaglio io,ma se nel controllo txtNome non inserisco niente,non dovrebbe
comparire la scritta "Nome non valido" nella lblErrori del Form ???
Dove sbaglio ?
Non funziona così la gestione degli errori ?
A me invece veniva scritta nella lblErrori una frase tipo "Tipo non corrispondente..." o
qualcos'altro ora sinceramente non ricordo,visto che le prove le ho fatte ieri e adesso
mi sono scritto il codice a mano in notepad (quindi se ho commesso errori sintattici di
linguaggio qui,ieri non li ho commessi....quindi non dipende da questo).
Penso proprio di aver commesso qualche errore logico !
Grazie.