您的位置: 网站首页 > 程序开发 > Visaul FoxPro程序设计 > 第8章 表单与控件设计 > 【8.5 ActiveX控件的使用】

8.5 ActiveX控件的使用

 

8.5  ActiveX控件的使用

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

注意:C:\Windows\system32文件夹内,除存放有Visual FoxPro自身的.ocx文件外,也存放Visual BasicOffice.ocx文件。

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  滑杆控件的常用属性及事件

属性及事件

   

Min属性

指所能调整的最小值

Max属性

指所能调整的最大值

SmallChange属性

在单击左、右键时所能移动的间隔值

LargeChange属性

在单击<PageUp><PageDown>键时所能移动的间隔值

Orientation属性

设置控件是水平显示或者垂直显示

TickStyle属性

设置控件刻度的显示位置

TickFrequency属性

设置控件的刻度密度,默认值为1

Change事件

指被移动且定位后会触发此事件

Scroll事件

指用户持续用鼠标拖动滑杆时将持续触发此事件

大多数的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所示。