[font='Trebuchet MS', Helvetica, Arial, sans-serif]Bu derste size kilit ekranı yapmayı göstereceğim.[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Öncelikle forma şunları yapıyoruz:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]TopMost=True[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]WindowState=Maximized[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]FormBorderStyle=None[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Sonra 1 textbox ve 1 button ekliyoruz.[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Button'a şu kodları yazıyoruz:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Kod:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Şimdi formu çalıştıralım.[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Öncelikle forma şunları yapıyoruz:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]TopMost=True[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]WindowState=Maximized[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]FormBorderStyle=None[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Sonra 1 textbox ve 1 button ekliyoruz.[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Button'a şu kodları yazıyoruz:[/FONT]
[font='Trebuchet MS', Helvetica, Arial, sans-serif]Kod:[/FONT]
Kod:
If TextBox1.Text = "buraya şifre yazılacak" Then
Me.Close()
Else
MsgBox("Bu parola hatalı.", 16, "Hata")
End If[font='Trebuchet MS', Helvetica, Arial, sans-serif]Şimdi formu çalıştıralım.[/FONT]