Question

VB中主窗体怎么样对弹出的对话框是Dialog上OKButton_Click()还是CancelButton_Click()作出判断？

有个主窗体Form1，还有个对话框Dialo，
主窗体Form1怎么样来判断对话框Dialo是OKButton_Click（）还是CancelButton_Click()
来值行IF语句？
Private Sub Command1_Click()
Dialog.Show 1
If （这里怎么判断Dialog的动作？是Dialog上OKButton_Click()还是CancelButton_Click()）
Then 语句块.......
End If

End Sub

Answer 1

印象中直接加操作，IF神马的用不着
比方说：
Dialog1.Show Save
Shell "cmd /c start " & Dialog1.Filename
Msgbox"操作已完成"
因为弹出对话框相当于属性赋值，真正操作得自己写代码，不过同样的，在对话框Show后的代码就可以直接引用它的属性了，比方说我用的Filename属性，当程序执行到
Dialog1.Show Save
一句时，代码暂停向下，等待用户响应对话框后，代码继续
在用户响应对话框的一瞬间，属性就赋完了

Answer 2

你的dialog是什么（保存对话框？打开对话框？），如果是对话框象下面的，如果是窗体，可以在form1中公共区声明一个变量public strTemp as string，然后在dialog点按钮之后给这个strTemp赋值，比如点OK后就是strTemp=“OK”这种

Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”
MyString = "Yes" ' 完成某操作
Else ' 用户按下“否”
MyString = "No" ' 完成某操作
End If

追问

dialog是窗口，在form1中公共区声明一个变量public strTemp as string，然后在dialogOKButton_Click()之后给这个strTemp＝“OK”
If strTemp = OK Then
Shell "notepad"
End If
不行啊
编译错误：变量未定义

追答

少写了，dialogOKButton_Click()的时候你写form1.strTemp="OK"

Answer 3

dim result
result= Dialog.Show(1)
if result = vbOK Then

else

end if
这里要注意啊
按钮时与你显示的设置有关 比如 msgbox 里面就有好几个选项，不同选项的按钮不一样的