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
Agenda - Frmtrova.frm

Frmtrova.frm

 Caricato da: Albertking82
Scarica il programma completo

  1. Option Explicit
  2.  
  3. Private Sub Cmdok_Click()
  4. If Txttrova.Text <> "" Then
  5.   Select Case scelta
  6.     Case "cognome"
  7.        Call trovacognome(LCase(Txttrova.Text))
  8.        Close
  9.     Case "nome"
  10.         Call trovanome(LCase(Txttrova.Text))
  11.         Close
  12.     Case "cellulare"
  13.   End Select
  14.   Unload Frmtrova
  15.  End If
  16. End Sub
  17.  
  18. Private Sub Form_Unload(Cancel As Integer)
  19. Frmagenda.optcognome.Visible = False
  20. Frmagenda.optnome.Visible = False
  21. Frmagenda.Cmdtrovaper.Visible = False
  22. End Sub