经过以上初始化后的程序窗体如图8-19所示。
图8-19 程序初始化后的窗体
窗体上的三个OptionButton控件组成一个控件数组，分别用来设置文本框中文本显示的粗体、斜体和粗斜体，为此，首先激活Option1控件数组，然后把光标移动到Private Sub Option1_Click(Index As Integer)事件的处理过程中，并且添加如下所示的程序响应代码。
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 1, 2
Form1.Text1.FontBold = Form1.Option1(1).Value
Form1.Text1.FontItalic = Form1.Option1(2).Value
'设置粗体和斜体
Case 3
Form1.Text1.FontBold = True
Form1.Text1.FontItalic = True
'设置粗斜体
End Select
End Sub
这样，在程序运行的过程中，当用户用鼠标或键盘选中控件数组Option1中的任何一个控件时，都会激活Private Sub Option1_Click(Index As Integer)事件，程序通过判断控件的Index属性就可以知道用户对字体风格的选择。如果选择的是粗体或斜体，都会执行代码Form1.Text1.FontBold = Form1.Option1(1).Value和Form1.Text1.FontItalic = Form1.Option1 (2).Value来分别设置文本框中文本显示为粗体或斜体，而当用户选择粗斜体时，就会执行Form1.Text1.FontBold = True和Form1.Text1.FontItalic = True来设置文本框中文本显示为粗斜体。
其他的设置字体风格和字体名称的代码的添加过程在这里就不再一一的加以叙述了，请读者参看下面的代码自己添加。
Private Sub Check1_Click(Index As Integer)
Form1.Text1.FontUnderline = Form1.Check1(0).Value
'设置下划线
Form1.Text1.FontStrikethru = Form1.Check1(1).Value
'设置删除线
End Sub
Private Sub List1_Click()
Form1.Text1.FontName = Form1.List1.Text
'对文本框应用选中字体
End Sub
4．利用向导
以上我们所做的工作都是自己手动添加程序代码，但Visual Basic 6为了开发ActiveX文档的方便，特地制作了一个“VB ActiveX Document 向导”程序。
下面我们就来利用这个向导程序帮助我们来生成ActiveX文档。
首先选择菜单“工程”中的“添加用户文档”，在Visual Basic 6集成开发环境中就会弹出一个如图8-20所示的“添加用户文档”对话框。
图8-20 “添加用户文档”对话框
在“添加用户文档”对话框中选择“VB ActiveX Document 向导”选项，单击“打开”按钮，系统就会自动的向当前的项目文件中添加一个空白的ActiveX文档，同时启动“VB ActiveX Document向导”应用程序，弹出一个对话框。
在“介绍”对话框中显示有向导程序的简单介绍，同时在对话框中还有一个“以后跳过本屏幕”的复选框。
如果用户选中了这个复选框，那么以后再启动这个向导程序时就不会看到这个“介绍”对话框。
在“介绍”对话框中选中“以后跳过本屏幕”复选框，单击“下一步”按钮进入下一个窗口，将会显示一个如图8-21所示的对话框。
图8-21 “选定窗体”对话框
在“选定窗体”对话框中，用户可以选择希望移植ActiveX文档的工程窗体，在本示例程序中，由于只有一个工程窗体Form1，所以在“选定窗体”对话框中选择Form1选项，单击“下一步”按钮进入向导程序的下一步，将会显示如图8-22所示的对话框。
图8-22 “选项”对话框
在“选项”对话框中用户可以对两个选项进行选择，一个是是否在添加ActiveX文档后取消无效代码的注释，另外一个就是是否在添加ActiveX文档后删除原始窗体。
注意：
@ 在本示例程序中，选中“取消无效代码的注释”和“转换之后删除原始窗体”两个复选框，单击“下一步”按钮进入向导程序的下一步。
在“已完成”对话框中向导程序将会提示用户是否成功的移植ActiveX文档，同时用户在其中还可以选择是否将当前的设置作为缺省的设置加以保存。
在本示例程序中不复选“将当前设置作为缺省的加以保存”，同时还要选中“是”选项，单击“完成”按钮，就成功的完成了ActiveX文档的移植工作。
成功移植ActiveX文档后的工程窗体如图8-23所示。
图8-23 成功移植ActiveX文档后的工程窗体
5．运行
做完以上的工作后，用鼠标选择工具栏上的“保存”按钮，在弹出的对话框中选择合适的文件存储路径和文件名，单击“保存”按钮完成文件的存储工作。
选择菜单“文件”中的“生成Project1.EXE选项”，在弹出的对话框中选择生成可执行文件的路径和文件名，单击“保存”按钮系统就生成了一个可以单独执行的EXE文件，同时在该目录下还会生成一个以*.vbd为文件后缀的文件，利用Internet Explorer打开这个以*.vbd为文件后缀的文件，结果如图8-24所示。
图8-24 设计完成的ActiveX文档