|
| |
Visual-Basic Einsteiger| MsgBox erscheint, ohne dass die If-Bedingung erfüllt ist | |  | | Autor: bmcompufreak | | Datum: 20.12.05 15:24 |
| Hallo zusammen,
ich bin gerade ein kleines Progrämmchen am programmieren, dass auch eine Passwortabfrage enthält. Da ich aber erst vor ca. 2 Wochen mit VB angefangen habe (Grund dafür war Visual Studio 2005 Express) verstehe ich nicht so ganz, wo in meinem Code der Fehler ist.
PROBLEM:
Folgendes tritt nämlich auf:
In dieser Passwortabfrage kann man das Passwort ändern. Das bestehende Passwort ist bereits in der Registry abgelegt und soll jetzt verändert werden.
Falls aber das alte Passwort nicht mit dem String aus der Registry übereinstimmt, soll eine MsgBox mit dem Inhalt "Altes Passwort ungültig!" erscheinen.
Wenn ich aber jetzt das exakte alte Passwort, das neue Passwort und die Passwortwiederholung eintippe (die zweite Bedingung ist, dass das neue Passwort und die Wiederholung übereinstimmen) und auf OK klicke, kommt trotzdem die MsgBox "Altes Passwort ungültig".
Beim zweiten Versuch funktioniert aber alles.
ERKLÄRUNGEN:
ReadValue = Auslesen eines Registry Strings mittels einer vorher definierten Funktion
SaveValue = Schreiben eines Registry Strings mittels einer vorher definierten Funktion
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Button1.Click
If TextBox1.Text <> nPass Then MsgBox("Das alte Passwort ist" & _
"ungültig!", MsgBoxStyle.Exclamation, "Passwort ungültig")
If TextBox2.Text <> TextBox3.Text Then MsgBox("Das neue Passwort und" & _
"die Wiederholung stimmen nicht überein!", MsgBoxStyle.Exclamation, _
"Passwort ungültig")
If TextBox1.Text = nPass And TextBox2.Text = TextBox3.Text Then _
SaveValue("Software\xxx\xxx", "pass", TextBox2.Text)
nPass = ReadValue("Software\xxx\xxx", "pass")
End SubIch hoffe ihr könnt mir helfen.
Vielen Dank im Voraus
bmcompufreak | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
