Страница: 1 |
Страница: 1 |
Вопрос: Controls.Add.... А как обрабатывать события?
Добавлено: 31.01.09 10:43
Автор вопроса: fAndOrIn
Форма работает с активным листом, на котором таблица с шапкой в первой строке. Добавляет в форму текстбоксы по количеству колонок таблицы. Возможна ли обработка событий для этих листбоксов?
Dim lblArray() As MSForms.Label
Dim R As Long, C As Long
Private Sub UserForm_Initialize()
For C = 1 To ActiveSheet.UsedRange.Columns.Count
ReDim Preserve txtArray(1 To C), lblArray(1 To C)
Set lblArray(C) = Me.Controls.Add("Forms.Label.1", "Label" & C)
lblArray(C).Top = C * 20: lblArray(C).Caption = Cells(C)
Set txtArray(C) = Me.Controls.Add("Forms.TextBox.1", "TextBox" & C)
txtArray(C).Top = C * 20: txtArray(C).Left = 75
Next C
Me.Height = C * 20 + 20
End Sub
Private Sub CommandButton1_Click() 'NextRecord
R = R + 1
For C = 1 To UBound(txtArray)
txtArray(C) = Cells(R, C)
Next C
End Sub
Private Sub txtArrayN_Change(N As Long) '????????????
End Sub
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
fAndOrIn
Вопросов: 5
Ответов: 344
Профиль | | #1
Добавлено: 31.01.09 13:39
алкотестер зашкаливает, мозги клинит... хелп ми, пжлста (с задачей, не с тестером).
Номер ответа: 2
Автор ответа:
VβÐ
Вопросов: 15
Ответов: 194
Web-сайт:
Профиль | | #2
Добавлено: 01.02.09 15:36
Если это не net , то юзай массивы оъектов, а если net - тогда как то-можно тоже, я точно не знаю. Что-типа handles бла-бла-бла... Наверно...
Номер ответа: 3
Автор ответа:
mc-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #3
Добавлено: 12.02.09 15:17
Суперклассинг окошек? Это когда регистрируем новый класс объектов на основе EDIT, а потом обрабатываем некоторые сообщения этого класса в оконной процедуре.
Номер ответа: 4
Автор ответа:
Artyom
Разработчик
Вопросов: 130
Ответов: 6602
Профиль | | #4
Добавлено: 13.02.09 03:56
VBD, ты гений, посмотри внимательнее что за форум и какой код приводится! Полюбому .NET! гыгыгыгы