ByHellsinq
Acemi
Mesaj Sayısı : 14
Rep Gücü : : 32387
Rep Puani : : 2000
Kayıt tarihi : 24/08/09
Yaş : 38
 | Konu: Forma Girerken Kullanıcı Adı Şifre Sorma  Salı Ağus. 25, 2009 10:14 am | |
| Gerekenler :
2 TextBox - 1 CommandButton
Kodlar :
- Kod:
-
Dim a
Private Sub Command1_Click()
If Text1.Text = "kullaniciadi" And Text2.Text = "sifre" Then
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 NOT : kullaniciadi bölümüne bir kullanıcı adı, sifre bölümüne istediğiniz bir şifreyi yazın.. | |
|
FearLessWarrioR
Mesaj Sayısı : 6
Rep Gücü : : 10099
Rep Puani : : 9999
Kayıt tarihi : 24/08/09
| | Konu: Geri: Forma Girerken Kullanıcı Adı Şifre Sorma Salı Ağus. 25, 2009 3:31 pm | |
| Form1.hide yerine Unload Me daha iyi olurdu çünkü hide gizliyor unload me kapatıyor  Teşekkürler | |
|
ByZonq
Admin
Mesaj Sayısı : 35
Rep Gücü : : 2147483647
Rep Puani : : 11999
Kayıt tarihi : 22/08/09
| |
