Visual basicte login girişi yapmak isteyenler aşağıdaki adımları uygulayabilirler...
** form üzerine 2 adet text yerleştirin
** form üzerine 2 adet command buton ekleyin
** bir adet daha form açın bu formn adı form2 olarak kaydedileçektir ( DEĞİŞTİRMEYİN )
bunları yaptıktan sonra code sayfasını açarak -- sağ tıkla - code penceresi..
aşağıdaki kodları yerleştirin..
Private Sub command1_click()
'şimdi eğer parola doğru ise açtığınız ikinci formu açacak ve kendini kapatacak
If Text1 = "admin" And Text2 = "12345" Then
MsgBox ("Başarılı şekilde giriş yaptınız")
Form2.Show
Unload Me
'Eğer parola doğru değilse size iki şans daha tanıyacak yani 3 giriş hakkınız var ve 3. girişi de yanlış girerseniz formu kapatacak
Else
i = i + 1
MsgBox (i & " Kullanıcı Adı Veya Şifreniz Yanlış")
If i = 3 Then
MsgBox ("hakkınız doldu HOŞÇAKALIN"): End
End If
End If
End Sub
'bu ikinci butondaki kod ise bilfiğiniz gibi kapatma yani şifre girmekten vazgeçmek isteyen için...
Private Sub command2_click()
End
End Sub
alıntı
** form üzerine 2 adet text yerleştirin
** form üzerine 2 adet command buton ekleyin
** bir adet daha form açın bu formn adı form2 olarak kaydedileçektir ( DEĞİŞTİRMEYİN )
bunları yaptıktan sonra code sayfasını açarak -- sağ tıkla - code penceresi..
aşağıdaki kodları yerleştirin..
Private Sub command1_click()
'şimdi eğer parola doğru ise açtığınız ikinci formu açacak ve kendini kapatacak
If Text1 = "admin" And Text2 = "12345" Then
MsgBox ("Başarılı şekilde giriş yaptınız")
Form2.Show
Unload Me
'Eğer parola doğru değilse size iki şans daha tanıyacak yani 3 giriş hakkınız var ve 3. girişi de yanlış girerseniz formu kapatacak
Else
i = i + 1
MsgBox (i & " Kullanıcı Adı Veya Şifreniz Yanlış")
If i = 3 Then
MsgBox ("hakkınız doldu HOŞÇAKALIN"): End
End If
End If
End Sub
'bu ikinci butondaki kod ise bilfiğiniz gibi kapatma yani şifre girmekten vazgeçmek isteyen için...
Private Sub command2_click()
End
End Sub
alıntı