| Вопрос: Программное создание | Добавлено: 19.03.05 20:09 |
Автор вопроса:  Skywalker | Web-сайт: iSkywalker.ru | ICQ: 300-70-6пятьЪ |
| Подскажите как программно создать label, textbox, button?? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 19.03.05 20:24 |
|
создай CommandButton
name: Command1 Index: 0 code: Load Command1(1) Command1(1).Visible = True Command1(1).Move 0, 0 'чтобы видно было, а то она под ней появляется |
||
|
Номер ответа: 2 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545 |
Web-сайт: Профиль | | #2 | Добавлено: 20.03.05 19:31 |
| А лабелы, текстбоксы также? | ||
|
Номер ответа: 3 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #3 | Добавлено: 20.03.05 19:53 |
| Наверное, я не пробовал, щас вб под рукой нету, можешь проверить. | ||
|
Номер ответа: 4 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #4 | Добавлено: 21.03.05 06:53 |
|
Controls.Add "VB.TextBox", "txtName1", frmForm
With frmForm.Controls("txtName1" 
.Visible = True .Width = Val(splt(3)) - Val(splt(1)) .Height = Val(splt(4)) - Val(splt(2)) .Top = Val(splt(2)) .Left = Val(splt(1)) .Text = "" End With Для Лабелов и КоммандБаттонов в первой строчке писать соответствующее VB.Label или VB.CommandButton, только не перепутай свойства и методы, т.к. контрол создается в реальном времени в дизайнере доступны все свойства и методы, поэтому если для Лабела ты напишешь свойство Text - будет ошибка. Кстати CheckBox и ComboBox можно также создавать, короче, VB-это библиотека, CheckBox (Label и прочее) - это класс. Нажав в дизайнере (VB6) клавишу F2 - можно все посмотреть. |
||
|
Номер ответа: 5 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #5 | Добавлено: 21.03.05 06:54 |
|
Прошу прощения, код выдрал из проекта
вот так лучше Controls.Add "VB.TextBox", "txtName1", frmForm With frmForm.Controls("txtName1"
.Visible = True .Width = 1000 .Height = 250 .Top = 50 .Left = 50 .Text = "Это мой новый текстбокс" End With |
||
|
Номер ответа: 6 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #6 | Добавлено: 21.03.05 15:03 |
| При таком подходе контрол придется сабклассировать. ИМХО, в данном случае лучше использовать CreateWindowEx. Гибче, возможностей больше, никаких убогих Label-ов, в замен них STATIC. | ||
|
Номер ответа: 7 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #7 | Добавлено: 21.03.05 15:38 |
| Кстати иногда можно обойтись TextOut | ||
Страница: 1 |