控件数组的操作技巧(2)

End Sub

Private Sub Command2_Click()

Dim i As Integer, N As Integer
N = 0
For i = 1 To Text1.Count - 1
N = N + 1
Unload Text1(N)
Next

Command1.Enabled = True
Command2.Enabled = False

End Sub

三、给运行中添加的数组控件命名并编写事件

其实例二已经给数组控件命了名，只是简单了些。本例将文件夹"F:Txt"下的所有.txt的文件名作为菜单的Caption添加到菜单项里[请事先建立此文件夹并拷贝一些.txt文件，或者更改代码],当点击这些菜单，程序将调出Windows的记事本打开相应的文件。
键入以下代码前请启动VB的菜单编辑器，建立一个父菜单项[Naem和Caption属性任意]，然后在此父菜单下建立一个子菜单，Name属性为"mnuFiles",Caption属性为"没有文件"。

Dim MyPath As String '路径名变量

'添加并命名菜单过程
Private Sub AddMenu()

Dim MenuNum As Integer '菜单索引号变量
Dim MyFiles As String '文件名变量

MenuNum = 0 '初值

MyFiles = Dir(MyPath + "*.txt") '仅查找文本文档
If MyFiles = "" Then Exit Sub '为空则退出过程

mnuFiles(0).Caption = MyFiles '给第一个菜单命名

Do Until MyFiles = ""
MyFiles = Dir()
If MenuNum = 0 Then MenuNum = 1
MenuNum = MenuNum + 1
Load mnuFiles(MenuNum) '加载菜单
mnuFiles(MenuNum).Visible = True '设置为可见：不能漏
mnuFiles(MenuNum).Caption = MyFiles
If mnuFiles(MenuNum).Caption = "" Then Unload mnuFiles(MenuNum)
'若菜单名为空则卸载掉
Loop

End Sub

Private Sub Form_Load()

MyPath = "F:Txt" '规定路径
Call AddMenu '执行添加菜单过程

End Sub