VB如何设置d出对话框

先把控件添加

caption属性设置好

如果你要每个单选按钮单机都会d出这个对话框的话

这样写

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

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

打开一个Excel文档，点击工具栏上的，开发工具选项

选择插入，下拉出来的activex控件，选择第一个按钮，拖动到界面上来

拖动按钮出来，我们需要修改名字和标题，在按钮上点击右键，然后选属性

在d出的属性界面，修改按钮的名称和标题，分别为cmdok,ok

在设计模式下双击按钮，打开代码事件，写上一句d出框代码保存

然后会到编辑界面，点击设计模式，界面就会退出设计模式，这时点击按钮，他就会执行代码

点击一下，就按照我们写的代码d出的okd出来了

解决方案一：

1

选择【审阅】-【修订】-【修订选项】按钮。

2

将【修订行】出的下拉菜单改成【无】，确定即可。

3

注意：在这种状态下，对文档的修订还是存在的，只不过不显示修订边框而已。

end

解决方案二：

1

选择【审阅】-【最终状态】即可。

2

注意：在这种状态下，对文档的修订还是存在的，只不过在最终打印状态不显示而已。

end

解决方案三：

选择【审阅】-【接受】-【接受对文档的所有修订】即可。

注意：在这种状态下，对文档的修订已经不存在了。如果在没有关闭修订状态的情况下继续修改文档，该竖线还是会出现的。可以通过点击如下图的按钮关闭【修订】功能。

---