login maken in vb 2010

[wakmen]

ik wil een login maken.

ik kan er ene maken maar dan maar met een persdoon het dan kan ik mij aanmelden als een persoon maar ik wil dat het met meerdere personen gaat.
vb:textbox1 = "wakmen" en dan de wachtwoord.
maar ik wil meerdere personen toevoegen weet iemand de cod daar van???

 

[JoZ1]

[cpp]Dim db As New List(Of String)
db.Add("JoZ1;helpmij")
db.Add("wakmen;topicstarter")

Console.WriteLine("Gebruikersnaam: ")
Dim gb As String = Console.ReadLine()
Console.WriteLine("Wachtwoord: ")
Dim pw As String = Console.ReadLine()

For Each item In db
If item.Split(";").GetValue(0) = gb And item.Split(";").GetValue(1) = pw Then
Console.WriteLine(vbNewLine + gb & " is succesvol ingelogd!")
Exit For
ElseIf db.Item(db.Count - 1) = item Then
Console.WriteLine(vbNewLine + "De gebruikersnaam of het wachtwoord is onjuist.")
End If
Next
Console.ReadKey()[/cpp]

Succesvolle inlog:

Niet-succesvolle inlog:

PS. Ik mag dan wel geen moderator zijn, maar wil je voortaan je VB.NET vragen in het VB.NET-forum plaatsen? Dit is al het zoveelste topic .

 

[mrHenkie]

Met een IfElse structruur?

If naam.Text = "wakmen" And password.Text = "geheim" Then
Code...
ElseIf hetzelfde als vorige if.
Code
ElseIf ......
Code
End If


Heb hier even geen vb programma, vandaar zo. Kan iemand dit uitwerken?

Edit: net te laat...

 

[wakmen]

ik zal eens kijk bedankt

 

[wakmen]

sorry maar het werkt niet

 

[JoZ1]

Twee vragen:

1. Welke code gebruik je?
2. Wat gaat er precies fout?

 

[mrHenkie]

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If gebruikersnaam.Text = "wakmen" And wachtwoord.Text = "geheim1" Then
            'Code...
        ElseIf gebruikersnaam.Text = "mrhenkie" And wachtwoord.Text = "geheim2" Then
            'Code...
        ElseIf gebruikersnaam.Text = "JoZ1" And wachtwoord.Text = "geheim3" Then
            'Code...
        ElseIf gebruikersnaam.Text = "Nog een naam" And wachtwoord.Text = "geheim4" Then
            'Code...
        ElseIf gebruikersnaam.Text = "En nog een..." And wachtwoord.Text = "geheim5" Then
            'Code...
        Else
            MsgBox("Verkeerde logingegevens.")
        End If
    End Sub
End Class

Zoiets?

 

[wakmen]

nu werkt het bedankt!!!

 

[mrHenkie]

Vraag = opgelost .

Dat bedoelde ik met mijn code.