- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Button1'in Click olayı aşağıdaki şekilde olmalıdır...
Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "Kullanıcı adını yazınız" And TextBox2.Text = "Şifreyi yazınız" Then MsgBox("Programımıza Hoşgeldiniz", MsgBoxStyle.Information, "Hoşgeldiniz") TextBox1.Visible = False TextBox2.Visible = False Label1.Visible = False Label2.Visible = False Button1.Visible = False Button2.Visible = False Form2.Show() Else MsgBox("Hatalı Kullanıcı Adı veya Şifre Girdiniz", MsgBoxStyle.Critical, "Hata") End If End Sub
Button2'nin click olayı aşağıdaki şekilde olmalıdır...(Bu komut textboxları temizlemeye yarar)
Kod:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = "" TextBox2.Text = "" End Sub
Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "Kullanıcı adını yazınız" And TextBox2.Text = "Şifreyi yazınız" Then MsgBox("Programımıza Hoşgeldiniz", MsgBoxStyle.Information, "Hoşgeldiniz") TextBox1.Visible = False TextBox2.Visible = False Label1.Visible = False Label2.Visible = False Button1.Visible = False Button2.Visible = False Form2.Show() Else MsgBox("Hatalı Kullanıcı Adı veya Şifre Girdiniz", MsgBoxStyle.Critical, "Hata") End If End Sub
Button2'nin click olayı aşağıdaki şekilde olmalıdır...(Bu komut textboxları temizlemeye yarar)
Kod:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = "" TextBox2.Text = "" End Sub