VBNet - Форум - Отследить событие контрола в VBA

Вопрос: Отследить событие контрола в VBA Добавлено: 30.05.11 18:45

Автор вопроса: Андрей

Добрый день. Подскажите каким образом отследить событие TextBox_Enter. На форме около 20-ти TextBox-ов и тупо писать код на каждый из них не совсем грамотно и громоздко... Заранее спасибо!
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 31.05.11 02:00
	Поставь у формы свойство KeyPreview = True, тогда события будут на форму перенапрвляться. Ответить

Номер ответа: 2 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #2	Добавлено: 31.05.11 08:01
	TextBox_Enter не будет, т.к. перенаправляются только нажатия клавиш. Ответить

Номер ответа: 3 Автор ответа: Ким Чен Ир Вопросов: 0 Ответов: 140	Профиль \| \| #3	Добавлено: 31.05.11 12:06
	Т.к в VBA не предусмотрена такая фишка, как индекс элементов, то можно выкрутиться динамическим созданием контрола, инкапсулированым в класс. Например так: 'модуль класса txtCls Option Explicit Public WithEvents txtBX As MSForms.TextBox Private Sub txtBX_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) UserForm1.COMMON_KeyPress txtBX, KeyAscii End Sub ' модуль формы UserForm1 Dim objTxtCls(5) As New txtCls ' пять текстбоксов на форме Public Sub COMMON_KeyPress(txbx As MSForms.TextBox, ByVal KeyAscii As MSForms.ReturnInteger) Debug.Print txbx.Name End Sub Private Sub UserForm_Initialize() Dim i As Integer Dim ctl As Control For i = 0 To UBound(objTxtCls) Set ctl = Controls.Add("forms.textbox.1", "textbox" & i) ctl.Left = i * 50 Set objTxtCls(i).txtBX = ctl Next End Sub Ответить

Номер ответа: 4 Автор ответа: Андрей Вопросов: 1 Ответов: 1	Профиль \| \| #4	Добавлено: 31.05.11 15:53
	Спасибо!!! Попробую. Ответить

Страница: 1 |