8.5 ActiveX控件的使用

8.5  ActiveX控件的使用

在Visual FoxPro中，“控件”工具栏上的常用控件只有20多种，但毕竟无法满足所有需要，缺少了一些较特殊的控件。用户可以借助ActiveX控件的应用，从此无论任何复杂的对象，只要厂商有现成的ActiveX控件（存在.ocx文件内），都可以购买并直接使用在Visual FoxPro中，而不必自己来设计。

8.5.1  ActiveX控件的建立

要在表单中建立ActiveX控件，其方法有两种：一是通过OLE容器控件；二是通过“控件”工具栏，下面将分别进行介绍。

1．通过OLE容器控件建立ActiveX控件

若用户通过OLE容器来建立ActiveX控件，其操作步骤如下：

（1）新建一个表单，从而打开“控件”工具栏。

（2）在“控件”工具栏上单击“ActiveX控件” ，然后在表单上拖动出适当大小的黑色方框，此时松开鼠标后会弹出“插入对象”对话框，选择“创建控件”单选按钮，在“对象类型”列表框中选择“日历控件8.0”项，如图8-70所示。

（3）单击“确定”按钮后，此时将添加日历控件在表单上，修改并调整该日历控件的位置及大小，然后保存并运行该表单，其运行效果如图8-71所示。

图8-70  选择“日历控件8.0”项                     图8-71  运行效果

2．通过“控件”工具栏建立ActiveX控件

若要在“控件”工具栏上添加ActiveX控件，其操作步骤如下：

（1）新建一个表单，从而打开“控件”工具栏。

（2）单击“控件”工具栏上的“查看类”按钮，然后在弹出的菜单中选择“ActiveX控件”选项，此时“控件”工具栏上会显示出目前选定的各ActiveX控件，如图8-72和图8-73所示。

图8-72  查看类按钮                         图8-73  ActiveX控件

（3）单击“日历”控件后，在表单内拖动出适当大小的黑色方框，放开鼠标后便可建立“日历”控件对象。

若在“控件”工具栏上找不到“日历”控件或其他要使用的ActiveX控件，可通过“选项”对话框将其加入到“控件”工具栏中，其步骤如下：

（1）单击菜单“工具”→“选项”命令，打开“选项”对话框，然后单击“控件”选项卡，如图8-74所示。

（2）选择“ActiveX控件”单选按钮，再勾选“控件”复选框，则在“选定”列表框中显示出系统中的ActiveX控件，如图8-75所示。

图8-74  “控件”选项卡                    图8-75  选择ActiveX控件

（3）将要使用的ActiveX控件都分别勾选后，单击“确定”按钮，此时在“表单控件”工具栏上显示出已经添加的ActiveX控件，如图8-76所示。

图8-76  添加的ActiveX控件

8.5.2  “滑杆”控件的应用

在Visual FoxPro所附的ActiveX控件中，有“滑杆”控件（Slider），通过“滑杆”控件，用户可以设置如音量大小、颜色调配等操作。

表8-28所列为滑杆控件的常用属性及事件。

表8-28  滑杆控件的常用属性及事件

大多数的ActiveX控件也都具有自己的接口来设置其属性。例如，在表单中添加了“滑杆”控件后，右击该控件，然后从弹出的快捷菜单中选择最后一项，如图8-77所示。此时将打开该控件相应的属性窗口，如图8-78所示。

图8-77  滑杆控件的快捷菜单                     图8-78  滑杆控件的属性

【例8-15】在表单上分别添加标签、滑杆和文本框控件，若调整滑杆控件，则标签文本的大小会随着改变，同时在文本框中显示当前所调整的值，其运行效果如图8-79所示。

图8-79  滑杆运行效果

其操作步骤如下：

（1）新建表单，并按如图8-80所示添加控件和布局。

（2）右击滑杆控件，从弹出的快捷菜单中选择最后一项命令，然后在弹出的窗口中进行相应的设置，如图8-81所示。

图8-80  添加控件和成局                      图8-81  设置滑杆控件的属性

（3）双击滑杆控件，并编写其Scroll事件代码：

thisform.label1.fontsize=this.value

thisform.text1.value=this.value

（4）保存表单为“例8-15”并运行，当拖动滑杆控件的滑块时，其标签文字的大小会随之改变，并且在右侧的文本框中显示当前字号的大小，其运行效果如图8-79所示。