auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Passwort-Abfrage mit Array

Passwort-Abfrage mit Array programmieren: Option Base, Array
Option Base 1 Der Index beginnt mit 1, nicht mit Null.
Private namen(5) As String Das Array enthält 5 Namen.
Private Sub Form_Load()
namen(1) = "Heinz"
namen(2) = "Helga"
namen(3) = "Micha"
namen(4) = "Margot"
namen(5) = "Anton"
frmAnmeld.Show
txtName.SetFocus
txtPw.PasswordChar = "*"
End Sub
Private Sub cmdOK_Click()
Dim index As Byte
passwort = "cdi"
For index = 1 To 5
If txtName.Text = namen(index) And txtPw.Text = passwort Then
MsgBox "Hallo " & txtName.Text & "!", , "Anmeldung erfolgreich"
frmAnmeld.Hide
frmDatPruef.Show Bei korrekter Anmeldung wird ein weiteres Formular
End If gestartet.
Next index
If txtName.Text = "" Or txtPw.Text <> passwort Then
Select Case MsgBox("Anmeldung kann ohne Passwort-" & vbCrLf & _
"eingabe nicht erfolgen!" & vbCrLf & "Noch ein Versuch?", 4 + 16, "Abbruch")
Case 6: txtName.Text = ""
txtPw.Text = ""
cmdOK.Enabled = False
txtName.SetFocus
Case 7: Unload Me
End Select
Call versuche
End If
End Sub
Private Sub versuche()
Static max As Integer
max = max + 1
If max >= 3 Then
MsgBox "Keine weiteren Versuche mehr möglich!", 0 + 64, "Abbruch"
Unload Me
End If
End Sub
Private Sub txtPw_LostFocus()
If txtName.Text = "" And txtPw.Text = "" Then
cmdOK.Enabled = False
txtName.SetFocus
Else
cmdOK.Enabled = True
cmdOK.SetFocus
End If
End Sub
Private Sub cmdEnde_Click()
Unload frmAnmeld
Unload frmDatPruef
End Sub
Private Sub txtName_GotFocus()
txtName.Text = ""
End Sub
Private Sub txtPw_GotFocus()
txtPw.Text = ""
End Sub
Private Sub cmdEnde_Click() Vom zweiten Formular ins erste zurückspringen
frmDatPruef.Hide
frmAnmeld.Show
frmAnmeld.cmdOK.Enabled = False
frmAnmeld.txtName.Text = ""
frmAnmeld.txtPw.Text = ""
frmAnmeld.txtName.SetFocus
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt