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
ora non so se sbaglio io,ma se nel controllo txtNome non inserisco niente,non dovrebbecodice: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
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.

Rispondi quotando