Vb.Net If Örnek

17 Ocak 2011 26 Kasım 2020 tarihinde düzenlendi 15716 kez okundu Okuma süresi: 1dk, 8sn

Vb.Net If Örnek

Merhaba arkadaşlar,

Bir önceki konuda if yapısıyla ilgili basit bir örnek vermiştik,

Konunun biraz daha iyi anlaşılması için If ile ilgili başka bir örnek hazırladık.

Vb.Net le basit bir form oluşturacağız, Kullanıcı girişi formu olacak, kullanıcı adı ve şifre doğruysa giriş yapılabilecek ve yeni bir panel açılacak, eğer doğru değilse bununla ilgili bir hata msjı çevirecek.

İlk olarak tasarımımıza toolbox kısmından İki adet label, iki adet textbox, bir panel kutusu ve birde buton ekliyoruz.

Formun yüklendiği olayında panelimizi gizliycez ve textboxlara girilecek kullanıcı adı ve şifre doğruysa panelimiz görünür hale gelecek.

Kodlarımız;

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Panel1.Visible = False
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Kullanıcı As String
Dim Parola As String
Kullanıcı = TextBox1.Text
Parola = TextBox2.Text
If Kullanıcı = "Admin" And Parola = "Şifre" Then
Panel1.Visible = True
Else
MsgBox("Kullanıcı Adınız veya Parolanız Hatalı.")
End If
End Sub
End Class

Ekran Görüntüsü;