| Вопрос: Как объявить кнопку? | Добавлено: 07.05.07 15:44 |
Автор вопроса:  KreAtoR
|
|
Никак не могу объявить кнопку в тексте кода а не простым перетаскиванием.
Пытался так Private knopka As CommandButton а потом когда пытаюсь в Form_Load() с ней что то сделать, то он пишет ошибка "91" как можно объявить???? желательно примером, если можно |
| Ответы | Всего ответов: 27 |
|
Номер ответа: 1 Автор ответа:  vic Вопросов: 1 Ответов: 1 |
Профиль | | #1 | Добавлено: 07.05.07 16:31 |
|
Добавьте на форму кнопку, затем скопируйте ее и вставьте на форму. Таким образом вы получите массив.
Private Sub Form_Load() Load Command1(Command1.Count) Command1(Command1.Count - 1).Left = Command1 Command1.Count - 1).Left + 2500 Command1(Command1.Count - 1).Visible = True End Sub |
||
|
Номер ответа: 2 Автор ответа: GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #2 | Добавлено: 07.05.07 16:37 |
|
Таким образом вы получите массив.
Таким образом, читайте название раздела и увидьте, что в VBA таких массивов не бывает. |
||
|
Номер ответа: 3 Автор ответа: Сашок ICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #3 | Добавлено: 07.05.07 17:03 |
Читай МСДН 
Dim WithEvents ctlCommand As VB.CommandButton Private Sub Form_Load() ' Add a CommandButton. Set ctlCommand = Controls.Add("VB.CommandButton", _ "ctlCommand1", Form1) ' Set the location and size of the CommandButton. ctlCommand.Move 100, 100, 2000, 1000 ' Set the caption ctlCommand.Caption = "Click Me" ' Make it visible ctlCommand.Visible = True End Sub Private Sub ctlCommand_Click() MsgBox "You Clicked the Command button" End Sub |
||
|
Номер ответа: 4 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #4 | Добавлено: 07.05.07 17:06 |
|
Если хочешь, могу скинуть примерчик по круче ! Там показан пример добавления не стандартных контролов и отслежывание всех их событий
|
||
|
Номер ответа: 5 Автор ответа: Visual Basic .NET 2005 Пиратская версия Вопросов: 38 Ответов: 190 |
Web-сайт: Профиль | | #5 | Добавлено: 07.05.07 17:10 |
| А разве в МСДН есть про ВБА? | ||
|
Номер ответа: 6 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #6 | Добавлено: 07.05.07 17:12 |
|
Впринцыпе это пример не только для ВБА, но и для ВБ. Если тебе нужна справка по ВБА юзай справку по майкрософт оффису! Лично я так делаю
|
||
|
Номер ответа: 7 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #7 | Добавлено: 07.05.07 17:49 |
Иногда бывают обломы 
Некоторые ВБА НЕ ПОДДЕРЖИВАЮТ выше приведенный код. Вот линк для другой реализации: http://www.tek-tips.com/faqs.cfm?fid=5757 |
||
|
Номер ответа: 8 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #8 | Добавлено: 07.05.07 17:56 |
|
Ну и ко соответственно перепишется так :
Dim WithEvents ctlCommand As MSForms.CommandButton Private Sub UserForm_Click() ' Add a CommandButton. Set ctlCommand = Form1.Controls.Add("Forms.CommandButton.1"
' Set the location and size of the CommandButton. ctlCommand.Move 100, 100, 2000, 1000 ' Set the caption ctlCommand.Caption = "Click Me" ' Make it visible 'ctlCommand.Visible = True End Sub Private Sub ctlCommand_Click() MsgBox "You Clicked the Command button" End Sub |
||
|
Номер ответа: 9 Автор ответа:  KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #9 | Добавлено: 07.05.07 18:04 |
|
Если хочешь, могу скинуть примерчик по круче
! Там показан пример добавления не стандартных контролов и отслежывание всех их событий Кидай конечно на alsou@o2online.de заранее спасибо |
||
|
Номер ответа: 10 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #10 | Добавлено: 07.05.07 18:08 |
|
Set ctlCommand = Controls.Add("VB.CommandButton","ctlCommand1", Form1)
объясните пожалуйста что здесь происходит вообще у меня тут ничего путного не выходит |
||
|
Номер ответа: 11 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #11 | Добавлено: 07.05.07 18:20 |
| KreAtoR с удовольствием пришлю тебе пример | ||
|
Номер ответа: 12 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #12 | Добавлено: 07.05.07 18:22 |
|
объясните пожалуйста что здесь происходит вообще у меня тут ничего путного не выходит Смотри на пост выше. Короче перешу еще разок Dim WithEvents ctlCommand As MSForms.CommandButton Private Sub UserForm_Click() ' Add a CommandButton. Set ctlCommand = Form1.Controls.Add("Forms.CommandButton.1"
' Set the location and size of the CommandButton. ctlCommand.Move 100, 100, 2000, 1000 ' Set the caption ctlCommand.Caption = "Click Me" ' Make it visible 'ctlCommand.Visible = True End Sub Private Sub ctlCommand_Click() MsgBox "You Clicked the Command button" End Sub Это должно прокатить
|
||
|
Номер ответа: 13 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #13 | Добавлено: 07.05.07 18:48 |
|
As MSForms.CommandButton у меня не катит
As VB.CommandButton катит все проблемы начинаются когда в фор лоад объявляю кнопку или точнее сказать пытаюсь. set ctlCommand = а вот тут все наперекосяк. Блин тяжело когда не знаешь да еще и забыл!!!! ставлю Fom1.Controls то на этом все после точки add не выходит и он не принимает эту рукопись ставлю просто Controls как в первом примере то тоже с точкой ничего не выходит. Короче парюсь на первой строчке. |
||
|
Номер ответа: 14 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #14 | Добавлено: 07.05.07 18:49 |
| Сашок за пример кстати спасибо | ||
|
Номер ответа: 15 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #15 | Добавлено: 07.05.07 18:53 |
|
Ха пошло и все дело было в одном знаке.
неправильно Set com = Controls.Add("VB.CommandButton ", "com", Form1)
правильно Set com = Controls.Add("VB.CommandButton", "com", Form1)
Какой блин привередливый, а??? |
||