- 2 Adet Label
- 2 Adet Text
- 1 Command Button
Yukardakileri kendinize göre form yerleştirin... Sonra kod menüsünü açıp aşağıdaki kodları ekleyip kendinize göre düzenleyin...
Private Sub Command1_Click()
Select Case Text1.Text `Bu kısımda kullanıcı adı kısmını tanıtıyoruz
Case Is = "" `Burada ise kullanıcı kısmı boş olduğunda ne yapmak istediğiniz seçersiniz
MsgBox " Biryeri Boş Bırakmışsınız.."
Case Is = "kullanici adi" `kullanıcı adının kullanici adi olduğunu tanıttık
If Text2.Text = "sifreburaya" Then `Kullanıcını Şifresi
MsgBox ("Hoşgeldiniz/Welcome")
End If
Case Else `Eğer kullanıcı adı Dogru Değilse
MsgBox "Üzgünüz.Böyle bir kullanıcı adı bulunmamaktadır."
- 2 Adet Text
- 1 Command Button
Yukardakileri kendinize göre form yerleştirin... Sonra kod menüsünü açıp aşağıdaki kodları ekleyip kendinize göre düzenleyin...
Private Sub Command1_Click()
Select Case Text1.Text `Bu kısımda kullanıcı adı kısmını tanıtıyoruz
Case Is = "" `Burada ise kullanıcı kısmı boş olduğunda ne yapmak istediğiniz seçersiniz
MsgBox " Biryeri Boş Bırakmışsınız.."
Case Is = "kullanici adi" `kullanıcı adının kullanici adi olduğunu tanıttık
If Text2.Text = "sifreburaya" Then `Kullanıcını Şifresi
MsgBox ("Hoşgeldiniz/Welcome")
End If
Case Else `Eğer kullanıcı adı Dogru Değilse
MsgBox "Üzgünüz.Böyle bir kullanıcı adı bulunmamaktadır."