پرسیدن پسورد فقط دفعه اول

سلام .
اگه مي شه بهم بگيد چه طوري :

مي خوام يه تكس باكس داشته باشم به عنوان تكس باكس پسورد . و يه دكمه به عنوان ok .
حالا مي خواستم وقتي كارير يك بار پسورد رو درست وارد مي كنه دفعه بعد كه برنامه باز مي شه ديگه اون فرم پسورد رو نبينه ؟

سلام.
شما باید یه نشونه یه جا ذخیره کنی. بعد از وارد کردن پسورد مثلا تو رجیستری یه ولیو ایجاد کنی یا یه فایل بسازی. بعد تو فرم لود چک کنی ببینی اون ولیو یا فایل موجوده یا نه. اگه نبود پسورد بپرس. اگه بود نپرس. اگه تو رجیستری نشونه بذاری بهتره.

جنا آقای پیمان درست فرمودن یه جایی باید یه نشونی است رمز ورودتان بگزارید. تا دستورتون اجرا شود
از این سورس استفاده کن.

کد:

---

Public LoginSucceeded As Boolean
Private Sub Command1_Click()
    If Text1.Text = "taknik" Then
Form1.Visible = False
Form2.Show
    Else
MsgBox "ÑãÒ æÑæÏ ÕÍíÍ äãí ÈÇÔÏ"
Text1.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

Private Sub Form_Load()
  If (Len(GetSetting(App.EXEName, "Settings", "text1", ""))) Then
      Text1 = GetSetting(App.EXEName, "Settings", "text1", "")
  End If
      If Text1.Text = "taknik" Then
Form1.Visible = False
Form2.Show
End If
End Sub

Private Sub Text1_Change()
  SaveSetting App.EXEName, "Settings", "text1", Text1
End Sub

---

دوست عزيز شما به وسيله بنك اطلاعاتي نيز ميتوانيد اين كار را انجام دهيد .
-------------------------------------------------------------------------------------------------
نيمه شعبان بر همه مسلمين مباركباد .