| Вопрос: как объявить массив элементов управления? | Добавлено: 23.08.11 10:25 |
Автор вопроса:  Vitalysan®
|
|
Доброго времени суток!
Есть код: Select Case lngForm
Case 1 With frmIzves .lblDay(0).Caption = Format$(a.Day, "00") End With Case 2 With frmIzves .lblDay(1).Caption = Format$(a.Day, "00") End With End Select Очень хочется сократить код, написав процедуру или функцию... Делаю примерно так: Private Sub Test(lbl() As Label)
Dim i As Long ReDim lbl(1) For i = 0 To 1 lbl(i).Caption = Format$(a.Day, "00") Next End Sub А как правильно объявить? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  ShaVas Вопросов: 2 Ответов: 3 |
Профиль | | #1 | Добавлено: 24.08.11 06:39 |
Насколько я понимаю так:
|
||
|
Номер ответа: 2 Автор ответа: Vitalysan® Вопросов: 25 Ответов: 61 |
Профиль | | #2 | Добавлено: 24.08.11 11:17 |
| Спасибо, но это на .Net, а меня интересует VB6 | ||
|
Номер ответа: 3 Автор ответа: Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #3 | Добавлено: 24.08.11 14:08 |
| просто копируйте лейблы, ide само предложит создать массив | ||
Страница: 1 |