您的位置：程序门 -> vb -> 基础类

用if语句

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

用if语句

发表于：2007-03-31 09:04:44 楼主

怎么样按了一个按钮后自动弹出对话框啊

发表于：2007-03-31 09:45:351楼得分:0

private sub command1_click（)
dim msg, style, title, help, ctxt, response, mystring
msg = "结束程序 ? " ' 定义信息。
style = vbyesno + vbcritical + vbdefaultbutton2 ' 定义按钮。
title = "结束程序 " ' 定义标题。
help = "demo.hlp " ' 定义帮助文件。
ctxt = 1000 ' 定义标题
' 显示信息。
response = msgbox（msg, style, title, help, ctxt)
if response = vbyes then ' 用户按下“是”。
mystring = "yes " ' 完成某操作。
end
else ' 用户按下“否”。
mystring = "no " ' 完成某操作。
end if
end sub

发表于：2007-03-31 15:10:062楼得分:0

楼上可以到ms做msdn去了，呵呵！

下一篇：想用vb写个判断是否为数值的函数
上一篇：电脑爱好者,欢迎高手加入,群号1132219

其他资讯