سوال در مورد مقدار بازگشتی MsgBox

[elmira_63]

سلام
یه شرط میخوام بزارم روی یک msgbox که از نوع Yes , NO که اگه yes رو کاربر زد فلان کار رو انجام بده یادم نیست چی می نوشتم؟؟؟؟؟؟

***عنوان تاپیک ویرایش شد***
لطفا" از این به بعد از عناوین مناسب استفاده نمایید.(علیرضا مداح)


if msgbox.result=yes then
....
end if

[john smithair]

میتونی به این صورت کار کنی


SelectCase MsgBox("my msg box", MsgBoxStyle.YesNo, "ffff")
Case MsgBoxResult.Yes
"کارمورد نظرت رو این جا بنویس"
Case MsgBoxResult.No
"کارمورد نظرت رو این جا بنویس"
EndSelect

ندانستن عیب است نپرسیدن عیب نیست!!!!

[baran_mehr]

کافی خروجی msgbox رو برسی کنی.هر کدوم یک شماره دارن

i=msgbox()
البته دستورmsgbox کامل بزار و بعد برسی شرط:

if i=1 then
دستورات
end if

[baran_mehr]

سلام عزیزم.
برات یک مثال میزارم تا بهتر متوجه بشی:

Dim i As Integer

i = MsgBox("پیغام", MsgBoxStyle.YesNoCancel)

If i = 2 Then
'دستورات cancel
ElseIf i = 6 Then
'دستورات Yes
ElseIf i = 7 Then
'دستورات no
End If

[touraj]

به نقل از MSDN:

Dim msg As String
Dim title As String
Dim style As MsgBoxStyle
Dim response As MsgBoxResult
msg = "Do you want to continue?" ' Define message.
style = MsgBoxStyle.DefaultButton2 Or _
MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
title = "MsgBox Demonstration" ' Define title.
' Display message.
response = MsgBox(msg, style, title)
If response = MsgBoxResult.Yes Then ' User chose Yes.
' Perform some action.
Else
' Perform some other action.
End If

[touraj]

سلام عزیزم.
برات یک مثال میزارم تا بهتر متوجه بشی:

Dim i As Integer

i = MsgBox("پیغام", MsgBoxStyle.YesNoCancel)

If i = 2 Then
'دستورات cancel
ElseIf i = 6 Then
'دستورات Yes
ElseIf i = 7 Then
'دستورات no
End If

خب دوست عزیز، وقتی به این سبک راهنمایی می کنی، لااقل جدول کدها رو هم براش بذار.

جدول کدها:

OK
1

Cancel
2

Abort
3

Retry
4

Ignore
5

Yes
6

No
7

[reza6384]

اینجوری هم می شه، برای اینکه توی ترتیب آیتم ها اشتباه نکنی به نظر من بهتره :



Dim R As MsgBoxResult = MsgBox("Your Message", MsgBoxStyle.YesNoCancel)
If R = MsgBoxResult.Yes Then
' yes statement
ElseIf R = MsgBoxResult.No Then
' no statement
ElseIf R = MsgBoxResult.Cancel Then
'cancel statement
End If