اشکال در مورد Msgbox دست ساز

[Mahsa Hatefi]

سلام بر دوستان عزیز این فوروم
من برای پیام فرمی دلخواه طراحی طراحی کردم .اما یه مشکل دارم . توی msgbox دستورات بعد از msgbox منتظر می مانند تا شما دگمه ی روی msgbox رو فشار دهید و بعد اجرا شوند . ولی توی فرمی که من برای پیام طراحی کردم دستورات بعد را نمی دانم چگونه کنترل کنم . مثلا فرض کنید از فرم پیام با گرفتن "بلی" باید دستوری رو اجرا کنه و با گرفتن "خیر" دستور دیگری . البته میتونم با یه select case توی فرم پیام این مشکلو حل کنم اما دلم میخواد بدونم چه ویژگی توی msgbox وجود داره که این کارو راحت می کنه ؟
توی یه تاپیکی آقای مصطفی نکات جالبی در این مورد فرموده بودند اما این مشکل بیان نشده بود .
از بذل محبت دوستانی که عنایت می فرمایند نهایت تشکر را دارم .

[mohkhosh]

فکر کنم اگه yes or no در msgbox رو معادل command botton در نظر بگیری راحت میتونی برنامه ات رو بنویسی و پیغامت رو تکمیل بنویسی

[Mahsa Hatefi]

دوست عزیز منظورتون رو نمی فهمم

[moustafa]

خانم hatefi
من دقیقا منظور شمارا نگرفتم البته در مورد مشابه یه سری مشکلاتی داشت که حلش کرده بودم فقط نمی دانم کجا گذاشتم اگه خیلی مهمه نمونه فایل را بذار شاید دوستان بیشتر بتونند کمک کنند

[Mahsa Hatefi]

به روی چشم
اینم نمونه .

[moustafa]

اگر منظورتون صرفا اونچیزی که بیان کردی روش کار کردم
msgbox را با فرمهای دست ساز مقایسه نکن اون چیزی که از فرمها انتظار داری در پاسخ به کلیدهای مربوطه ایجاد کن

[karmand]

Public Sub tamr_naghsh()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "ایا از دستگاه نقش تمبر استفاده شده یا خیر ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Me.txtba_bi_tamr = 3
Me.lblstar.Left = Me.Lbl3.Left - 500
Me.lblstar.Top = Me.Lbl3.Top
Else
Me.txtba_bi_tamr = 1
Me.lblstar.Left = Me.Lbl1.Left - 500
Me.lblstar.Top = Me.Lbl1.Top
End If
End If

End Sub

[moustafa]

نوشته شد توسط karmand

Public Sub tamr_naghsh()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "ایا از دستگاه نقش تمبر استفاده شده یا خیر ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Me.txtba_bi_tamr = 3
Me.lblstar.Left = Me.Lbl3.Left - 500
Me.lblstar.Top = Me.Lbl3.Top
Else
Me.txtba_bi_tamr = 1
Me.lblstar.Left = Me.Lbl1.Left - 500
Me.lblstar.Top = Me.Lbl1.Top
End If
End If

End Sub
مرسی

[sarami]

شرمنده این نظر شخصی منه
ولی اینکار به نظر من منطقی نیست چون وقتی شما میتونین از توابع داخلی ویندوز استفاده کنین و بسته به نیازتون اونو یه جورایی تغییر بدین که customize بشه لزومی به طراحی مجدد ندارین. به این تاپیک هم یه سری یزنین فکر میکنم نظراتتون رو بر آورده کنه
http://www.barnamenevis.org/forum/showthread.php?t=37686