Изменение стиля формы...

[X-BOND]

Провожу небольшие эксперименты с окнами в VBA. Уже сделал полупрозрачность, применил регион, попробовал добавить кнопочки Max/Min. Вроде работает, но после изменения свойства Form.Caption кнопочки пропадают.
Можно ли сабкласить формы в VBA без последствий?

[GSerg]

А что, последствия бывают?

[Rombo]

это через WinAPI ?
ой, а можно исходник в студию как наглядное пособие плиз !

[X-BOND]

Для начала идешь суда и качаешь API-Guide

А исходник очень прост:

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

Private Sub UserForm_Activate()
Dim hWnd As Long
Dim wStyle as Long

wStyle = WS_VISIBLE Or WS_CLIPSIBLINGS Or WS_CLIPCHILDREN Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
hWnd = GetForegroundWindow
Call SetWindowLong(hWnd, GWL_STYLE, wStyle)
Call DrawMenuBar(hWnd)

End Sub

Декларации функций и константы смотришь в API-Guide

[X-BOND]

А что, последствия бывают?

Ну типа подводные камни, как с потоками на VB. Вроде как и можно, но после сталкиваешся с определенными трудностями.
Вот у тебя, например, есть личный опыт сабклассинга VBA ?

[GSerg]

У меня есть личный опыт сабклассинга всего.
А что?

[X-BOND]

А то. Делиться опытом надо
Вот, например, как отловить момент изменения текста заголовка?

[GSerg]

Очень интересно, зачем

[X-BOND]

Не важно - зачем, важно - как
Ладно, предложи свой вариант, чтобы после изменения заголовка стиль окна не изменялся.

[GSerg]

Ты знаешь, совершенно неохота
Лучше опиши свои проблемы

[X-BOND]

Я вроде как в первом топике проблему описал...
Вообщем сделал я просто. После каждого изменения заголовка (заголовок использую в качестве статусбара) заново применяю стиль.
Хотя есть наверно более изящный способ...

[GSerg]

Есть. Использовать в качестве статусбара статусбар

[X-BOND]

Я люблю применять нестандартные решения.
Зачем нам лишние контролы

[GSerg]

Кинь label в низ формы, а?

[X-BOND]

Ну Вы, батенька, и консерватор
или Label, это не контрол?
и почему статусбар должен быть внизу?
Долой стереотипы! (см. подпись)

[X-BOND]

Продолжаем тему...

Попытался присвоить окошку иконку, а не хочет.

Call SendMessage(hWnd, WM_SETICON, 0, LoadIcon(GetModuleHandle("SHELL32.DLL"), ByVal 33))