AnasayfaKapıKayıt OlGiriş yap

Paylaş | 
 

 Forma Girerken Kullanıcı Adı Şifre Sorma

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ByHellsinq
Acemi
Acemi
avatar

Mesaj Sayısı : 14
Rep Gücü : : 32387
Rep Puani : : 2000
Kayıt tarihi : 24/08/09
Yaş : 32

MesajKonu: 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..
Sayfa başına dön Aşağa gitmek
FearLessWarrioR



Mesaj Sayısı : 6
Rep Gücü : : 10099
Rep Puani : : 9999
Kayıt tarihi : 24/08/09

MesajKonu: 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 Smile


Teşekkürler
Sayfa başına dön Aşağa gitmek
ByZonq
Admin
avatar

Mesaj Sayısı : 35
Rep Gücü : : 2147483647
Rep Puani : : 11999
Kayıt tarihi : 22/08/09

MesajKonu: Geri: Forma Girerken Kullanıcı Adı Şifre Sorma   Çarş. Ağus. 26, 2009 4:09 pm

FearLessWarrioR demiş ki:
Form1.hide yerine

Unload Me daha iyi olurdu çünkü hide gizliyor unload me kapatıyor Smile


Teşekkürler

evet Gorev yoneticinsde durunca Virus zannediyorlar Very Happy
Sayfa başına dön Aşağa gitmek
http://metin-x.yetkinforum.com
 
Forma Girerken Kullanıcı Adı Şifre Sorma
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Kullanıcı Adı Değiştirme Formu
» sevgilim7bni 4x kullanımı

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Metin-X :: Visual Basic Dersleri :: Acemi-
Buraya geçin: