- 12 Şub 2011
- 500
- 0
İyi Günler Arkadaşlar VB 6'da Login Formu Yapımını Göstericem.
Not: Benim VB bilgim Cok Az Elimden Geldiği kadarını Yapmaya Çalışıyorum Kodlarda Hazır Değildir Kendim Yazdım.
Yukarıdaki Resimlerde Görüldüğü gibi.
► 11 Tane Text box
► 12 Tane Command Button
Text1 in içi boş olacak diğer textlerinde sırasıyla içine 1,2,3,4,5,6,7,8,9,0 Yazıyoruz. Text boxların Hepsininde Visible'lerini False Yapıyoruz.
Command buttonlarında Sırasıyla 1,2,3,4,5,6,7,8,9,0 Yazıyoruz ve Sona command11 ve command12 kalıyor command11'e Giriş command12'ye Temizle Yazıyoruz
Bu Koduda Form Loada Yapıştırıyoruz.
Not: Benim VB bilgim Cok Az Elimden Geldiği kadarını Yapmaya Çalışıyorum Kodlarda Hazır Değildir Kendim Yazdım.
Yukarıdaki Resimlerde Görüldüğü gibi.
► 11 Tane Text box
► 12 Tane Command Button
Text1 in içi boş olacak diğer textlerinde sırasıyla içine 1,2,3,4,5,6,7,8,9,0 Yazıyoruz. Text boxların Hepsininde Visible'lerini False Yapıyoruz.
Command buttonlarında Sırasıyla 1,2,3,4,5,6,7,8,9,0 Yazıyoruz ve Sona command11 ve command12 kalıyor command11'e Giriş command12'ye Temizle Yazıyoruz
Bu Koduda Form Loada Yapıştırıyoruz.
Kod:
Private Sub Command1_Click()
Text1.Text = Text1.Text + Text2.Text
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text + Text11.Text
End Sub
Private Sub Command11_Click()
If Text1 = "0247" Then
MsgBox ("Başarılı şekilde giriş yaptınız")
Form2.Show
Unload Me
Else
MsgBox (" Şifreniz Yanlış")
End If
End Sub
Private Sub Command12_Click()
Text1.Text = ""
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + Text3.Text
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + Text4.Text
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + Text5.Text
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + Text6.Text
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text + Text7.Text
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + Text8.Text
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + Text9.Text
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + Text10.Text
End Sub
Private Sub Form_Load()
End Sub