vb ActX控件基础用法(11)

表6-9 表单form_timer属性设置

控件 Command1 Command2 Command3 属性 Caption Caption Caption Curvature Shape1 FillStyle FillColor Timer1 Form1 Enabled Interval change 属性值 开始 结束 退出 99 0-实线 255,0,0 .F. 1000 .f. 说明 设置Command1显示标题 设置Command2显示标题 设置Command3显示标题 指定Shape1角的曲率 指定Shape1的填充图案 指定Shape1的填充颜色 指定Timer1不响应事件 指定Timer1的时间间隔为1秒 指定change属性的初始值 5．编写计时器控件Timer1的Timer事件代码： if thisform.change

thisform.shape1.fillcolor=RGB(255,0,0) thisform.change=.f. else

thisform.shape1.fillcolor=RGB(0,255,0) thisform.change=.t. endif

6．编写“开始”命令按钮的Click事件代码： thisform.timer1.enabled=.t.

7．编写“结束”命令按钮的Click事件代码：

thisform.timer1.enabled=.f. 8．编写“退出”命令按钮的Click事件代码：thisform.release 9．保存表单，表单文件名为form_timer。 10．运行表单form_timer。

图6-46 表单form_link运行结果

四、超级链接控件的使用

新建如图6-46所示的表单form_link，功能要求如下：表单运行时，单击“清华大学校园网主页”标签即可跳转到清华大学校园网主页。

操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加1个标签、1个线条和1个超级链接控件。 3．设置控件属性。按照题目要求如表6-10所示设置控件属性。

表6-10 表单form_link属性设置

控件 属性 Caption Label1 FontSize ForeColor BackStyle 属性值 清华大学校园网主页 18 255,0,0 0-透明 说明 设置Label1标题 设置Label1字体大小 设置Label1字体颜色 设置Label1背景透明 4．编写标签控件Label1的Click事件代码： thisform.hyperlink1.navigateto(\5．保存表单，表单文件名为form_link。 6．运行表单form_link。

五、ActiveX绑定控件的使用

新建如图6-47所示的表单form_actx，功能要求如下：命令按钮组控件包含5个命令按钮，表单运行时，通过单击命令按钮依次查看student表中每个学生的照片。

图6-47 表单form_actx界面

操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加1个命令按钮组和1个ActiveX绑定控件。 3．设置数据环境。打开数据环境设计器，将“student”表添加进数据环境。 4．设置控件属性。

（1）设置命令按钮组属性：右击命令按钮组，选择“生成器”命令，在“命令按钮组生成器”对话框的“按钮”选项卡下设置按钮数目为“5”，并设置5个命令按钮的标题分别为：“第一条”、“上一条”、“下一条”、“最后一条”和“退出”，在“布局”选项卡下设置按钮布局为“横向”。

（2）设置ActiveX绑定控件属性：设置ActiveX绑定控件的ControlSource属性为“student.照片”，Stretch属性为“1-等比填充”。

5．编写命令按钮组CommandGroupl的Click事件代码： n=this.value do case

case n=1 go top case n=2

skip -1

if bof() go top

messagebox(\已到文件头\

endif case n=3 skip if eof()

go bottom

messagebox(\已到文件尾\ endif case n=4

go bottom case n=5

thisform.release endcase

thisform.refresh

6．保存表单，表单文件名为form_actx。 7．运行表单form_actx。 课后练习

一、新建如图6-48所示的表单form_ex18，功能要求如下： （1）表单标题为“职工信息浏览”；

（2）表单上包含1个有4个选项卡的页框和1个“退出”命令按钮，要求4个选项卡按从左到右的顺序标题分别为“仓库表”、“职工表”、“订购单表”、“供应商表”；

图6-48 表单form_ex18运行结果

图6-49 表单form_ex19运行结果

（3）每个选项卡上均有1个表格控件，分别显示相应表的内容。

二、新建如图6-49所示的表单form_ex19，功能要求如下：根据微调器中数字变化决定列表框中显示“订购单”表的前几个字段的信息。

三、建立一个名为query的查询，查询每个职工的职工号、城市和订购单号。

新建如图6-50所示的表单form_ex20，在表单上有一个页框，页框包含“职工”和“仓库”两个选项卡，在“职工”选项卡中，以表格形式显示query查询文件中的记录（表格名称为“grdquery”）；在“仓库”选项卡中，以表格形式显示“仓库”表中的记录（表格名称为“grdck”）。

四、新建如图6-51所示的时钟应用表单form_ex21，功能要求如下：

（1）表单名为timer，表单标题为“时钟”，表单运行时自动显示系统的当前时间： （2）显示时间的为标签控件label1（要求在表单中居中，标签文本对齐方式为居中）； （3）单击“暂停”命令按钮（Command1）时，时钟停止；

（4）单击“继续”命令按钮（Command2）时，时钟继续显示系统的当前时间； （5）单击“退出”命令按钮（Command3）时，关闭表单。

图6-51 表单form_ex21运行结果

图6-50 表单form_ex20运行结果

提示：使用计时器控件，将该控件的interval属性设置为500，即每500毫秒触发一次计时器控件的timer事件（显示一次系统时间）。

图6-52 表单form_ex22运行结果

五、新建如图6-52所示的表单form_ex22，表单中的圆形形状填充颜色是红色，要求：使圆形形状自动反复地从右向左移动，单击“暂停”按钮，圆形形状停止移动，单击“继续”按钮，圆形形状继续移动，单击“退出”按钮关闭表单。

提示：计时器的Timer事件代码： x=thisform.shape1.left if x-10>0

thisform.shape1.left=x-10 else

thisform.shape1.left=thisform.width-thisform.shape1.width endif

习题

一、选择题

1.能够将表单的Visible属性设置为.T.,并使表单成为活动对象的方法是（ ）。

A) Hide B) Show C) Release D) SetFocus 2.下面对编辑框(EditBox)控件属性的描述正确的是（ ）。

A) SelLength属性的设置可以小于0

B) 当ScrollBars的属性值为0时，编辑框内包含水平滚动条 C) SelText属性在做界面设计时不可用，在运行时可读写 D) Readonly属性值为.T.时，用户不能使用编辑框上的滚动条 3.下面对控件的描述正确的是（ ）。

A) 用户可以在组合框中进行多重选择 B) 用户可以在列表框中进行多重选择

C) 用户可以在一个选项组中选中多个选项按钮

D) 用户对一个表单内的一组复选框只能选中其中一个

4.确定列表框内的某个条目是否被选定应使用的属性是（ ）。

A) Value B) ColumnCount C) ListCount D) Selected 5.在Visual FoxPro中，运行表单T1.SCX的命令是（ ）。

A) DO T1 B) RUN FORM1 T1 C) DO FORM T1 D) DO FROM T1 6.在 …… 此处隐藏：2544字，全部文档内容请下载后查看。喜欢就下载吧 ……