Zum Inhalt springen

Brauche Hilfe bei einem VB6-Programm


Empfohlene Beiträge

Geschrieben

Ich wollte (um mit den Befehlen bei VB6 vertraut zu werden) ein Programm schreiben, indem man ein bestehendes Passwort ändern kann. Dazu muss der User ein Admin-Kennwort eingeben und anschliessend das neue Passwort bestimmen.

Mein Problem ist, dass ich nicht weis, wie man im laufendem Programm eine Variable mit einem Wert belegen kann.

Quelltext:

Private Sub Form_Load()

Dim Eingabe_Menu As String

Dim Passwort_Alt As String

Dim Passwort_Neu As String

Dim nLoop As Integer

Dim Eingabe As String

Const ADMIN_PASSWORT = "Administrator"

Eingabe_Menu = InputBox("Was möchten Sie tun? " & vbCrLf & _

"1) Neues Passwort erstellen" & vbCrLf & _

"2) Altes Passwort eingeben")

If Eingabe_Menu = "1" Then

For nLoop = 1 To 3

Passwort_Neu = InputBox("Geben Sie das Administrator-Passwort ein:" & vbCrLf & _

"(Sie haben 3 Versuche)")

If Passwort_Neu = ADMIN_PASSWORT Then

InputBox ("Geben Sie das neue Passwort ein:")

Eingabe = Passwort_Neu

DA WIRD WOHL DER FEHLER LIEGEN! WEIS JEMAND, WIE MAN DAS MACHT?

Passwort_Neu = InputBox("Wiederholen Sie das neue Passwort:")

If Passwort_Neu = Eingabe Then

MsgBox "FUNZT"

Else

MsgBox "FUNZT NICHT"

End If

Geschrieben

Muss ich mir gleich nochmal genau angucken, bin quasi grad auf dem Sprung FA zu machen ;)

Aber was mir bei sowas immer hilft:

Mach eine MsgBox mit der Variablen damit du siehst was drin steht - wenn ich ein Problem mit dem Wert einer Variablen habe mache ich das auch immer so, weil meist fällt einem dann direkt auf wo welcher Wert übergeben wird und dann dementsprechend der Fehler liegt.

Schaue es mir gleich aber von meiner Wohnung aus nochmal an, keine sorge :beagolisc

Geschrieben

Habe den Fehler gestern Nachmittag selbst gefunden! War schon ein etwas blöder Fehler!

Aber trotzdem vielen Dank fürs helfen! Dafür gibts auch n dicken :uli

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...