Vb6'da İlk olarak İf ve Else yapısını sizlere Giriş yaparak tanıtmak istiyorum.
Bir text bir buton koyalım.
Private Sub Command1_Click()
If Text1.Text = "Şifreniz..." Then
Form2.Show ' Şifre Doğruysa Form2 ye geçsin.
ElseIf Text1.Text = "" Then 'Text Boş Olursa hata mesajı vericek
MsgBox "Boş yeri doldurun", vbCritical, "Boş yer var." ' Eğer Textteki yer Boş ise Hata Mesajı
End If ' If Girişini kapatıyoruz.
End Sub
Ilk ıf satırında şartı tanıttık. 2. ıf satırında doğruysa yapacağını anlattık. 3. Elseİf Satırında Ne Ne Olursa (yanlış işlem olduğunda) yapacağı şeyi anlattık. End If tarzında girişi kapattık Ve Giriş Sistemi hazırladık.
İyi Forumlar. :mml
İlgi görürse devamı gelir. :yo
Bir text bir buton koyalım.
Private Sub Command1_Click()
If Text1.Text = "Şifreniz..." Then
Form2.Show ' Şifre Doğruysa Form2 ye geçsin.
ElseIf Text1.Text = "" Then 'Text Boş Olursa hata mesajı vericek
MsgBox "Boş yeri doldurun", vbCritical, "Boş yer var." ' Eğer Textteki yer Boş ise Hata Mesajı
End If ' If Girişini kapatıyoruz.
End Sub
Ilk ıf satırında şartı tanıttık. 2. ıf satırında doğruysa yapacağını anlattık. 3. Elseİf Satırında Ne Ne Olursa (yanlış işlem olduğunda) yapacağı şeyi anlattık. End If tarzında girişi kapattık Ve Giriş Sistemi hazırladık.
İyi Forumlar. :mml
İlgi görürse devamı gelir. :yo
Son düzenleme: