visual basic 6.0 kullanıcı girişi

[Faruk16]

merhaba arkadaşlar ben bi kullanıcı girişi yapmaya çalışıyorum ama daha acemi olduğum için yapamıyorum şöyle kısabi şekilde anlatabilirseniz sevinirim

[eRd0qan]

Vbkodbank ta şu şekilde verilmiş;

İ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