怎样弹出带“确认”与“取消”按钮的提示框?
解决方案 »
- 用鼠标点击暴风影音的“播放”按钮,或者拖动进度条,怎么拦截?
- 100分诚求高手代码
- 动态创建自定义控件的事件问题
- winsock客户端连服务器端有时候连接失败,谁能告诉我原因?
- 如何删除随机文件中的任意一条记录!?
- 还是不懂啊
- 请教高手:怎样才能有效地杀掉Office进程(word,excel,ppt)
- 关于在VB里recv函数闭塞的问题
- commondialog控件是否可以一次选取多个文件?是用什么属性或者什么方法?请写出具体代码来。
- ADO访问中文表名的时候出错(ACCESS数据库),帮忙啊!!!!
- 百分求VB可更换的窗体代码
- [BlueDog] 关于Oracle 有没有办法不安装oracle客户端而使用ADO。或者有没有简易的安装程序
本示例使用 MsgBox 函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox 函数的返回值视用户按哪一个钮而定。本示例假设 DEMO.HLP 为一帮助文件,其中有一个内容代码为 1000。Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "MsgBox Demonstration" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If
bIdentifyAgain = MsgBox("指纹校验失败,请重新录入指纹。按“取消”退出!", vbOKCancel, "提示框")它的返回值bIdentifyAgain 似乎始终是真耶,不管按确认还是取消,咋回事啊
VBOK
VBCancel这两个之一!
if MsgBox("指纹校验失败,请重新录入指纹。按“取消”退出!", vbOKCancel, "提示框")=VbOK Then
MsgBox "OK按下"
else
msgbox "Cancel按下"
endif
IntReturn = MsgBox("警告:由于是个人记帐簿,请认真输入数据!", vbInformation + vbOKCancel, "信息提示")If IntReturn = vbOK Then
MsgBox "您按下了OK键!"
Else
MsgBox "您按下了Cancel键!"
EndIf