M 1
m2referencee
Fethi Polat 1
Fethi Polat
InfernoShade 1
InfernoShade
farkmt2official 1
farkmt2official
romegames 1
romegames
bikral 1
bikral
PrimeAC 1
PrimeAC
shrpnl 1
shrpnl
Agora Metin2 1
Agora Metin2
xranzei 1
xranzei
Bvural41 1
Bvural41
Hikaye Ekle

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

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. 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