HAPPY
27-11-2006, 19:27
1.form=şifreli giriş kısmı
2.form=dilediğnizi yazın
formumuza 2 adet text box 1 adet command ve toplam yerleştiriyoruz.
text1=kullanıcı adı
text2=şifre
burdan itibaren yazmaya başlayabilirsiniz...
Private Sub Command1_Click()
If Text1.Text = "happy" Then
Form2.Show
Else
MsgBox "Kullanıcı adı yanlış"
End If
If Text2.Text = "123456" Then
Form2.Show
Else
MsgBox "Şifre yanlış"
End If
End Sub
not=text2 kutusunu seçip propertis ayarlarından passwordchar kısmına * şeklini katın.O zaman şifreniz yıldız şeklinde gözükücektir.Ayrıca text lerle işiniz bittiği zaman text kutularının caption yazan kısmını silin.Daha az hata verir.
2.form=dilediğnizi yazın
formumuza 2 adet text box 1 adet command ve toplam yerleştiriyoruz.
text1=kullanıcı adı
text2=şifre
burdan itibaren yazmaya başlayabilirsiniz...
Private Sub Command1_Click()
If Text1.Text = "happy" Then
Form2.Show
Else
MsgBox "Kullanıcı adı yanlış"
End If
If Text2.Text = "123456" Then
Form2.Show
Else
MsgBox "Şifre yanlış"
End If
End Sub
not=text2 kutusunu seçip propertis ayarlarından passwordchar kısmına * şeklini katın.O zaman şifreniz yıldız şeklinde gözükücektir.Ayrıca text lerle işiniz bittiği zaman text kutularının caption yazan kısmını silin.Daha az hata verir.
