Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!
İlk önce böyle bir form oluşturalım
2 label
2 text1
1 command
ekleyin ve kendinize göre forma yerleştirin
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 " Bu kısmı boş bırakamssınız"
Case Is = "ahmet" 'kullanıcı adının ahmet olduğunu tanıttık
If Text2.Text = "1234" Then 'Yapılmasını istenen olay
MsgBox ("Hoşgeldiniz")
End If
Case Else 'Eğer kullanıcı doğru değilse
MsgBox "Böyle bir kullanıcı adı bulunmamaktadır"
End Select 'kapanış
End Sub
'Yukarıda bulunan kodları ne kadar çoğlatırsanız o kadar çok kullanıcı açmış olursunuz
2 label
2 text1
1 command
ekleyin ve kendinize göre forma yerleştirin
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 " Bu kısmı boş bırakamssınız"
Case Is = "ahmet" 'kullanıcı adının ahmet olduğunu tanıttık
If Text2.Text = "1234" Then 'Yapılmasını istenen olay
MsgBox ("Hoşgeldiniz")
End If
Case Else 'Eğer kullanıcı doğru değilse
MsgBox "Böyle bir kullanıcı adı bulunmamaktadır"
End Select 'kapanış
End Sub
'Yukarıda bulunan kodları ne kadar çoğlatırsanız o kadar çok kullanıcı açmış olursunuz
