| Вопрос: Создать RichTextBox | Добавлено: 02.07.08 09:00 |
Автор вопроса:  $Костян | ICQ: 448495665 |
| Собсно требуется во время работы программы создать новый элемент управления, а в последствии его удалить. Всё перепробовал, ниче не получается) |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  VisualPaul  ICQ: 402519798 Вопросов: 12 Ответов: 111 |
Профиль | | #1 | Добавлено: 02.07.08 10:32 |
|
на форме есть кнопка Command1
новая будет иметь её свойства Private Sub MakeButton()
Static a As New Command1 End Sub Удаление: Private Sub DeleteButton(Cmd as Command)
Unload Cmd End Sub Проверь, и исправь, пожалуйста Я так только с формами делал, но должно работаь. |
||
|
Номер ответа: 2 Автор ответа: $Костян ICQ: 448495665 Вопросов: 11 Ответов: 33 |
Профиль | | #2 | Добавлено: 02.07.08 11:39 |
|
с кнопкой не прокатывает(
попробовал ещё так: Static a As New CommandButton
пишет: "недействительное использование нового ключевого слова" если же написать так: Static a As CommandButton
то ошибок нет, но при попытке обратиться к любому свойству кнопки, возникает ошибка 91 |
||
|
Номер ответа: 3 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #3 | Добавлено: 02.07.08 12:06 |
|
Пример с Русского проекта Объяви Private WithEvents new_button As CommandButton Private Sub Form_Load() Set new_button = Me.Controls.Add("VB.CommandButton", "cmdNew" 
With new_button .Move 120, 120 .Caption = "Новая кнопка" .Visible = True .Height = 590 End With End Sub Private Sub new_button_Click() MsgBox "Зачем нажал?", , "Русский_Проект" End Sub |
||
|
Номер ответа: 4 Автор ответа: $КостянICQ: 448495665 Вопросов: 11 Ответов: 33 |
Профиль | | #4 | Добавлено: 02.07.08 14:23 |
| спасибо | ||
Страница: 1 |