سلام ببخشيد وستا كسي نمونه صفه ورود دار
مخوام وقتي كاربر زمز خود را وارد تكس باكس كرد اگه درت بود وار بشه در
نه اينكه كليد ورود بزنه
فقط رمز يو نمي خوام
اگه كسي نمونه داره منون ميشم كمك كنه
سلام.
(۰۳-مهر-۱۳۸۷, ۰۸:۳۴:۰۸)دل شكسته نوشته است: [ -> ]سلام ببخشيد وستا كسي نمونه صفه ورود دار
مخوام وقتي كاربر زمز خود را وارد تكس باكس كرد اگه درت بود وار بشه در
نه اينكه كليد ورود بزنه
فقط رمز يو نمي خوام
اگه كسي نمونه داره منون ميشم كمك كنه
8 تا غلط داشتي، املا مي شي 12 (تازه جمله بندي رو تخفيف دادم).
بهترين کار (در اين شرايطي که مي خواي) اينه که کدهاي مربوط به چک کردن رمز رو تو رويداد Lost_Focus جعبه متن بنويسي.
در کل پيشنهاد مي کنم اين کار رو نکني، چون کاربر گمراه مي شه. شايد بهتر باشه به کاربر بگي بعد از وارد کردن رمز کليد Enter رو بزنه اونوقت تو رويداد Key_Press بياي و اگه کد اسکي کليد ورودي مربوط به اينتر (13 يا 10) بود، رمز رو چک کني.
موفق باشي.
دوست دل شكسته
شما بايد يه فرم اول پروژه اضافه كنيد كه يه تكست باكس داره و يه كامند باتون.
كاربر رمز ورود رو داخل اون تكست باكس مي نويسه و روي كامند باتون كليك مي كنه
داخل ايونت كليك كامند باتون بايد چك كنيد آيا كلمه اي كه داخل تكست باكس نوشته شده با كلمه رمز برنامه مطابقت داره يا نه
اگه مطابقت داشت فرم اصلي برنامه رو نشون بديد در غير اين صورت يه پيغام خطا.
حالا هر جاش رو كه خوب نفهميديد يا باهاش مشكب داريد بفرماويد تا دقيق تر توضيح بدم.
(۰۳-مهر-۱۳۸۷, ۰۸:۳۴:۰۸)دل شكسته نوشته است: [ -> ]سلام ببخشيد وستا كسي نمونه صفه ورود دار
مخوام وقتي كاربر زمز خود را وارد تكس باكس كرد اگه درت بود وار بشه در
نه اينكه كليد ورود بزنه
فقط رمز يو نمي خوام
اگه كسي نمونه داره منون ميشم كمك كنه
سلام ببخشید میدونم اینجا جاش نیست .
جناب دل شکسته شما قبلا یه یاهو آیدی به اسم mrz202 نداشتی؟
توی تکست باکس رویه 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