发布网友
共2个回答
热心网友
先把控件添加
caption属性设置好
如果你要每个单选按钮单机都会弹出这个对话框的话
这样写
弹出的内容可以根据自己需要修改
Private
Sub
Option1_Click()
MsgBox
"答对一半,5分",
,
"bingo!"
End
Sub
Private
Sub
Option2_Click()
MsgBox
"答对一半,5分",
,
"bingo!"
End
Sub
Private
Sub
Option3_Click()
MsgBox
"答对一半,5分",
,
"bingo!"
End
Sub
Private
Sub
Option4_Click()
MsgBox
"答对一半,5分",
,
"bingo!"
End
Sub
Private
Sub
Option5_Click()
MsgBox
"答对一半,5分",
,
"bingo!"
End
Sub
热心网友
当单选钮被选中后触发msgbox,即弹出对话框,设置对话框的参数即可。