Merhaba Arkadaşlar,
Bu paylaşımımda sizlere vb6 da admin girişi yapmayı göstericem.Bunun için source hazırladım.İşallah işinize yarar.
İlk olarak 2 textbox 2 label ve 1 buton ekleyin ve form2 ekleyin.Add forumdan.
Sonra Command Butonun Click olayını şu kodları yapıştırıyoruz :
Private Sub Command1_Click()
If Text1.Text = "Admin" And Text2.Text = "123456" Then
Form2.Show
Me.Hide
MsgBox "Tebrikler doğru şifre girdiniz.Yönlendiriliyorsunuz.", vbInformation, "Tebrikler !"
Else
MsgBox "Hatalı şifre girdiniz.Lütfen tekrar deneyiniz.", vbCritical, "Hatalı Şifre !"
End If
End Sub
Bu paylaşımımda sizlere vb6 da admin girişi yapmayı göstericem.Bunun için source hazırladım.İşallah işinize yarar.
İlk olarak 2 textbox 2 label ve 1 buton ekleyin ve form2 ekleyin.Add forumdan.
Sonra Command Butonun Click olayını şu kodları yapıştırıyoruz :
Private Sub Command1_Click()
If Text1.Text = "Admin" And Text2.Text = "123456" Then
Form2.Show
Me.Hide
MsgBox "Tebrikler doğru şifre girdiniz.Yönlendiriliyorsunuz.", vbInformation, "Tebrikler !"
Else
MsgBox "Hatalı şifre girdiniz.Lütfen tekrar deneyiniz.", vbCritical, "Hatalı Şifre !"
End If
End Sub
Sourceyi İndirmek İçin Tıkla !
0 yorum:
Yorum Gönder
Yorumlarınızda lütfen Türkçe ' yi güzel kullanınız.
Bilgili Yayın Yönetimi...
Dikkat ! : Küfür yada uygunsuz içerik içeren yorumlar yasaktır.Bu tür yorumlar site yönetimi tarafından tespit edilip silinmektedir.Fakat gözden kaçan yorumları ctn@turk.tc veya tospmailbomber@gmail.com adreslerinden bizlere iletebilirsiniz.