| |
|
|
| | Можно ли как нибудь узнать, максимизирована форма или нет? | |
| |
| |
| |
|
|
| | например, узнать из самой формы по нажатию кнопки:
Private Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
------------------------------------------------------------------------------------------------------------
Private Sub Command0_Click()
If IsZoomed(Me.hwnd) Then
MsgBox "Форма развернута"
Else
MsgBox "Форма не развернута"
End If
End Sub
|
| |
| |
| |
| |
|
|
| | А как правильно максимизировать форму? чтобы получалось как при максимизации вручную, т.е. при максимизации формы заголовок прячется а вправом нижнем углу тулбара появляются кнопки закрытия, изменения и свёртывания формы.
Применяю эту функцию:
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
call apiShowWindow me.hWnd, SW_MAXIMIZED
Но окно максимизируется неправильно: заголовок не прячется и нижняя часть формы уплывает вниз за панель задач. | |
| |
| |
|
|
| |
|
|
| |  Пора мне в отпуск, пора!
| |
| |
| |
