[Visuıal Basic] Programa Şifre Koyma - Passaword Koyma

Arkadaşlar Sizde Programınıza Şifre Koymak İstiyorsanız Doğru Yere Geldiniz.

Bu işlem Çok basittir.


Nesneler:

1) 2 Adet Text Box

2) 1 Adet Command Button

Bunları Ekledikten Sonra Aşağıdaki Kodu Olduğu Gibi Forma Yapıştırın.


Dim a
Private Sub Command1_Click()
If Text1.Text = "cstr123" And Text2.Text = "cstr" Then ' cstr123 Id , cstr şifre
Form1.Hide
Form2.Show
Else
a = a + 1
MsgBox "Kullanıcı adı ve Şifreyi Kontrol Edin", , "HATA"
End If
If a = 3 Then
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox "3 sefer hatalı giriş yaptınız", , "UYARI"
MsgBox "Güle Güle", , "Güle Güle"
Form1.Hide
Form2.Hide
End If
End Sub
Private Sub Form_Load()
a = 0
End Sub