- Katılım
- 2 Ağu 2010
- Konular
- 5,330
- Mesajlar
- 24,645
- Çözüm
- 54
- Online süresi
- 1mo 20d
- Reaksiyon Skoru
- 6,396
- Altın Konu
- 425
- Başarım Puanı
- 514
- MmoLira
- -2,509
- DevLira
- 0
ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!
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
Formun load kısmına:
Bunları yazın.
Kaynak Dosyayı İndirmek İçin
Virusotti Sonuçları İçin
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 IfFormun 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 IfBunları yazın.
Kaynak Dosyayı İndirmek İçin
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
Virusotti Sonuçları İçin
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
NOT: Anlatım Burak Yılmaz'a aittir, alıntıdır.