[asemshahen5]

ضع ثلاث متغيرات في السيتنغ اثنان مننوع استرنغ وواحد من نوع بولين .
ضعهم كالتالي :
1- String : UserNameXT
2- String : PasswordXT
3- Boolean : RemmperMe

   

ضع على فورم إثنين تيكست بوكس و تشك بوكس واحدة .

كالتالي :
TextBox Name : Txt_UserNameXT
TextBox Name : Txt_PasswordXT
CheckBox : Chk_RemmperMe

   

عند تسجيل الدخول اذا أردت ان تحفظ اسم المستخدم و كلمة لمرور بشكل دائم و لا تقوم بكتابتهم كل مرة تضغط على التشك بوكس ( RemmperMe ) لتعطي اشارة الصح .

كود تسجيل الدخول و حفظ اسم المستخدم و كلمة المرور ليتم ظهورهم بشكل تلقائي دون كتابتهم كل مرة :

PHP كود :

   Private Sub BtnOk_Click(sender As System.Object, e As System.EventArgs) Handles BtnOk.Click
        '' كود التذكر
        If Chk_RemmperMe.Checked Then
            My.Settings.RemmperMe = Chk_RemmperMe.Checked
            My.Settings.UserNameXT = Txt_UserNameXT.Text
            My.Settings.PasswordXT = Txt_PasswordXT.Text
            My.Settings.Save()
        Else
            My.Settings.RemmperMe = False
            My.Settings.UserNameXT = ""
            My.Settings.PasswordXT = ""
            My.Settings.Save()
        End If
        '' كود الاستعلام الخاص بتسجيل الدخول
        If Txt_UserNameXT.Text = "Admin" And Txt_PasswordXT.Text = "Admin" Then
            Dim frm As New MainFrm
            frm.Show()
            Close()
        End If
    End Sub 


كود تحميل الفورم عند التشغيل :

PHP كود :

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
                If My.Settings.RemmperMe Then
            Txt_UserNameXT.Text = My.Settings.UserNameXT
            Txt_PasswordXT.Text = My.Settings.PasswordXT
            Chk_RemmperMe.Checked = My.Settings.RemmperMe
        Else
            Txt_UserNameXT.Clear()
            Txt_PasswordXT.Clear()
        End If
    End Sub