VB控件数组的操作技巧VIP专享VIP免费

VB 控件数组的操作技巧 控件数组有在设计时设置好的，也有在运行中创建的。控件数组一方面使得程序简洁、令代码易于维护，另一方面能使程序具有灵活性。可见，科学地利用控件数组可使编程工作的效率更高。本文是从笔者回答网友的问题中整理出来的，与原来的回答相比略有改动。希望这些"技巧"对大家有些帮助。如有不妥之处，敬请指教。 一、运行中设置数组控件的属性 设窗体上有若干个以 Command1 命名的命令按钮，现要求：点击其中一个按钮后，该按钮不可用，而其它的按钮均可用。以下几行代码可以实现这个要求，比一个一个的设置高效得多。 Private Sub Command1_Click(Index As Integer) Dim i As Integer ' 计数器 Dim comNum As Integer ' 按钮的索引号 comNum = 0 For i = 0 To Command1.Count - 1 comNum = comNum + 1 If comNum > Command1.Count - 1 Then comNum = 0 Command1(comNum).Enabled = True '让所有按钮可用 Next Command1(Index).Enabled = False '让被单击按钮不可用 End Sub 二、运行中添加和卸载数组控件 窗体上已有一个文本框Text1，程序需要在运行时动态地创建若干文本框，可这样实现： 1.首先，设计时给Text1 的 Index 属性设置为"0"，这一步很重要：有了索引号才能创建数组控件； 2.编写代码：[之前请给工程添加两个命令按钮,Name 属性取缺省值，Caption 属性分别为：添加、卸载] Private Sub Command1_Click() Dim txtNum As Integer 'Text1 的 Index 号 Dim Num As Integer '赋给各TextBox 的值 txtNum = 0 '初值 Num = 1 '初值 Text1(0).Text = "Text" & Num '第一个Text1 的值 Dim i As Integer '计数器 For i = 0 To 4 '添加五个TextBox txtNum = txtNum + 1 Num = Num + 1 Load Text1(txtNum) '加载文本框 Text1(txtNum).Top = Text1(txtNum - 1).Top + 450 '设置位置 Text1(txtNum).Text = "Text" & Num '加载内容 Text1(txtNum).Visible = True '令其可见:不能漏 Next Command1.Enabled = False Command2.Enabled = True 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 =...