VPF::Зациклить события - Форум программистов

CaptainNemo

Дата 12.10.2008, 01:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 5.6.2008
Где: White Russia, Min sk

Репутация: 2
Всего: 9

Подскажите, реально ли зациклить события, что бы не заниматься вот такой вот фигнёй, приведенной ниже, для каждого объекта. Очевидно, цикл напришивается For i=1 To 12 и для каждого i-го сопоставить элемент из Array. Реально ли такое делать в VBA?
===================================

Код


Dim i As Integer
Private Sub SpinButton1_Change()
    Label1.Caption = "Янв  " & SpinButton1.Value
End Sub
Private Sub SpinButton2_Change()
    Label2.Caption = "Фев  " & SpinButton2.Value
End Sub
Private Sub SpinButton3_Change()
    Label3.Caption = "Мар  " & SpinButton3.Value
End Sub
Private Sub SpinButton4_Change()
    Label4.Caption = "Апр  " & SpinButton4.Value
End Sub
Private Sub SpinButton5_Change()
    Label5.Caption = "Май  " & SpinButton5.Value
End Sub
Private Sub SpinButton6_Change()
    Label6.Caption = "Июн  " & SpinButton6.Value
End Sub
Private Sub SpinButton7_Change()
    Label7.Caption = "Июл  " & SpinButton7.Value
End Sub
Private Sub SpinButton8_Change()
    Label8.Caption = "Авг  " & SpinButton8.Value
End Sub
Private Sub SpinButton9_Change()
    Label9.Caption = "Сен  " & SpinButton9.Value
End Sub
Private Sub SpinButton10_Change()
    Label10.Caption = "Окт  " & SpinButton10.Value
End Sub
Private Sub SpinButton11_Change()
    Label11.Caption = "Ноя  " & SpinButton11.Value
End Sub
Private Sub SpinButton12_Change()
    Label12.Caption = "Дек  " & SpinButton12.Value
End Sub

=========================
smile

Ну что-нибудь вроде такого, но что бы работало...

Код


Option Base 1
Dim myI As Integer
Dim myArray As Variant
Public Sub mySub()
myArray = Array("Янв", "Фев", "Мар", "Апр", _
"Май", "Июн", "Июл", "Авг", "Сен", "Окт", "Ноя", "Дек")
For Each SpinButton In UserForm2
Label(i).Caption = SpinButton(i).Value & " " & myArray(i)

End Sub

Это сообщение отредактировал(а) CaptainNemo - 12.10.2008, 02:19

Aloha

Дата 12.10.2008, 11:20 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник Клуба
Сообщений: 351
Регистрация: 14.5.2006

Репутация: 5
Всего: 165

CaptainNemo

Посмотри тему о создании массива элементов управления на UserForm (VBA)
Наибольшего внимания, на мой взгляд, заслуживает пример от Дмит

CaptainNemo

Дата 12.10.2008, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 5.6.2008
Где: White Russia, Min sk

Репутация: 2
Всего: 9

Да, хороший пример. Спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »