كـ.ـ.ـ.مـ.ـ.ـ.ـكـ.ـ.ـ.ـ.ــــ.... ـ.ـــ......ـ

[Astarali]

سلام.
من رو يه پروژه اي كار ميكنم كه اول ميخوام يوزر پسورد بذارم.

به طوري كه اگه يوزر1 تو كومبو باكس انتخاب شده باشه و تو تكتست هم 1234 باشه بره فرم بعدي

و اگه يوزر2 انتخاب شده باشه و تو تكست 258456 باشه بره فرم بعدي

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
لطفا راهنمائيم كنيد....

[moshaveran]

دوست عزيز مي توني با نوشتن اين دستورات داخل يه button اينكار رو انجام بدي:

if combobox.text="user1" and textbox.text="1234" then
form2.show
else
if combobox1.text="user2" and textbox.text="45678" then
form3.show
else
"نام كاربر و كلمه عبور اشتباه است" msgbox
end if
end if

[Astarali]

دوست عزيز مي توني با نوشتن اين دستورات داخل يه button اينكار رو انجام بدي:

if combobox.text="user1" and textbox.text="1234" then
form2.show
else
if combobox1.text="user2" and textbox.text="45678" then
form3.show
else
"نام كاربر و كلمه عبور اشتباه است" msgbox
end if
end if

خیلی ممنون moshaveran جان...
دستت درد نکنه...

---------- Post added at 08:55 AM ---------- Previous post was at 08:54 AM ----------

حالا راستی تکست کومبو رو کجا بدم؟
همین که یوزر1 و 2 نوشتم این درسته؟

[moshaveran]

خیلی ممنون moshaveran جان...
دستت درد نکنه...

---------- Post added at 08:55 AM ---------- Previous post was at 08:54 AM ----------

حالا راستی تکست کومبو رو کجا بدم؟
همین که یوزر1 و 2 نوشتم این درسته؟

:46:منظورتو متوجه نشدم. تو مي توني به جاي يوزر و پسوردت توي اين دستور هر چيز ديگه اي بزاري:
if combobox.text="user1" and textbox.text="1234" then
if combobox.text="َAstarali" and textbox.text="m4kj0" then

كاش يكيم پيدا ميشد جواب سوالاي منو ميداد.:19:

[Astarali]

ميخام كاري كنم كه دكمه Esc زده شد برگرده به فرم اصلي...

كدش چيه و بايد تو كدوم قسمت بنويسم؟

[moshaveran]

ميخام كاري كنم كه دكمه Esc زده شد برگرده به فرم اصلي...

كدش چيه و بايد تو كدوم قسمت بنويسم؟

تو رويداد keypress فرمت اين كد رو بنويس:

If KeyCode = vbKeyEscape Then
Form_base.show
Unload me
End if

[Astarali]

تو رويداد keypress فرمت اين كد رو بنويس:

If KeyCode = vbKeyEscape Then
Form_base.show
Unload me
End if

يني تو رويداد كي پرس فرم بنويسم؟‌