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
Visualizzatore  di immagini - Form2.frm

Form2.frm

Caricato da: Albertking82
Scarica il programma completo

  1. Dim numero As Integer
  2. Private Sub Cmdcanc_Click()
  3. Unload Me
  4. End Sub
  5.  
  6. Private Sub Cmdok_Click()
  7. If IsNumeric(Txtnum.Text) Then
  8. numero = Int(Txtnum.Text)
  9. Form1.num = numero
  10. Call Form1.gif(numero)
  11. Unload Me
  12. Else
  13. Txtnum.Text = ""
  14. Txtnum.SetFocus
  15. End If
  16. End Sub