Как обратиться к другим формам в цикле - VB

Формулировка задачи:

Как обратиться к элементу Label в цикле придумал, получается что-то вроде этого:
    Form3.Controls("Label" & i).Caption = "0"
А как такое обращение применить для формы? Должно получиться:
    Form3.Show
    Form4.Show
    ....
    Me.Controls("Form" & i).Show
- не работает.

Код к задаче: «Как обратиться к другим формам в цикле - VB»

textual
Option Explicit
Dim a_Form(2 To 4) As Form
 
Private Sub Form_DblClick()
Dim i%
For i = 2 To 4
  a_Form(i).Show
Next i
End Sub
 
Private Sub Form_Load()
Set a_Form(2) = Form2
Set a_Form(3) = Form3
Set a_Form(4) = Form4
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ