Visual Basic - Form'a Şifre Koyma
Kodlar : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "TurkHackTeam" And TextBox2.Text = "THT" Then
MsgBox("Hoş Geldiniz", MsgBoxStyle.Information, "Hoş Geldiniz ")
TextBox1.Visible = False
TextBox2.Visible = False
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Button1.Visible = False
Form2.Show()
Else
MsgBox("Hatalı Giriş !", MsgBoxStyle.Critical, "Hata")
Me.Close()
End If
End Sub
Not : Kodların bir kısmı bana aittir, bir kısmı ise alıntıdır. . .
DJ_YaKReB Fan Page | Facebook' dan alıntıdır. . .
Arkadaşlar yeni başlayan arkadaşlara yararlı olacağını umuyorum . . .
Eğer böyle bir anlatım varsa forumda kusura bakmayın, konuyu silebilirsiniz . . .
Eğer böyle bir anlatım varsa forumda kusura bakmayın, konuyu silebilirsiniz . . .
Kodlar : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "TurkHackTeam" And TextBox2.Text = "THT" Then
MsgBox("Hoş Geldiniz", MsgBoxStyle.Information, "Hoş Geldiniz ")
TextBox1.Visible = False
TextBox2.Visible = False
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Button1.Visible = False
Form2.Show()
Else
MsgBox("Hatalı Giriş !", MsgBoxStyle.Critical, "Hata")
Me.Close()
End If
End Sub
Not : Kodların bir kısmı bana aittir, bir kısmı ise alıntıdır. . .
DJ_YaKReB Fan Page | Facebook' dan alıntıdır. . .
Son düzenleme: