У WINDOWS XP біля віконець є три кнопочки: "згорнути", "розгорнути \ відновити" і "закрити". Я пишу програму і мені необхідно зробити свої такі ж кнопки. Але я не знаю, який код написати, щоб зробити свої кнопки управління вікном: згорнути, розгорнути \ відновити і закрити.
Допоможіть, хто чим може. ) (Мова Visual Basic)
P.S. Прям диво якесь! Як на АСКМ задам питання, так тут же самостійно знаходжу на нього відповідь.
Ну нічого. тепер допоможіть запрограмувати кнопку "максимізувати-відновити". А зробити це треба за допомогою ось цієї інформації:
'ShowWindow () Commands
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_NORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_MAXIMIZE = 3
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOW = 5
Const SW_MINIMIZE = 6
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_RESTORE = 9
Const SW_SHOWDEFAULT = 10
Const SW_MAX = 10
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Command1_Click ()
ShowWindow hwnd, SW_MAXIMIZE
End Sub
Це не зовсім максимізація - це розтягування :(
Причому не повнофункціональний!
При максимізації форму більше не можна за краї чіпати, міняти розмір і тягати вікно. Пропонуєш все це спрограміровать. Ну вже немає! ;)
Я зробив все на API-функції.
А ще є змінна - маскімізіровал - в неї кладеться 1 і підказка змінюється на "Відновити після розгортання"
Клацнешь по кнопці ще раз - в змінну 0, а підказка - "Развенуть"
Мінлива потрібна, щоб при максимізації НЕ максимізувати, а при згорнутому вікні не звернути ще раз :)
P.S. Помітив дивну особливість - Width максимізувати форми більше ніж Screen.Width рівно на 120 твіпов. ) - Kagami Sorano
Мені здається, простіше це самому написати, тому як API-функції в різних системах можуть і вести себе по-різному, а код залишиться кодом.
До речі, якщо не секрет, що за програму ви придумали, і навіщо вам так потрібно програмувати ці кнопки, адже в свойсва форми VB6 і так чимало цікавого по установці цих кнопок.
Width максимізувати форми більше Screen.Width на товщину кордону вікна Х 2. Те ж і з Height. - DEGABB