vb ActX控件基础用法(6)

令，打开“命令按钮组生成器”对话框，如图6-22所示。

6．编辑命令按钮组生成器。

（1）在“命令按钮组生成器”的“按钮”选项卡下，在“按钮数”栏输入“5”，则命令按钮组中包含有5个命令按钮，这相当于设置了命令按钮组的ButtonCount属性。

（2）在“标题”列中将5个命令按钮的标题分别设置为“第一条”、“上一条”、“下一条”、“最后一条”以及“退出”，这相当于设置了各个命令按钮的Caption属性。

（3）在“命令按钮组生成器”的“布局”选项卡下，将按钮布局设置为“横向”，则命令按钮组中的5个命令按钮水平排列，单击“确定”按钮。

7．调整控件布局、设置控件属性。

（1）设置所有控件字体大小。同时选定3个标签控件和3个文本框控件，将FontSize属性值设置为14。

（2）对齐所有标签控件。同时选定3个标签控件，单击“格式”→“对齐”→“左边对齐”。

（3）使“第一条”和“上一条”按钮初始不可用。右击命令按钮组，在弹出的快捷菜单中选择“编辑”，在编辑状态下分别设置“第一条”和“上一条”命令按钮的Enabled属性值为.F.。

8．编写命令按钮组中各命令按钮的Click事件代码。 （1）“第一条”按钮的Click事件代码： go top

this.enabled=.f.

this.parent.command2.enabled=.f. if this.parent.command1.enabled=.f. this.parent.command3.enabled=.t. this.parent.command4.enabled=.t. endif

thisform.refresh

（2）“上一条”按钮的Click事件代码： skip -1 if bof()

this.enabled=.f. endif

if not eof()

this.parent.command3.enabled=.t. this.parent.command4.enabled=.t. endif

thisform.refresh

（3）“下一条”按钮的Click事件代码： skip 1 if eof()

this.enabled=.f. endif

if not bof()

this.parent.command1.enabled=.t. this.parent.command2.enabled=.t.

endif

thisform.refresh

（4）“最后一条”按钮的Click事件代码： go bottom

this.parent.command3.enabled=.f. this.enabled=.f.

if this.parent.command4.enabled=.f. this.parent.command1.enabled=.t. this.parent.command2.enabled=.t. endif

thisform.refresh

（5）“退出”按钮的Click事件代码：thisform.release 9．保存表单，表单文件名为form_cgs。 10．运行表单form_cgs。

三、选项按钮组的使用

新建如图6-23所示的表单form_og，功能要求如下：

（1）表单的标题为“学生学习情况统计”。表单中有一个选项按钮组控件（myOption）和两个命令按钮“计算”（Command1）和“退出”（Command2）。其中，选项按钮组控件包含有两个选项按钮“升序”（Option1）和“降序”（Option2）。

（2）设置选项按钮组中各个选项按钮的访问键。

（3）运行表单时，首先在选项按钮组控件中选择“升序”或“降序”，单击“计算”命令按钮后，按照成绩“升序”或“降序”（根据选项组控件的选择结果）将选修了“C语言”课程的学生的学号和成绩分别存入stu_sorts.dbf和stu_sortj.dbf文件中。

图6-23 表单form_og运行结果

（4）单击“退出”按钮关闭表单。 操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加1个选项按钮组和2个命令按钮控件。 3．设置控件属性。按照题目要求如表6-3所示设置控件属性。

表6-3 表单form_og属性设置

控件 Form1 Optiongroup1 属性 Caption Name Caption Caption Caption Caption 属性值 学生学习情况统计 myOption 升序(\\

if thisform.myoption.value=1

select 学号,成绩 from course,sc;

where course.课程号=sc.课程号 and 课程名=\语言\order by 成绩 into table stu_sorts else

select 学号,成绩 from course,sc;

where course.课程号=sc.课程号 and 课程名=\语言\order by 成绩 desc into table stu_sortj endif

5．编写“退出”命令按钮的Click事件代码：Release ThisForm 6．保存表单，表单文件名为form_og。 7．运行表单form_og。

四、复选框控件的使用

新建如图6-24所示的表单form_fxk，功能要求如下：这是一个多项选择题，选择题的正确答案为“数据库”、“表”和“查询”，选择答案后，单击“判断”按钮，弹出消息框显示“答题正确！”或“答题错误！”。

图6-24 表单 form_fxk运行结果

操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加1个标签、1个命令按钮和5个复选框控件。

3．调整控件布局、设置控件属性。按照图6-24所示分别调整各控件布局并设置各控件的Caption属性，选中全部控件，设置FontSize属性值为12。

4．编写“判断”命令按钮的Click事件代码：

if thisform.check1.value=1 and thisform.check2.value=1; and thisform.check3.value=0 and thisform.check4.value=1; and thisform.check5.value=0 messagebox(\答题正确！\else

messagebox(\答题错误！\endif

5．保存表单，表单文件名为form_fxk。 6．运行表单form_fxk。

五、由复选框控制列表框显示的数据

图6-25 表单 form_lbk运行结果

新建如图6-25所示的表单form_lbk，功能要求如下：在复选框中选择要显示的字段，单击“显示”按钮后，列表框中将显示sc表中记录的相应字段值。

操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加3个复选框、1个列表框和1个命令按钮控件。 3．调整控件布局：同时选中3个复选框，单击“格式”→“对齐”→“左边对齐”，然后再单击“格式”→“垂直间距”→“相同间距”。

4．设置控件属性。如图6-25所示分别设置3个复选框和1个命令按钮的Caption属性。 5．设置数据环境。打开数据环境设计器，将“sc”表添加进数据环境。 6．编写“显示”命令按钮的Click事件代码： n=0

ziduan=\

if thisform.check1.value=1 ziduan=ziduan+\学号,\n=n+1 endif

if thisform.check2.value=1 ziduan=ziduan+\课程号,\n=n+1 endif

if thisform.check3.value=1 ziduan=ziduan+\成绩,\n=n+1 endif

ziduan=substr(ziduan,1,len(ziduan)-1) &&把ziduan最后的\去掉 thisform.list1.rowsourcetype=6 thisform.list1.rowsource=ziduan thisform.list1.columncount=n

“显示”命令按钮的Click事件代码还可以用循环程序来实现： ziduan=\h=0

for i=1 to 3 n=str(i,1)

if thisform.check&n..value=1

ziduan=ziduan+thisform.check&n..caption+\h=h+1

< …… 此处隐藏：2448字，全部文档内容请下载后查看。喜欢就下载吧 ……