Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Area Rettangolo - frmRettangolo.frm

frmRettangolo.frm

Caricato da: Roberto VB
Scarica il programma completo

  1. '                                           '
  2. '-------------------------------------------+
  3. '   FREEWARE Creato da Roberto VB 23/06/2007'
  4. '   www.pierotofy.it                        '
  5. '-------------------------------------------+
  6. '                                           '
  7. Private Sub cmdCalcola_Click()
  8.     On Error GoTo GestioneErrori
  9.     'Calcola l'area del rettangolo
  10.     lblRisultato.Caption = Val(txtBase.Text) * Val(txtAltezza)
  11.     'Esce dalla Sub
  12.     Exit Sub
  13. GestioneErrori:
  14.     'Manda un messaggio di errore
  15.     MsgBox "Attenzione, si è verificato l'errore numero: " & Err.Number & vbCrLf & "Descrizione: " _
  16.     & Err.Description & vbCrLf & "L'applicazione verrà chiusa", _
  17.     vbCritical, "ERRORE"
  18.     'Termino il programma
  19.     End
  20. End Sub
  21.  
  22. Private Sub cmdFine_Click()
  23.     'Termino il programma
  24.     End
  25. End Sub
  26.  
  27. Private Sub cmdResetta_Click()
  28.     'Azzero le TexBox
  29.     txtBase.Text = ""
  30.     txtAltezza.Text = ""
  31.     'Azzero la Label
  32.     lblRisultato.Caption = ""
  33.     'Posiziono il caret sulla TextBox
  34.     txtBase.SetFocus
  35. End Sub