-
Notifications
You must be signed in to change notification settings - Fork 0
/
Login.vb
28 lines (22 loc) · 931 Bytes
/
Login.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Class Login
'setter variablen utenfor knappen, så ikke verdien nullstilles ved hvert klikk
Dim teller As Integer
Private Sub cmdLogin_Click(sender As Object, e As EventArgs) Handles cmdLogin.Click
'her kan passordet være alt mulig rart, så det blir ikke utført sjekk om det er numerisk
'tall osv. enkel if test som tillater brukeren å gå videre
'teller 3 ganger, dersom feil passord er oppgitt mer enn 3 ganger, avsluttes programmet
If txtPassord.Text = "filip" Then
Regneoppgave.Show()
Me.Hide()
Else
ErrorProvider1.SetError(txtPassord, "Feil passord!")
teller += 1
End If
If teller >= 3 Then
End
End If
End Sub
Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txtPassord.Select() 'Setter tekstboksen i fokus
End Sub
End Class