vb ActX控件基础用法(3)

thisform.refresh

（3）“退出”命令按钮的Click事件代码：thisform.release 8．保存表单，表单文件名为form_sjhj。 9．运行表单form_sjhj。

六、控件布局控制

图6-9 表单form_bj界面

新建如图6-9所示的表单form_bj，表单中有5个随机排列的命令按钮，不要移动或改变“基准按钮”的位置，使其它命令按钮与“基准按钮”左部对齐。

操作步骤：

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

3．设置控件属性。如图6-9所示分别设置5个命令按钮的Caption属性。

4．打开“布局工具栏”。单击“显示”菜单中的“布局工具栏”命令，或单击“表单设计器”工具栏中的“布局工具栏”按钮。

5．选中全部命令按钮。按住Shift键依次单击5个命令按钮。

6．调整按钮布局。单击“布局工具栏”中的“左边对齐”按钮，则5个命令按钮自动与最左侧的基准按钮左边对齐。

七、用命令按钮控制标签的变化

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

（1）设置标签“Visual FoxPro程序设计”的字体大小为20，字体颜色为深蓝，背景为透明；

（2）单击“隐藏标签”按钮，“Visual FoxPro程序设计”标签消失； （3）单击“显示标签”按钮，“Visual FoxPro程序设计”标签显示；

图6-10 表单form_bq运行结果

（4）单击“退出”按钮结束表单运行。 操作步骤：

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

表6-1 表单form_bq属性设置

控件 Command1 Command2 Command3 属性 Caption Caption Caption Caption BackStyle Label1 FontSize ForeColor AutoSize 属性值 隐藏标签 显示标签 退出 说明 设置Command1的标题 设置Command2的标题 设置Command3的标题 Visual FoxPro程序设计 设置Label1的标题 0－透明 20 0,0,255 .T. 设置Label1的背景透明 设置Label1的字体大小为26 设置Label1的前景色为深蓝 设置Label1能自动调整大小 4．编写命令按钮的Click事件代码。

（1）“隐藏标签”命令按钮的Click事件代码：thisform.label1.visible=.f. （2）“显示标签”命令按钮的Click事件代码：thisform.label1.visible=.t. （3）“退出”命令按钮的Click事件代码：release thisform 5．保存表单，表单文件名为form_bq。 6．运行表单form_bq。

八、运用文本框进行简单计算

新建如图6-11所示的表单form_wbk，功能要求如下： （1）Text1和Text2中只允许输入最多8位的数字；

（2）在Text1和Text2中输入数据后，单击“=”按钮将两数相加，并将结果显示在文本框Text3中；

图6-11 表单form_wbk运行结果

（3）Text1、Text2和Text3中的数字都是左对齐方式。 操作步骤：

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

表6-2 表单form_wbk属性设置

控件 Label1 属性 Caption FontSize Caption Label2 FontSize FontName Alignment Text1 InputMask Value Alignment Text2 InputMask Value Text3 Command1 Alignment InputMask Caption 属性值 单击“=”号将两数相加 20 + 26 黑体 0－左 99999999 0 0－左 99999999 0 0－左 99999999 =\说明 设置Label1的标题 设置Label1字体大小 设置Label2的标题 设置Label2字体大小 设置Label2字体 设置Text1的对齐方式 设置Text1的输入模式 设置Text1的初始值 设置Text2的对齐方式 设置Text2的输入模式 设置Text2的初始值 设置Text3的对齐方式 设置Text3的输入模式 设置命令按钮的显示标题 4．编写“=”命令按钮的Click事件代码：

thisform.text3.value=thisform.text1.value+thisform.text2.value 5．保存表单，表单文件名为form_wbk。 6．运行表单form_wbk。

九、查询界面设计

新建如图6-12所示的表单form_cx，功能要求如下： （1）用户在Text1中输入要查询的学生学号；

（2）单击“查询”按钮后，在student表中查找该学生记录；若找到，则表单中显示该学生的姓名和备注信息；若找不到，则弹出消息框，显示“没有该学生记录!”。

图6-12 表单form_cx运行结果

（3）单击“退出”按钮结束表单运行。 操作步骤：

1．新建表单。“文件”→“新建”，选择“表单”文件类型并单击“新建文件”按钮。 2．向表单中添加控件。向表单中添加1个标签、1个文本框和2个命令按钮控件。 3．设置数据环境。打开数据环境设计器，将“student”表添加进数据环境。

4．绑定字段。从“数据环境设计器”中直接拖动“姓名”和“备注”字段到表单中，这时表单中将自动生成1个标签和1个文本框控件对应于“姓名”字段，生成1个标签和1个编辑框控件对应于“备注”字段。

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

（1）设置Label1属性。设置Label1的Caption属性为“学号”。

（2）设置Command1、Command2属性。分别设置2个命令按钮的Caption属性为“查询”和“退出”。

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

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

（5）设置控件只读。同时选中“txt姓名”文本框和“edt备注”编辑框，设置它们的ReadOnly属性为.T.。

6．编写“查询”命令按钮的Click事件代码： Select student

Locate for 学号=alltrim(thisform.text1.value) If found()

thisform.refresh else

messagebox(\没有该学生记录!\thisform.refresh endif

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

课后练习

一．在“仓库管理系统”项目中，使用表单向导新建如图6-13所示的form_ex1表单，用于显示“职工”表中的记录。要求选择职工表中的职工号、仓库号和工资字段，表单样式为