Как создать двумерный массив объектов (например Label) - VB
Формулировка задачи:
Как создать двумерный массив объектов (например Label)?
Решение задачи: «Как создать двумерный массив объектов (например Label)»
textual
Листинг программы
- Option Explicit
- Dim Z() As Label
- Private Sub Form_Load()
- Dim i As Long
- Dim j As Long
- ReDim Z(9, 9)
- For j = 0 To 9
- For i = 0 To 9
- Set Z(i, j) = Me.Controls.Add("VB.Label", "lbl" & i & j)
- Z(i, j).Move i * 500, j * 200, 500, 200
- Z(i, j).Caption = i & " x" & j
- Z(i, j).Visible = True
- Next
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д