Кнопки минимизировать, максимизировать может я ослеп

[YanMinsk]

Ваще уже не догоняю, читаю хелп

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

UserForm Window
   
Allows you to create the windows or dialog boxes in your project. You draw and view controls on a form.

While you are designing a form:

Each form window has a Maximize, Minimize, and Close button.


Но как установить эти кнопки я в упор не нахожу.

[MIT]

Min/MaxButton

[YanMinsk]

To Mit. Если можно поподробнее в VBA я никак не найду Min/MaxButton

[arvitaly]

Их и нет, надо делать вручную

[YanMinsk]

Афигеть
И как это сделать

[arvitaly]

2 cпособа находить hwnd это формы и посылать ей сообщение либо просто уменьшать и увеличивать ее размер

[karlex]

2 cпособа находить hwnd это формы и посылать ей сообщение либо просто уменьшать и увеличивать ее размер

Это для того чтобы кнопки появились?

[YanMinsk]

Вот и я офигеваю

[arvitaly]

Это чтобы они работали (а как я уже написал не знаю почему вы оба не заметили читать видимо не умеете - кнопку рисовать придется ручками)

И еще для чего эти кнопки в Excel???

[karlex]

Это чтобы они работали (а как я уже написал не знаю почему вы оба не заметили читать видимо не умеете - кнопку рисовать придется ручками)

Ничего рисовать не нужно, это делается через стили окна.

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

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE = (-16)

Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000

Private Sub UserForm_Initialize()
    Dim dwStyle As Long, hWnd As Long
    hWnd = FindWindow("ThunderDFrame", Me.Caption)
    If IsWindow(hWnd) <> 0 Then
        dwStyle = GetWindowLong(hWnd, GWL_STYLE)
        If dwStyle <> 0 Then
            dwStyle = dwStyle Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX
            Call SetWindowLong(hWnd, GWL_STYLE, dwStyle)
        End If
    End If
End Sub