Как в VBA к форме добавить кнопки Minimize/Maximize

[Vasily-777]

Добрый день коллеги, порылся в материале ничего подобного не нашёл, приминительно к VBA. Я пишу програмы под AutoCAD и у меня возник вопрос как к форме(VBA) добавить кнопки Minimize/Maximize , (Свернуть / Развернуть). В свойствах формы я их не нашёл.

[dr.MIG]

Рисовать самому как вот здесь: http://bbs.vbstreets.ru/viewtopic.php?t=27436

[Vasily-777]

Понимаете, как нестранно у формы отсутствует метод .hwnd,
если он был бы я эти кнопки minimize/ maximize через API вывел на своё место.

[GSerg]

А как ни странно отсутствующий метод (хотя это и не метод) .hwnd находится, как здесь (только класс окна надо убрать).

[dr.MIG]

Рисовать самому как вот здесь: http://bbs.vbstreets.ru/viewtopic.php?t=27436

Мда, это я погорячился... Стандартные кнопки ведь можно добавить через SetWindowLong

[Vasily-777]

Вписал такие строки:

Код: Выделить всё

Private Sub UserForm_Initialize()
Dim hwdn As Long
hwdn = FindWindow("ThunderDFrame", Me.Caption)
SetWindowRgn HWND, FullRgn, True
End Sub


На строку FindWindow("ThunderDFrame", Me.Caption)
материться:
- function not defined

Да нсчёт метода я тоже погоричился?
И вопрос, как через SetWindowLong добавить эти две загадочные
кнопки в VBA minimize / maximize

[GSerg]

Я же говорил, класс окна убрать.
И нафига тебе SetWindowRgn? "Копирую, а думать-то зачем?"?

Когда ты говорил "я бы эти кнопки через API", то создалось впечатление, что ты знаешь, что такое API. А получается, не знаешь, причём совсем и вообще. Интересно, интересно. Чего так?

[Vasily-777]

Конечно незнаю, есть подходящей листинг
чтоб эти кнопочки включить, но он не работает.
А последнее я скопировал не думая.

Так вот и Хотелось бы у Гуру
спросить, в формах VBA есть ли кнопки развернуть / свернуть.
Я не профи, я прикладник.

Ответьте для Чайника, не стоит возмущаться, знатока я здесь из себя не строю. И не надо быть таким впечатлительным.

[dr.MIG]

Я бы дал код полностью, но пишу с телефона...
P.S. а ты ф-ю вообще-то объявил (типа Private Declare...)?
P.P.S. скачай ApiGuid или хотя бы мой справочник по API на русском.

[Vasily-777]

Ты меня прости, на форуме я новенький поэтому я незнаю, где качнуть. Но сейчас порыскаю ссылочку.

Чувствует моя душа, что в VBA нет такой возможности, иначе
бы разработчики эти кнопки сразу бы встраивали в форму.
С чем это связано, приминительно к AutoCAdу , с ожиданием ввода команды, а её можно ввести только когда форма закрыта. Поэтому многие переходят писать на VB, чтобы непосредственно из программы связыватья с приложением , а не приложением вызывать прогу. Ну это лирика.
Конечно хотелось узнать можно ли каким нибудь иным способом решить этот вопрос, пригодилось бы у нас многим .

[Pavel55]

Может этот пример чем-нить поможет

[Vasily-777]

Пример действительно очень хороший.
Спасибо за помощь пригодиться!