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