2011年度计算机等级考试二级VB复习指导(46)

　　实例5.23使用控件数组。

　　在该程序中，用户单击按钮后，则在四个文本框中分别显示“这是文本框1”、“这是文本框2”等。并且，在窗体上还显示当前哪个文本框具有焦点，如图5.73所示。

　　使用上述任意一种方法在窗体中建立一个包含四个文本框的控件数组所示，且控件数组的名称为Tex.再在窗体上放置一个按钮控件和一个标签控件，如图5.74所示。各对象的属性设置如表5.35所示。

　　双击【设置】按钮，打开【代码】窗口，编写Comset_Click事件过程如下：

　　Private Sub Comset-Click()

　　For i=0 To 3

　　Tex(i).Text =“这是文本框”& i+1

　　Next

　　End Sub

　　在该段代码中，使用了一个For循环语句，依次为各文本框的Text属性赋值。如果各文本框是独立的，不是一个控件数组，则不能使用for循环语句，只能为每一个文本框各编写一个赋值语句。如果需要对很多文本框的Text属性赋值，则在编写代码时既麻烦又罗嗦，使用控件数组后，就使得程序代码的编写简单明了。

　　注意：在控件数组中，对象不能直接使用空间数组名，例如，不能些出Tex.Text=“这是文本框”，而要写成Tex(0).Text=这是文本框。这与对数组的操作是类似的。

　　控件数组中的对象共享相同的事件过程，不同的对象通过索引号(Index)来区分，编写控件数组的GotFocus事件过程如下;

　　Private Sub Tex_GotFocus(Index As Intege)

　　Select Case Index。

　　Case 0

　　LabFocus.Caption=“文本框1具有焦点”

　　Case 1

　　LabFocus.Caption=“文本框2具有焦点”

　　Case 2

　　LabFocus.Caption=“文本框3具有焦点”

　　Case 3

　　LabFocus.Caption=“文本框4具有焦点”

　　End Select

　　End Sub

　　在该段代码中，使用了Select Case.语句来判断控件数组中的哪一个文本框具有焦点。如果不使用控件数组，则需要为每一个文本框编写一个GotFocus事件过程。

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB复习指导汇总

　　2011年上半年计算机等级考试报名时间汇总