View Full Version : سوال در مورد مقدار بازگشتی MsgBox
elmira_63
شنبه 04 خرداد 1387, 16:16 عصر
سلام
یه شرط میخوام بزارم روی یک msgbox که از نوع Yes , NO که اگه yes رو کاربر زد فلان کار رو انجام بده یادم نیست چی می نوشتم؟؟؟؟؟؟
***عنوان تاپیک ویرایش شد***
لطفا" از این به بعد از عناوین مناسب استفاده نمایید.(علیرضا مداح)
if msgbox.result=yes then
....
end if
john smithair
شنبه 04 خرداد 1387, 16:32 عصر
میتونی به این صورت کار کنی
SelectCase MsgBox("my msg box", MsgBoxStyle.YesNo, "ffff")
Case MsgBoxResult.Yes
"کارمورد نظرت رو این جا بنویس"
Case MsgBoxResult.No
"کارمورد نظرت رو این جا بنویس"
EndSelect
ندانستن عیب است نپرسیدن عیب نیست!!!!
baran_mehr
شنبه 04 خرداد 1387, 16:36 عصر
کافی خروجی msgbox رو برسی کنی.هر کدوم یک شماره دارن
i=msgbox()
البته دستورmsgbox کامل بزار و بعد برسی شرط:
if i=1 then
دستورات
end if
baran_mehr
شنبه 04 خرداد 1387, 18:45 عصر
سلام عزیزم.
برات یک مثال میزارم تا بهتر متوجه بشی:
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
یک شنبه 05 خرداد 1387, 08:12 صبح
به نقل از 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
یک شنبه 05 خرداد 1387, 08:17 صبح
سلام عزیزم.
برات یک مثال میزارم تا بهتر متوجه بشی:
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
دوشنبه 06 خرداد 1387, 18:02 عصر
اینجوری هم می شه، برای اینکه توی ترتیب آیتم ها اشتباه نکنی به نظر من بهتره :
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.