' '
'-------------------------------------------+
' FREEWARE Creato da Roberto VB 23/06/2007'
' www.pierotofy.it '
'-------------------------------------------+
' '
Private Sub cmdCalcola_Click()
On Error GoTo GestioneErrori
'Calcola l'area del rettangolo
lblRisultato.Caption = Val(txtBase.Text) * Val(txtAltezza)
'Esce dalla Sub
Exit Sub
GestioneErrori:
'Manda un messaggio di errore
MsgBox "Attenzione, si è verificato l'errore numero: " & Err.Number & vbCrLf & "Descrizione: " _
& Err.Description & vbCrLf & "L'applicazione verrà chiusa", _
vbCritical, "ERRORE"
'Termino il programma
End
End Sub
Private Sub cmdFine_Click()
'Termino il programma
End
End Sub
Private Sub cmdResetta_Click()
'Azzero le TexBox
txtBase.Text = ""
txtAltezza.Text = ""
'Azzero la Label
lblRisultato.Caption = ""
'Posiziono il caret sulla TextBox
txtBase.SetFocus
End Sub