偶看新闻北京郊区徒步:利用VBA 增强窗体的交互性(二)
来源：百度文库 编辑：偶看新闻 时间：2024/05/01 01:25:59
利用VBA 增强窗体的交互性--使用对话框
来源：不详 更新时间：2005-8-6 246有显示该对话框。用户还可在用 Show 方法前，修改 Word 内置对话框的设置。例如，可在显示【编辑】菜单中的【替换】对话框之前修改要查找的文字。下例显示【替换】对话框，并在【查找内容】编辑框中填入【Blue】。With Dialogs（wdDialogEditFind）
.Find = "Blue"
.Show
End With
下例显示【打开】对话框及所有文件名。
With Dialogs（wdDialogFileOpen）
.Name = "*.*"
.Show
End With
[NextPage]
12.1.4 检查一个对话框的关闭方式
由 Show 和 Display 方法返回的值显示了对话框关闭时所单击的按钮。下例显示【分隔符】对话框，如单击【确定】按钮，则在状态栏中显示一条消息。
If Dialogs（wdDialogInsertBreak）Show = -1 Then
StatusBar = "Break inserted"
End If
表12-1 列出了返回的值与显示对话框关闭时所单击的按钮的关系。
12.1.5 自定义对话框
创建一个自定义对话框非常简单，方法如下：
（1）打开Visual Basic 编辑器，选定一个文档的工程。
（2）单击【插入】菜单中的【用户窗体】命令，此时弹出一个名为UserForm1 的窗体，并自动弹出一个工具箱。
（3）根据需要，在工具箱中选择相应的控件，绘制需要的对象，如图12-1 所示。
（4）选中某个对象，单击右键，在弹出的快捷菜单中选择【属性】菜单项，打开【属性】窗口，设置各个对象的属性。如字体、显示的标题、名称等。
设置完毕后，就可以在某个过程中调用自定义的对话框，调用的语句是：
UserForm1.show
如果要使对话框中的两个按钮响应用户的操作，还需要为它们添加代码。方法是：双击该按钮，即可打开【代码】窗口，然后选择相应的事件，添加合适的代码，如图12-2 所示。
如果需要，还可以对窗体中的各个对象的各个事件添加代码，以使对象响应不同的事件。其中窗体本身也是一个对象，一样有各种不同的事件，也需要设置其相应的属性。具体的操作方法，用户可以参考有关的Visual Basic 编程的书籍。
按下F5 键，或者有个过程调用了该对话框，即可显示如图12-3 所示的对话框，输入正确的密码后单击【确定】按钮，即可弹出相应的消息框。
如果单击【退出】按钮，将退出该对话框。
< p="">