第3章控件的基本知识导论.pptVIP

* * * * * * * * * * * * （1）在设计时建立 　　 步骤：1）在窗体上画出某控件，并进行属性设置。 　　　　　 2）选中该控件进行“复制”和“粘贴”操作，系统提示“是否建立控件数组”，选择是即可。多次粘贴就可以创建多个控件元素。 　　　　　 3）进行事件过程的编程。 （2）运行时添加控件数组 　　方法：1）在窗体上画出某控件，设置该控件的Index值为0，表示该控件为数组。 　　　　　 2）在编程时通过Load方法添加其余若干个元素，也可以通过Unload删除某个添加的元素。 　　　　　 3）每个添加的控件数组通过Left 和Top属性，确定其在窗体上的位置，并将Visible设置为True。 * 此条件也可改为：Len(file1.path)3 （2）Filename属性 用于返回或设置被选定文件的文件名，设计时不可用。 说明：Filename属性不包括路径名。 例如：要从文件列表框（File1）中获得全路径的文件名Fname$，用下面的程序代码： If Right(file1.path,1) =\ Then Fname$=file1.path file1.filename Else Fname$=file1.path \ file1.filename End If 五、 文件系统控件 （3）Pattern属性 用于返回或设置文件列表框所显示的文件类型。可在设计状态设置或在程序运行时设置。缺省时表示所有文件。 设置形式为： Object.Pattern [= value] 其中value是一个用来指定文件类型的字符串表达式，并可使用包含通配符（“*”和“？”） 例如： File1.Pattern= *.txt File1.Pattern= *.txt; *.Doc “ File1.Pattern= ???.txt“ 注意：要指定显示多个文件类型，使用“;”为分隔符 重新设置Pattern属性引发“PatternChange”事件。 五、 文件系统控件 2. 主要事件 Click、DblClick事件： 例如：单击输出文件名。 Sub filFile_Click( ) MsgBox filFile.FileName End Sub 例如：双击执行可执行程序 Sub File1_DblClick( ) Dim Fname As String If Right(file1.path,1) =\ Then Fname=file1.path file1.filename Else Fname=file1.path \ file1.filename End If RetVal = Shell(Fname, 1) ‘ 执行程序 End Sub 五、 文件系统控件 Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Sub Dir1_Change() filFile.Path = Dir1.Path End Sub 说明： 要使驱动器、目录和文件列表框同步显示，那么就需要编写代码才能使它们之间彼此同步。 五、 文件系统控件 六、控件数组 1、控件数组的概念 一个窗体上可以包含多个同种类型的控件，可以通过创建控件数组的方法使同一类型的控件共享同一个事件过程。 使用控件数组的最大好处是编写的代码比较简单且易于维护。 控件数组： 是具有相同名称、类型以及事件过程的一组控件。 每一个控件具有一个唯一的索引（index）。当数组中的一个控件识别某一事件时，它将调用此控件数组的相应事件过程，并把相应索引作为参数传递给事件过程。一个控件数组至少应有一个元素，在控件数组中可用到的最大索引值为 32767。同一控件数组中的元素有自己的属性设置值。 2、控件数组的建立 控件数组中每一个元素都是控件，它的定义方式与普通数组不同。可以通过以下两种方法建立控件数组。 方法一：复制已有的控件并将其粘贴到窗体上。 方法二：将窗体上已有的类型相同的多个控件的Name属性设置为同一值。 方法三：运行时添加控件数组： 在窗体上画出某控件，设置该控件的Index值为0，表示该控件为数组。在编程时通过Load方法添加其余若干个元素，也可以通过Unload删除某个添加的元素。每个添加的控件数组通过Left 和Top属性，确