|
Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() 'Imposta su False la variabile globale per indicare 'che l'accesso non è riuscito LoginSucceeded = False End End Sub Private Sub cmdOK_Click() 'Verifica la validità della password Dim a As Integer a = FreeFile Open App.Path & "\pass.dat" For Random As a Get a, 1, Password If txtPassword = Password Then LoginSucceeded = True Me.Hide Else MsgBox "Password non valida. Riprovare.", , "Accesso" txtPassword.SetFocus SendKeys "{Home}+{End}" End If Close a End Sub
|
|
