Win32API をイイカンジに使いたい
定義
ShowWindow
を VBAで定義するとこんな感じになる。
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As LongPtr) As LongPtr
Private Const SW_SHOWNORMAL As Integer = 1
Private Const SW_SHOWMINIMIZED As Integer = 2
Private Const SW_SHOWMAXIMIZED As Integer = 3
使いやすくする
このままでは使いにくいので使いやすいようにラップする。heyYo
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As LongPtr) As LongPtr
Private Const SW_SHOWNORMAL As Integer = 1
Private Const SW_SHOWMINIMIZED As Integer = 2
Private Const SW_SHOWMAXIMIZED As Integer = 3
Public Sub ShowWindowNormal()
Call ShowWindow(Application.hwnd, SW_SHOWNORMAL)
End Sub
Public Sub ShowWindowMin()
Call ShowWindow(Application.hwnd, SW_SHOWMINIMIZED)
End Sub
Public Sub ShowWindowMax()
Call ShowWindow(Application.hwnd, SW_SHOWMAXIMIZED)
End Sub