Computer Programming Concepts and Visual Basic David I. Schneider

If controlName is the name of a control whose Index property was assigned a value during
form design (thus creating the beginnings of a control array) and num is a whole number
that has not yet been used as an index for the controlName( ) array, then the statement
Load controlName(num)
copies all the properties of controlName(0), including the Top and Left properties, and creates
the element controlName(num) of the controlName( ) array. The only property of
controlName(num) that may differ from that of controlName(0) is the Visible property. The
Load statement always sets the Visible property of the created element to False. After creating
a new element of a control array, you will want to adjust the Top and Left properties so that
the new element has its own unique location on the form, and then set the Visible property of
the new element to True.
EXAMPLE 3
Write a program to create a control array of 12 labels and a control array of 12 text boxes. Position the
labels and text boxes so that they form two columns, with the labels to the left of the text boxes and the
text boxes one immediately below the other. Use text boxes whose height is as small as possible. Use
labels whose height is just large enough to display a single line. Assign the captions Jan, Feb, and so on,
to the labels.
SOLUTION:
When designing the form, we place the first label to the left of the first text box and set the Index property
of both controls to 0. The height of the shortest text box is 288 units and the height of a label just tall
enough for a single line is 252 units. We use the text box’s Height property as the unit of vertical spacing
for both the new text box elements and the new label elements. The following is the form at design time
and at run time.
Object Property Setting
frm 7_3_3 Caption Year
lblMonth() Index 0
Caption Jan
Height 252
txtInfo() Index 0
Text (blank)
Height 288
Private Sub Form_Load()
Dim i As Integer, monthNames As String
monthNames = “FebMarAprMayJunJulAugSepOctNovDec”
For i = 1 To 11
Load lblMonth(i)
Load txtInfo(i)
lblMonth(i).Top = lblMonth(i - 1).Top +
txtInfo(0).Height txtInfo(i).Top = txtInfo(i - 1).Top + txtinfo(0).Height
lblMonth(i).Caption = Mid(monthNames, 3 * i - 2, 3)
lblMonth(i).Visible = True
txtInfo(i).Visible = True
Next i
End Sub
Control Arrays 183