- Katılım
- 3 Şubat 2014
- Mesajlar
- 1,744
- Tepkime puanı
- 0
- Puanları
- 0
Bu dersimizde VB.net ile giriş sistemli programlar için "beni hatırla" özelliği yapımını öğrenelim.
Forma eklenecekler:
* Timer eklememizin sebebi şu, kullanıcı ilk önce checkbox'a basıp id şifresini girerse kaydetsin diye.. Eğer ki timer'a yazacağımız kodları checkbox'a yazsaydık kullanıcı ilk önce checkbox'a tıklasa ve id'sini girse bilgileri kaydetmezdi.
Yukarıda dediklerimi forma ekledikten sonra..
Resimde gösterdiğim yere çift tıklayın.
Resimde gösterdiğim gibi yapın... Sonra ilk fotoda gösterdiğim yerden form1'e tıklayın. Altta dediklerimi uygulayın.
Timer içerisine
Kod:
If CheckBox1.Checked = True Then
My.Settings.id = TextBox1.Text
My.Settings.Save()
End If
If CheckBox2.Checked = True Then
My.Settings.sifre = TextBox2.Text
My.Settings.Save()
End If
If CheckBox1.Checked = False Then
My.Settings.id = ""
My.Settings.Save()
End If
If CheckBox2.Checked = False Then
My.Settings.sifre = ""
My.Settings.Save()
End If
Formun load kısmına:
Kod:
Timer1.Enabled = True
TextBox1.Text = My.Settings.id
TextBox2.Text = My.Settings.sifre
If TextBox1.Text = "" Then
Else
CheckBox1.Checked = True
End If
If TextBox2.Text = "" Then
Else
CheckBox2.Checked = True
End If
Bunları yazın.
Forma eklenecekler:
- 2 textbox
- 2 checkbox
- 1 timer ( interval = 1 )
* Timer eklememizin sebebi şu, kullanıcı ilk önce checkbox'a basıp id şifresini girerse kaydetsin diye.. Eğer ki timer'a yazacağımız kodları checkbox'a yazsaydık kullanıcı ilk önce checkbox'a tıklasa ve id'sini girse bilgileri kaydetmezdi.
Yukarıda dediklerimi forma ekledikten sonra..
Resimde gösterdiğim yere çift tıklayın.
Resimde gösterdiğim gibi yapın... Sonra ilk fotoda gösterdiğim yerden form1'e tıklayın. Altta dediklerimi uygulayın.
Timer içerisine
Kod:
If CheckBox1.Checked = True Then
My.Settings.id = TextBox1.Text
My.Settings.Save()
End If
If CheckBox2.Checked = True Then
My.Settings.sifre = TextBox2.Text
My.Settings.Save()
End If
If CheckBox1.Checked = False Then
My.Settings.id = ""
My.Settings.Save()
End If
If CheckBox2.Checked = False Then
My.Settings.sifre = ""
My.Settings.Save()
End If
Formun load kısmına:
Kod:
Timer1.Enabled = True
TextBox1.Text = My.Settings.id
TextBox2.Text = My.Settings.sifre
If TextBox1.Text = "" Then
Else
CheckBox1.Checked = True
End If
If TextBox2.Text = "" Then
Else
CheckBox2.Checked = True
End If
Bunları yazın.