vb ActX控件基础用法(2)

ThisForm.Caption=\简单应用\，将表单标题设置为“简单应用”；

（2）双击“改变背景”按钮，编写它的Click事件代码：ThisForm.BackColor=RGB(255,0,0)，将表单背景颜色设置为红色。

（3）右击“退出”按钮，在弹出的快捷菜单中选择“代码”命令，编写它的Click事件代码：Thisform.release。

5．保存表单，表单文件名为form_sxlx。

6．运行表单form_sxlx。观察单击各命令按钮时的效果。

五、表单数据环境设置

图6-7 表单form_sjhj运行结果

新建如图6-7所示的form_sjhj表单，功能为浏览dep表的记录，单击“上一个”按钮显示上一条记录的院系号、院系名称和电话号码信息，单击“下一个”按钮显示下一条记录的院系号、院系名称和电话号码信息，单击“退出”按钮结束表单运行。要求除命令按钮外，表单中其余控件从数据环境中得到。

操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．打开数据环境设计器。右击表单空白位置，在弹出的快捷菜单中选择“数据环境”命令。

图6-8 数据环境设计器

3．向数据环境中添加表。在弹出的“打开”对话框中选择dep表，则“数据环境设计器”中自动添加了表dep，如图6-8所示，关闭“添加表或视图”对话框。

4．将表中字段添加到表单。从“数据环境设计器”窗口中直接拖动字段“院系号”到表单中，则表单中自动产生1个标签和1个文本框控件。同样的方法，将“院系名称”，“电话号码”字段拖动到表单中。

5．观察表单中各控件的属性：“txt院系号”文本框的ControlSource属性值为：“dep.院系号”，“txt院系名称”文本框的ControlSource属性值为：“dep.院系名称”，“txt电话号码”文本框的ControlSource属性值为：“dep.电话号码”。

6．添加命令按钮。向表单中添加3个命令按钮，分别设置它们的Caption 属性为“上一

个”，“下一个”和“退出”。

7．编写命令按钮的Click事件代码。

（1）“上一个”命令按钮的Click事件代码： skip -1 if bof() go top

this.enabled=.f. endif

if thisform.Command2.enabled=.f. thisform.command2.enabled=.t. endif

thisform.refresh

（2）“下一个”命令按钮的Click事件代码： skip if eof()

go bottom

this.enabled=.f. endif

if thisform.command1.enabled=.f. thisform.Command1.enabled=.t. endif