Конференция VBStreets

**Alexanbar** » 06.04.2006 (Чт) 10:38

Хотелось бы создать форму полностью программно.
Пробовал так:

Код: Выделить всё: Set frm=CreateObject("VB.Form","Form1")

и так:

Код: Выделить всё: Set frm = Forms.Add("form2")

- не работает.

Ну и, к созданной форме добавить кнопки и поддержку событий их нажатия. Надеюсь, что Controls.Add и WithEvents помогут.

Начальные условия: в проекте нет форм, из которых создать новую как

Код: Выделить всё: Set frm=New Form1

**GSerg** » 06.04.2006 (Чт) 10:42

Alexanbar
Дык это.
New Form1 - это создание экземпляра класса по имени Form1. Если класс не описан, чё создаём?

**Viper** » 06.04.2006 (Чт) 10:43

Если в проекте нет форм, значит нет класса на основе которого можно сделать экземпляр класса. Следовательно идея не прокатит, разве что создавать форму как окно и заполнять ее соответствующим содержимым используя API, но это задачка мягко говоря непростая, да и не стоит такое делать по моему разумению

**Konst_One** » 06.04.2006 (Чт) 10:52

CreateWindowEx

например, создать свой тултип:

Код: Выделить всё: hWndTip = CreateWindowEx(WS_EX_TOPMOST, TOOLTIPS_CLASSA, "", WS_POPUP Or dwFlags, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, hWndParent, 0, App.hInstance, ByVal 0&)

**Konst_One** » 06.04.2006 (Чт) 10:58

еще вот это посмотри:
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=34819&lngWId=1

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=34831&lngWId=1

**alibek** » 06.04.2006 (Чт) 11:04

Konst_One писал(а):CreateWindowEx

Ты только забыл добавить, что WindowProc тоже должен быть своим

ИМХО, оно того не стоит.

**Konst_One** » 06.04.2006 (Чт) 11:11

конечно свой, я дальше ссылочки дал на полный цикл регистрации своего класса окна и его создания с обработчиком событий

**tyomitch** » 06.04.2006 (Чт) 11:14

Alexanbar, вон мой проект с ActiveX-контролом без форм:
http://bbs.vbstreets.ru/viewtopic.php?t=9370

Можешь брать за основу ;-)

**Andrey Fedorov** » 06.04.2006 (Чт) 11:19

Alexanbar писал(а):Хотелось бы создать форму полностью программно.

Код: Выделить всё: Dim WithEvents f as Form .... Set f = New Form

**Konst_One** » 06.04.2006 (Чт) 11:23

Andrey Fedorov
не все так просто, проверь

**Andrey Fedorov** » 06.04.2006 (Чт) 11:32

Konst_One писал(а):Andrey Fedorov
не все так просто, проверь

Вай давно делал - забыл уже все.
Не сработает:

Код: Выделить всё: Set f = New Form

Однако никто не мешает создать новую форму на основе уже имеющегося шаблончика (можно пустой формы-заготовки или уже с каким-то набором компонентов, что может быть даже удобнее). Не совсем с нуля, но и ничем, собственно, не хуже.

Код: Выделить всё: Set f = New FormTemplate

**GSerg** » 06.04.2006 (Чт) 11:49

Andrey Fedorov
Топик таки прочитай с начала

Конференция VBStreets

Создание формы с нуля

Создание формы с нуля

Re: Создание формы с нуля

Кто сейчас на конференции