| Вопрос: как осущес программное добавлен объектов на форму? | Добавлено: 16.01.08 01:02 |
Автор вопроса:  Андрей | Web-сайт: vstu.ucoz.ru/ | ICQ: 353336595 |
|
Как осуществить добавление на форму объектов программно?
В дельфи, помоему, это просто делается... а в VB6.0? |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 16.01.08 09:00 |
| http://bbs.vbstreets.ru/viewtopic.php?t=15288&highlight=&sid=2c65aeb95f91324eccd50f7995b6fa58 | ||
|
Номер ответа: 2 Автор ответа: Андрей ICQ: 353336595 Вопросов: 11 Ответов: 16 |
Web-сайт: Профиль | | #2 | Добавлено: 16.01.08 17:18 |
| благодарю. | ||
|
Номер ответа: 3 Автор ответа: Шаман Вопросов: 1 Ответов: 6 |
Web-сайт: Профиль | | #3 | Добавлено: 17.01.08 10:35 |
|
Нашел вот такой вот пример:
Private WithEvents NewButton As CommandButton 'Сообщаем системе что хотим использовать обработчик событий с кнопкой
Private Sub NewButton_Click() 'Код обработки события нажатия на кнопку MsgBox "Вы нажали на новую кнопку" End Sub Private Sub Form_Click() Set NewButton = Controls.Add("VB.CommandButton", "NewButton"  'при клике по форме появляется новая кнопка
NewButton.Visible = True NewButton.Height = 1000 NewButton.Width = 1000 NewButton.Top = 0 NewButton.Left = 0 NewButton.Caption = "Нажми на меня!!!!" End Sub Удалить элемент управления легко: Form1.Controls.Remove "NewButton" Таким образом вы можете добавлять любой элемент управления, назначать ему обработку событий. В общем все хорошо. Список интендификаторов стандартных элементов управления: VB.ComandButton - Кнопка VB.ComboBox - Раскрывающийся список VB.DirListBox - Список директорий VB.DriveListBox - Список устройств VB.FileListBox - Список файлов VB.Form - Форма VB.Frame - Рамка VB.HScrollBar - Горизонтальная полоса прокрутки VB.Image - Изображение VB.Label - Надпись VB.Line -Линия VB.ListBox - Список VB.MDIForm - MDI форма VB.Menu - Меню VB.OLE - OLE Компонент VB.OptionButton - Выбор VB.PictureBox - Картинка VB.Shape - Окружность VB.TextBox - Текстовое окно VB.UserControl - Пользовательский контрол VB.UserDocument - Пользовательский документ VB.VScrollBar - Вертикальная полоса прокрутки VB.Timer - Таймер Но вот добавить с его помощью меню не получпется ругатся что VB.Menu не верное значение. Помогите пожалуйста сделать динамическое меню (желательно 2 уровня) очень надо диплом пишу! |
||
|
Номер ответа: 4 Автор ответа: ЛёнчикВопросов: 1 Ответов: 3 |
Профиль | | #4 | Добавлено: 23.01.08 17:42 |
|
Мне давненько подсказали использовать "Load"
Например, есть любой элемент (Line1). Делаю его массивом (index=0). А в коде пишу: Load Line1(i) Line1(i).visible=true И вот такое делаю с любым объектом, будь то просто кнопка, или создаваемый контрол. Вот есть проблема: Когда добавил элемент таким способом, то он находится на заднем плане. Как можно его вытащить на передний план? |
||
|
Номер ответа: 5 Автор ответа: АндрейICQ: 353336595 Вопросов: 11 Ответов: 16 |
Web-сайт: Профиль | | #5 | Добавлено: 25.01.08 00:40 |
| Шаман, я пользуюсь твоим кодом, а возможно так же програмно добавить и код обработки процедуры уже добавленного объекта... просто в моём проекте этих объектов может быть больше 1000, и для каждой процедуры, каждого объекта заранее писать код - маразм... | ||
|
Номер ответа: 6 Автор ответа: ZXZ_RUSICQ: 461551757 Вопросов: 0 Ответов: 2 |
Web-сайт: Профиль | | #6 | Добавлено: 28.12.09 10:20 |
| Люди помогите чайнику - самоучке! Нежен код для Дельфи чтоб по нажатию на кнопку на форму добавлялся новый элемент например Shape, а так же код для его удаления! Количество элементво должно быть не ограничено сколько раз нажал столько и добаивлось! Желательно с возможностью задания Left and Top обьекта! Ответы типо погугли не подходят! Зарание спасибо! | ||
|
Номер ответа: 7 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #7 | Добавлено: 28.12.09 10:53 |
| 2ZXZ_RUS: а ответы типа "не в том форуме спрашиваешь" - подойдут? | ||
|
Номер ответа: 8 Автор ответа: ZXZ_RUSICQ: 461551757 Вопросов: 0 Ответов: 2 |
Web-сайт: Профиль | | #8 | Добавлено: 28.12.09 10:57 |
| Почему не в том?! Тогда где? Ссылку плиз!!! | ||
|
Номер ответа: 9 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #9 | Добавлено: 28.12.09 11:07 |
| http://www.delphimaster.ru/ | ||
|
Номер ответа: 10 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #10 | Добавлено: 28.12.09 11:08 |
| а вот еще лучше. прямо универсальная. http://tinyurl.com/yagtfpa | ||
Страница: 1 |