VB课件VB第12章幻灯片.pptVIP

（3）编写事件代码。 编写工具栏Toolbar1的ButtonClick事件代码： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Text1.FontBold = True Case 2 Text1.FontItalic = True Case 3 Text1.FontUnderline = True End Select End Sub 运行程序，结果如图12-19所示。 12.3 公共对话框 12.3.1 添加公共对话框控件 右键单击控件工具箱，在弹出菜单中选择“部件”命令，打开“部件”对话框，如图12-22（a）所示。在“部件”对话框中，选定所需的文件，按“确定”按钮即可将公共对话框控件添加到控件工具箱中，如图12-22（b）所示。 12.3.2 使用公共对话框控件 在程序运行时，公共对话框可以显示一个对话框或执行帮助的引擎，所显示的对话框由控件的“方法”决定，共有6种方法来指定相应的对话框，参见表12-5。 每种对话框都有自己特殊的属性，这些属性既可以在属性窗口中设置，也可以在代码中设置，还可以在“属性页”对话框中设置。“属性页”对话框如图12-