ساخت صفه ورود

[دل شكسته]

سلام ببخشيد وستا كسي نمونه صفه ورود دار
مخوام وقتي كاربر زمز خود را وارد تكس باكس كرد اگه درت بود وار بشه در

نه اينكه كليد ورود بزنه

فقط رمز يو نمي خوام

اگه كسي نمونه داره منون ميشم كمك كنه

[mbza11]

سلام.

سلام ببخشيد وستا كسي نمونه صفه ورود دار
مخوام وقتي كاربر زمز خود را وارد تكس باكس كرد اگه درت بود وار بشه در
نه اينكه كليد ورود بزنه

فقط رمز يو نمي خوام

اگه كسي نمونه داره منون ميشم كمك كنه

8 تا غلط داشتي، املا مي شي 12 (تازه جمله بندي رو تخفيف دادم).

بهترين کار (در اين شرايطي که مي خواي) اينه که کدهاي مربوط به چک کردن رمز رو تو رويداد Lost_Focus جعبه متن بنويسي.
در کل پيشنهاد مي کنم اين کار رو نکني، چون کاربر گمراه مي شه. شايد بهتر باشه به کاربر بگي بعد از وارد کردن رمز کليد Enter رو بزنه اونوقت تو رويداد Key_Press بياي و اگه کد اسکي کليد ورودي مربوط به اينتر (13 يا 10) بود، رمز رو چک کني.

موفق باشي.

[Di Di]

دوست دل شكسته

شما بايد يه فرم اول پروژه اضافه كنيد كه يه تكست باكس داره و يه كامند باتون.

كاربر رمز ورود رو داخل اون تكست باكس مي نويسه و روي كامند باتون كليك مي كنه

داخل ايونت كليك كامند باتون بايد چك كنيد آيا كلمه اي كه داخل تكست باكس نوشته شده با كلمه رمز برنامه مطابقت داره يا نه

اگه مطابقت داشت فرم اصلي برنامه رو نشون بديد در غير اين صورت يه پيغام خطا.

حالا هر جاش رو كه خوب نفهميديد يا باهاش مشكب داريد بفرماويد تا دقيق تر توضيح بدم.

[HoseinVig]

سلام ببخشيد وستا كسي نمونه صفه ورود دار
مخوام وقتي كاربر زمز خود را وارد تكس باكس كرد اگه درت بود وار بشه در

نه اينكه كليد ورود بزنه

فقط رمز يو نمي خوام

اگه كسي نمونه داره منون ميشم كمك كنه

سلام ببخشید میدونم اینجا جاش نیست .
جناب دل شکسته شما قبلا یه یاهو آیدی به اسم mrz202 نداشتی؟

[Scorpion]

توی تکست باکس رویه chenge اینو بنویس

Private Sub txtPassword_Change()

curpass =akbar
If txtPassword = curpass Then
Me.Hide
Form1.Show
End If
End Sub

---

کد:

Option Explicit

Public LoginSucceeded As Boolean



Private Sub cmdCancel_Click()
    'set the global var to false
    'to denote a failed login
    Dim an As Integer
    an = MsgBox("Do you want to exit?", vbYesNo)
        If an = 6 Then End
    End Sub

Private Sub cmdOK_Click()
    Dim curpass As String
curpass = "akbar"
    If txtPassword = curpass Then
        
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

Private Sub txtPassword_Change()
Dim curpass As String
curpass = "akbar"
If txtPassword = curpass Then
Me.Hide
MsgBox "password dorost ast"
End If
End Sub