表单控件设计(VisualFoxPro及其应用系统开发谭浩强主编)

《表单控件设计(VisualFoxPro及其应用系统开发谭浩强主编)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第7章表单控件设计7.1输出类控件标签(Label)属性选介(1)使标签区域自动调整为与标题文本大小一致：可将AutoSize属性设置为.T.。(2)使标签的标题竖排：先将WordWrap属性设置为.T.,然后在水平方向压缩标签区域迫使文字换行。(3)使标签与表单背景颜色一致：将BackStyle属性设置为0(透明)(4)使标签带有边框：将BorderStyle属性设置为1(单选框)图象(Image)、线条(Line)与形状(Shape)创建图象的步骤如下:在表单上创建一个图象控件在属性窗口选定Picture属性,并通过文本框右侧的对话按钮选定一个图象,该图

2、象即显示在图象控件处。线条控件用于在表单上画各种类型的线条,包括斜线、水平线和垂直线。形状控件用于在表单上画出各种类型的形状,包括矩形、圆角矩形、正方形、圆角正方形,椭圆或圆。表7.3形状控件的形状设置CurvatureWidth与Height相等Width与Height不等0正方形矩形1-99小圆角正方形→大圆角正方形→圆小圆角矩形→大圆角矩形→椭圆[例7-1]设计如图7.1所示的应用程序封面。(1)创建表单FM.SCX。(2)在表单上创建标签和形状控件各1个。(3)设置属性：详见表7.4(4)将封面的文字置前于椭圆：选定Label1,然后在布局工具栏中选定

3、“置前”按钮。若已置前,则该步骤可省。(5)Form1的RightClick事件代码编写如下:THISFORM.Release&&右击表单执行Release方法程序,从内存释放该表单对象属性属性值说明Form1Desktop.T.表单设置在桌面上WindowState2表单最大化BorderStyle0取消表单边框TitleBar0取消表单标题栏Picturec:vfpgallerygraphicstools.ico表单贴若干tools.ico拼成的壁纸Label1Caption汽车修理管理系统封面文字AutoSize.T.Label1区域自动适应标题

4、大小FontName隶书字体FontSize36文字大小FontBold.T.粗体ForeColor0,0,255标题颜色为蓝色BackStyle0背景透明,不显示Label1区域Shape1Curvature99为画椭圆,使圆角最大BorderColor255,255,0边框颜色为黄色BackColor0,255,255背景颜色为青色表7.4“封面”属性设置7.2输入类控件文本框(Text)文本框的值Value属性焦点控件设置焦点方法程序格式：Control.SetFocus获得焦点事件(GotFocusEvent)失去焦点事件(LostFocusEvent

5、)控件的数据绑定ControlSource属性文本框生成器编辑框(Edit)列表框(List)列表框生成器[例7-3]在列表框中填充SB表的编号和名称两个字段,要求选定列表框的任一项,就能使文本框中显示编号字段值。(1)在表单中创建1个列表框控件和1个文本框控件。(2)打开列表框生成器——在列表项选项卡的“用此填充列表”组合框中选定“表或视图中的字段”选项——如图7.4(a1)所示,通过对话按钮选出SB表,然后将编号和名称字段从可用字段列表添入选定字段列表中—按确定按钮。(3)List1的InteractiveChange事件代码编写如下:THISFORM.T

6、ext1.Value=THIS.Value&&将列表框选项值赋给文本框图7.5列表框选项(a1)表7.5列表框、组合框控件的值源类型组合框(Combo)下拉组合框Style属性值0下拉列表框Style属性值1控件值源的类型设置值值源类型说明0无缺省值,运行时用AddItem或AddListItem方法程序将数据分别填入列中1值RowSource设置逗号分隔的数据项来分别填充列2别名RowSource设置表名,表由数据环境提供,用ColumnCount确定字段数3SQL语句RowSource设置SQLSELECT命令选出记录,并可创建一个临时表或表4查询(.QP

7、R)RowSource设置一个.QPR文件名5数组RowSource设置数组名6字段RowSource设置逗号分隔的字段列表,首字段有表名前缀,表来自数据环境7文件在RowSource设置路径,可用通配符或掩码,结果以目录与文件名填充列8结构在RowSource设置表名,结果以字段名来填充列9弹出式菜单为与以前版本兼容而设[例7-4]试用BMDM表的代码来修改SB表的部门字段。要求SB表在列表框显示,BMDM表在组合框显示；并且当列表框确定一个记录后,便可用组合框的选项来替代SB表的部门字段值。(1)在表单上创建2个标签,1个列表框和1个组合框。(2)在数据环

8、境中添加SB表和BMDM。注意，若存在