xranzei 1
xranzei
Agora Metin2 1
Agora Metin2
Bvural41 1
Bvural41
romegames 1
romegames
noisiv 1
noisiv
Manwe Work 1
Manwe Work
Best Studio 1
Best Studio
Hikaye Ekle
Reklam vermek için turkmmo@gmail.com

Visual Basic Beni Hatırla Özelliği Yapımı

  • Konuyu başlatan Konuyu başlatan ßyMesMes
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 0
  • Görüntüleme Görüntüleme 583

ßyMesMes

'Sıradışı Emekli Admin
Telefon Numarası Onaylanmış Üye TC Kimlik Numarası Doğrulanmış Üye
Fahri Üye
Paylaşım
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
Ticaret - 0%
0   0   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:
  1. 2 textbox
  2. 2 checkbox
  3. 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..
rplw6.jpg


Resimde gösterdiğim yere çift tıklayın.

rply5.jpg


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.

Kaynak Dosyayı İndirmek İçin

Virusotti Sonuçları İçin

NOT: Anlatım Burak Yılmaz'a aittir, alıntıdır.​
 

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Geri
Üst