| Вопрос: Как объявить кнопку? | Добавлено: 07.05.07 15:44 |
Автор вопроса:  KreAtoR
|
| Ответы | Всего ответов: 27 |
|
Номер ответа: 16 Автор ответа:  Сашок ICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #16 | Добавлено: 07.05.07 19:07 |
| Fom1 - это имя формы. По умолчанию форма на ВБА имеет имя UserForm1 | ||
|
Номер ответа: 17 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #17 | Добавлено: 07.05.07 19:14 |
|
As MSForms.CommandButton у меня не катит As VB.CommandButton катит Все дело в том, что MSForms.CommandButton зачастую используется для ВБА, а VB.CommandButton для ВБ. |
||
|
Номер ответа: 18 Автор ответа: KreAtoR Вопросов: 120 Ответов: 438 |
Профиль | | #18 | Добавлено: 07.05.07 19:16 |
|
Я не ВБА и даже не представляю что это такое если честно
но в принципе да я ведь пишу = Form1.Controls.Add и так далее А можно ли таким макаром создать Form2? или даже Form1 но это уже врятли, я так понимаю |
||
|
Номер ответа: 19 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #19 | Добавлено: 07.05.07 19:38 |
|
Конечно так не делается, но есть альтернативные пути, например :
Dim Form2 As New Form1 Private Sub Form_Click() Form2.Visible = True Form2.Caption = "New Form" ' Add a CommandButton. Set ctlCommand = Form2.Controls.Add("VB.CommandButton", _ "ctlCommand1", Form2) '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 Запускаешь проект, кликаешь по форме и ву а ля! |
||
|
Номер ответа: 20 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #20 | Добавлено: 07.05.07 19:39 |
|
Сорри завтыкал в начале :
Dim WithEvents ctlCommand As VB.CommandButton |
||
|
Номер ответа: 21 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #21 | Добавлено: 07.05.07 19:52 |
|
Ха кууууль воркед!!!!!!
идея просто супер!!!!!! Наконец торазобрался как это делается а то лепишь как дурак никакого обзора нету. Текст тут а штуки эти тамю Спасибо спасибо спасибо, кланаяюсь. Еще бы Форм1 так сделать, но увы не возможно. Еще раз пасибо |
||
|
Номер ответа: 22 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #22 | Добавлено: 07.05.07 19:58 |
|
Во еще вопрос возник. А как уничтожить это дело.
Кпримеру на форме2 когда кликаешь на кнопку, чтоб эта форма унитожилась, хотя объявлена в форме 1 ну и еще как к примеру на форме1 есть текстбокс и кнопка. на кнорку нажал бокс унитожился |
||
|
Номер ответа: 23 Автор ответа: VisualPaul ICQ: 402519798 Вопросов: 12 Ответов: 111 |
Профиль | | #23 | Добавлено: 07.05.07 20:19 |
|
Добавляешь Command Button и пишешь
Dim X As New Имя_кнопки
. |
||
|
Номер ответа: 24 Автор ответа: VisualPaul ICQ: 402519798 Вопросов: 12 Ответов: 111 |
Профиль | | #24 | Добавлено: 07.05.07 20:21 |
|
А чтоб удалить
Unload Имя_кнопки
|
||
|
Номер ответа: 25 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #25 | Добавлено: 08.05.07 13:25 |
|
Поднимаю снова тему.
Dim Button() as VB.CommandButton Private Sub Form_Load() 'этого делать нельзя для массива Set Button() = Form1.Controls.Add("VB.CommandButton","button",Form1) dim i as byte for i = 0 to 2 button(i).visible = true next i end Sub А как же тогда слеать. Как массив кнопок объявить |
||
|
Номер ответа: 26 Автор ответа: VisualPaul ICQ: 402519798 Вопросов: 12 Ответов: 111 |
Профиль | | #26 | Добавлено: 16.05.07 15:34 |
| [a href = "http://www.microsoft.com"]www.microsoft.com[/a] | ||
|
Номер ответа: 27 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #27 | Добавлено: 16.05.07 17:43 |
| Спасибо что послал меня в самую шоколадную точку мира | ||