请问VB怎么设置d出对话框

先把控件添加

caption属性设置好如果你要每个单选按钮单机都会d出这个对话框的话

这样写

d出的内容可以根据自己需要修改Private

Sub

Option1_Click()

MsgBox

"答对一半,5分",

,

"bingo!"

End

SubPrivate

Sub

Option2_Click()

MsgBox

"答对一半,5分",

,

"bingo!"End

SubPrivate

Sub

Option3_Click()

MsgBox

"答对一半,5分",

,

"bingo!"

End

SubPrivate

Sub

Option4_Click()

MsgBox

"答对一半,5分",

,

"bingo!"

End

SubPrivate

Sub

Option5_Click()

MsgBox

"答对一半,5分",

,

"bingo!"

End

Sub

假设你有一个Form1窗体：还有一个Form2：现在要求点击Form1，d出Form2点击确定之后把Form2中的文本框内容给Form1的Label： 双击Form1中的按钮，写入代码：Form1Show

vbModal 在Form2中的“确定”按钮这样写代码：Form1Text1Text

=

MeText1Text （您可以参考：点击，

>

如果是帖子文字这样所有的IF都是判断一个变量，使用SELECT CASE文件是完美解决方案，在最后的CASE ELSE里面MSGBOX "全部都不满足"

真没办法看清楚，好像和帖子文本的不同，不是所有IF都判断一个变量，那还只有用IF判断，最后要检测所有的IF都没有满足，需要增加一个变量，按照帖子代码的框架这么写：

dim passed as boolean '定义变量

passed = false'初始化

if t1text =xx then

t2text=号码1

t3text=号码2

passed = true '设置标记

end if

if t1text =yy then

t2text=号码3

t3text=号码4

passed = true '设置标记

end if

'最后判断

if not passed then msgbox "全部都不满足"

以上就是关于请问VB怎么设置d出对话框全部的内容，包括:请问VB怎么设置d出对话框、VB中怎样设置自定义d出窗口、纯小白用VB写查询电话的程序，并列多条if then语句，想弄msgboxd窗怎么写，具体看下面等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！