event برای دکمه msgBox

[kia_programmer]

سلام.من یه سوال داستم.
اینکه چجوری میشه برای دکمه هایی که در msgbox هستش, کد نوشت
مثلا با زدن دکمه no برنامه cancel بشه.
متشکرم. :oops:

[hadi2345]

با سلام .


Dim res As Integer

res = MsgBox("Are You Sure?", vbYesNo, "Delete Table")
If res = 7 Then
Unload Me ' click no
Exit Sub
Else
Call Clear_Table ' click yes
End If
موفق باشید.

[kia_programmer]

مرسی عزیز

ولی در مورد msgbox هایی که سه دکمه دارند چی :گیج: :گیج: :confy2: :strange:
yes no cancel :wink:

[sasanhe]

if msgbox("message",VbYesNoCancel,"title")=vbyes then
condition
elseif msgbox("message",VbYesNoCancel,"title")=vbno then
condition
elseif msgbox("message",VbYesNoCancel,"title")=vbcancel then
Condition
endif

[hadi2345]

با سلام مجدد .
مقادیر برگشتی دکمه ها به صورت عدد :
ok=1
cancel=2
abort=3
retry=4
ignore=5
yes=6
no=7
موفق باشید.

[kia_programmer]

دست شما خیییییییییییییییییییییییی ییییلی درد نکنه
خیلی مخلصیم. :kaf:

[حامد مصافی]

با سلام
در کدی که هادی خان نوشتند اگر تغیر res رو از نوع vbMsgBoxresult تعریف کنید کارتون راحت تره