第7章(办公自动化).ppt

⑹ List1的InteractiveChange事件代码编写如下： THISFORM.Combo1.Enable=.T. ⑺ List1的Init事件代码编写如下： SET ORDER TO TAG 编号 图7-6 选项替代 四、属性与方法程序选介 1．ListCount属性 格式：Control.ListCount 功能：返回组合框或列表框中列表项的个数。 说明：该属性在设计时不可用，运行时为只读属性。 2．ListIndex属性 格式：Control.ListIndex[=nIndex] 功能：返回或设置组合框(列表框)显示时选定项的顺序号。 说明： ⑴ nIndex的缺省值是0，表示没有选定列表项。对于下拉组合框，当列表中没有与键入值相同项是就返回0。 ⑵ 本属性设计时不可用，运行时可读写。 3．Selected属性 格式：[Form.]Control.Selected(nIndex)[=1Expr] 功能：用于分辨组合框或列表框中某一列表项是否被选中。当选中时Selected属性返回.T.，否则返回.F.。 说明： ⑴ nIndex表示列表项的显示顺序号。 ⑵ 1Expr可取.T.或.F.之一，用来设置属性值。 ⑶ 本属性设计时不可用，运行时可读写。 4．AddItem方法程序 格式：Control.AddItem(cItem[,nIndex][,nColumn]) 功能：当组合框或列表框的RowSourceType属性为0时，使用本方法程序可在其列表中添加一个新项。 【例7-5】试编写一程序，能为表单中的列表框增入新项，并能满足如下要求： ⑴ 在列表框的行首设置一个可移动按钮，并在每个列表项左侧显示一个图形，如图7-7所示。 ⑵ 若用鼠标单击列表中的某选项，能在一个标签上显示顺序号与选项。 图7-6 选项替代 ⑴ Label1属性设置： AutoSize：.T. ⑵ List1属性设置： RowSourceType：0-字段 MoverBars：.T. ⑶ List1的Init事件代码编写如下： THIS.Additem(音乐) THIS.Additem(上网) THIS.Additem(文学) THIS.Additem(摄像) THIS.Picture(1)= C:\Program Files\Microsoft Visual Studio \Vfp98\Gallery\Graphics\MUSIC.ICO“ THIS.Picture(2)= C:\Program Files\Microsoft Visual Studio \Vfp98\Gallery\Graphics\INTERNET.ICO THIS.Picture(3)= C:\Program Files\Microsoft Visual Studio \Vfp98\Gallery\Graphics\CLASSLIB.ICO THIS.Picture(4)= C:\Program Files\Microsoft Visual Studio \Vfp98\Gallery\Graphics\VIDEO.ICO THIS.ListIndex=1 ⑷ List1的Click事件代码编写如下： FOR i=1 TO THIS.ListCount IF THIS.Selected(i)=.T. THISFORM.Label1.Caption=STR(I,1)+SPACE(1)+THIS.value ENDIF ENDFOR * * 第七章 表单控件设计 7.1 输出类控件 7.2 输入类控件 7.3 控制类控件 7.4 容器类控件 7.5 连接类控件 表单中控件的分类： ⑴ 输出类：标签，图象，线条，形状。 ⑵ 输入类：文本框，编辑框，微调控件，列表框，组合框。 ⑶ 控件类：命令按钮，命令按钮组，复选框，选项按钮组，计时器。 ⑷ 容器类：表格，页框，Container容器。 ⑸ 连接类：ActiveX控件，ActiveX绑定控件，超级链接。 7.1 输出类控件 7.1.1 标签 标签控件是一种能在表单上显示文本的输出控件，常用作提示或说明。 一、标签的标题 标签的Caption属性用于指定该标签的标题，标题是用来显示的文本。 更改标签Caption属性的方法： ⑴ 在属性窗口中修改该控件的Caption属性。 ⑵ 在某一事件中写入命令：THISFORM.Label1.Caption=标题名 ⑶ 利用变量来设置：THISFORM.Label1.Caption=内存变量 二、属性选项 ⑴ 使标签区域自动调整为与标题文本大小一致 方法：