Hey Leute ich brauch mal wieder eure Hilfe
Ich habe eine Form in der man sich registrieren kann über My.Settings(.UserN1) und My.Settings(.UserP1) - Registrieren.vb
UserN1 = UserName N°1 und UserP1 = UserPasswort N°1 - Es gibst insgesamt drei Username Möglichkeiten
Hier mal der Code
Spoiler anzeigen
Da immer MsgBox("Sie haben die maximale Anzahl der Accounts erreicht!", MsgBoxStyle.Critical, "Warnung") auftaucht, habe ich mal bei meiner ersten Form das hier geschrieben:
Doch die MsgBox taucht wieder auf?!
Ich sehe meinen Fehler nicht. Bitte um Hilfe!
Ich habe eine Form in der man sich registrieren kann über My.Settings(.UserN1) und My.Settings(.UserP1) - Registrieren.vb
UserN1 = UserName N°1 und UserP1 = UserPasswort N°1 - Es gibst insgesamt drei Username Möglichkeiten
Hier mal der Code
VB.NET-Quellcode
-
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- If My.Settings.UserN1 = TextBox1.Text Or My.Settings.UserN3 = TextBox1.Text Or My.Settings.UserN3 = TextBox1.Text Then
- MsgBox("Dieser Benutzername wird bereits verwendet.", MsgBoxStyle.Critical, "Achtung")
- Else
- MsgBox("Möchten Sie wirklich |" & TextBox1.Text & "| heißen?", MsgBoxStyle.YesNo, "Benutzername")
- Select Case MsgBoxResult.Yes
- Case My.Settings.UserN1 = ""
- If TextBox2.Text = TextBox3.Text Then
- My.Settings.UserN1 = TextBox1.Text
- My.Settings.UserP1 = TextBox2.Text
- My.Settings.Save()
- Else
- MsgBox("Die Passwörter stimmen nicht überein!", MsgBoxStyle.Critical, "Warnung")
- End If
- Case My.Settings.UserN2 = ""
- If TextBox2.Text = TextBox3.Text Then
- My.Settings.UserN2 = TextBox1.Text
- My.Settings.UserP2 = TextBox2.Text
- My.Settings.Save()
- Else
- MsgBox("Die Passwörter stimmen nicht überein!", MsgBoxStyle.Critical, "Warnung")
- End If
- Case My.Settings.UserN3 = ""
- If TextBox2.Text = TextBox3.Text Then
- My.Settings.UserN3 = TextBox1.Text
- My.Settings.UserP3 = TextBox2.Text
- My.Settings.Save()
- Else
- MsgBox("Die Passwörter stimmen nicht überein!", MsgBoxStyle.Critical, "Warnung")
- End If
- Case Else
- Me.Refresh()
- MsgBox("Sie haben die maximale Anzahl der Accounts erreicht!", MsgBoxStyle.Critical, "Warnung")
- End Select
- End If
- End Sub
Da immer MsgBox("Sie haben die maximale Anzahl der Accounts erreicht!", MsgBoxStyle.Critical, "Warnung") auftaucht, habe ich mal bei meiner ersten Form das hier geschrieben:
Doch die MsgBox taucht wieder auf?!
Ich sehe meinen Fehler nicht. Bitte um Hilfe!