Vb Problem

Dieses Thema im Forum "Programmieren" wurde erstellt von Dackel, 23. Dezember 2002.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Dackel

    Dackel Byte

    Registriert seit:
    6. September 2001
    Beiträge:
    85
    Ich wollte einen simplen Multilogin unter VB5.0 schreiben. Der vom Programm angebotene Login ist nur ein Singlelogin.
    Also wollte ich ihn mir selbst schreiben, was aber nicht geklappt hat.
    Könnt ihr euch den Quelltext mal anschauen?
    Vielen Dank.
    Dackel

    Quelltext:
    Sub command1_()
    If benutzername.Text = dackel And passwort.Text = 4365 Then Load (Form2)
    If benutzername.Text = Simon And passwort.Text = 0 Then Load (Form2)
    Else: Load (Form1)
    End If
    End If
    End Sub

    [Diese Nachricht wurde von Dackel am 23.12.2002 | 12:23 geändert.]
     
  2. DennisX

    DennisX Byte

    Registriert seit:
    23. März 2002
    Beiträge:
    118
    Hallo!
    Das wird so nicht funktionieren, da hier der eingegebene Benutzername mit dem zugewiesenen Passwort verglichen wird. Also:

    Private Sub Command1_Click()
    Select Case Benutzername.Text
    Case "dackel"
    If Passwort.Text = "4365" Then Load (Form2) else Load (Form1)
    Case "Simon"
    If Passwort.Text = "0" Then Load (Form2) else Load (Form1)
    Case Else
    Load (Form1)
    End Select
    End Sub

    mfg
    DennisX
     
  3. Dackel

    Dackel Byte

    Registriert seit:
    6. September 2001
    Beiträge:
    85
    Vielen Dank für eure Hilfe.
    Dackel
     
  4. vyger

    vyger ROM

    Registriert seit:
    23. Dezember 2002
    Beiträge:
    3
    oder so:

    Sub command1_()
    Dim myStr As String
    myStr = benutzername.Text
    Select Case myStr
    Case 4365
    ___Load(Form2)
    Case 0
    ___Load(Form1)
    Case Else
    ___Load(Form0)
    End Select
    End Sub

    Vorteile:
    -Schneller als If/Then/Else
    -übersichtlicher
    -Du kannst soviele Fälle (Cases) einbauen wie du brauchst ohne den Überblick zu verlieren
    -Es gibt es Case Else, die immer dann ausgeführt wird wenn alle davor nicht zutreffen
    [Diese Nachricht wurde von vyger am 23.12.2002 | 14:22 geändert.]
     
  5. Geertakw

    Geertakw Kbyte

    Registriert seit:
    25. Februar 2001
    Beiträge:
    418
    Hi

    Müßte so gehen:

    Sub command1_()
    If (benutzername.Text = "dackel") And (passwort.Text = "4365" Then
    ___Load (Form2)
    Elseif (benutzername.Text = "Simon") And (passwort.Text = "0") Then
    ___ Load (Form2)
    Else
    ___Load (Form1)
    End If

    End Sub

    Die Untestriche dienen nur zur Verdeutlichung des Einrückens
    ( Tabs krieg ich Forum nicht hin ).
    Klammern und Anführungsstriche können u. U. bei VB
    wegfallen.
    ( Bei VBA wären letztere m.E. erforderlich )

    Gruss Geert
    [Diese Nachricht wurde von Geertakw am 23.12.2002 | 14:04 geändert.]
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen