load textbox

dEar / 21.04.2011, 16:15/00:41
Форум: 
Макросы и скрипты

Добрый день.
В VB есть возможность сделать массив кнопок из одной, копируя исходную нужное количество раз:
Load TextBox1(n + 1)
В CorelVBA выдает ошибку "Can't load or unload this object" . Это ограничение VBA или я что-то неправильно делаю?

Sancho / 21.04.2011, 19:17

Если я правильно помню, то в ВБ есть такая фишка как TextBox1(1), TextBox1(2) и т.д. В ВБА такого нет. В любом случае погугли.

dEar / 21.04.2011, 19:47

Да, там у кнопок есть и индексы, и хэндлы... Гуглил - где-то предлагают сделать класс, через API. Думал, может есть простое решение

shark / 21.04.2011, 20:28

dEar, вот тебе такой вариант

Private Sub UserForm_Initialize()
Dim Mycmd As Control
Set Mycmd = Controls.Add("Forms.TextBox.1", "", True)
     Mycmd.Left = 108
     Mycmd.Top = 12
     Mycmd.Width = 72
     Mycmd.Height = 24
end sub

попробуй загнать в цикл, далее меняешь координаты и может даже все получится

dEar / 21.04.2011, 21:01

Работает!
Я было попробовал до этого
Me.Controls.Add "VB.CommandButton" - выдавало ошибку о некорректном классе. Потом отвлекли и...... Буду копать в этом направлении

dEar / 22.04.2011, 00:49

Что-то я запутался... А как отловить нажатие на него?

shark / 22.04.2011, 12:44

метод Keypress или Click

Sancho / 22.04.2011, 16:01

dEar, посмотри эту ссылку, там пример создания класса и события.

dEar / 22.04.2011, 17:06

Спасибо, буду в выходные разбираться