• На форуме с 9 июня 2008г.
  • Сообщений: 47
  • Спасибо: 0

Тема: Динамическое добавление элементов управления

Почему ниже привеленный код работает в vb6, а в vba выдает ошибку с описанием:
"Недоступна строка с указанием класса"
Private Sub Form_Click()
Set NewButton = Controls.Add("VB.CommandButton", "NewButton") 'при клике по форме появляется новая кнопка
NewButton.Visible = True
NewButton.Caption = "Кнопка"
End Sub

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Динамическое добавление элементов управления

> Dolgy44
Пример для VBA:

Private Sub UserForm_Initialize()
Dim ctl As Control
Set ctl = Me.Controls.Add("Forms.label.1", "lblTxt", True)
ctl.Left = 10: ctl.top = 10: ctl.Width = 60
Dim lbl As Label
Set lbl = ctl
lbl.Caption = "Enter value:"
Set ctl = Me.Controls.Add("Forms.textbox.1", "txtBox1", True)
ctl.Left = 60: ctl.top = 10: ctl.Width = 120
Dim btn As CommandButton
Set ctl = Me.Controls.Add("Forms.commandbutton.1", "cmdText1", True)
ctl.Left = 70: ctl.top = 40: ctl.Width = 60: ctl.Height = 18
Set btn = ctl
btn.Caption = "OK"
End Sub

~'J'~

  • На форуме с 4 мая 2009г.
  • Сообщений: 34
  • Спасибо: 0

Re: Динамическое добавление элементов управления

Тогда у меня вопрос.
Я создал динамический TextBox...
Как при вводе в него потом данных их обработать...
Ввел я "1", как сделать реакцию на событие типа "Change"...
Спс...