[ExcelVBA] WindowsAPI 一覧

>Blog Top Page >[ExcelVBA] Top Page

■はじめに
WindowsAPIを学習するにあたって、日々わかったことをまとめていく予定です。
まずは、学習し始めに知っておくと少しは楽になるかもしれない内容をまとめたのでそちらからどうぞ
→WindowsAPIについて

※注：コードの検証は、XP、Office2003でしか行なっておりません。

■API一覧

API	内容
BringWindowToTop	ウィンドウをZオーダーの先頭に持ってくる
EnumWindows	画面上のすべてのトップレベルウィンドウを列挙する
FindWindow	クラス名やウィンドウ名からウィンドウハンドルを取得
FindWindowEx	親ハンドル、クラス名、ウィンドウ名から子ハンドルを取得
GetClassName	ウィンドウが属するクラスの名前を取得
GetDesktopWindow	デスクトップのハンドルを取得
GetWindowRect	ウィンドウ全体の座標を取得
SendMessage	メッセージをウィンドウへ送信
Sleep	スレッドの実行を指定の時間だけ中断する

■宣言一覧

view plainprint?

1. Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long  
2.   
3. Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, lParam As Long) As Long  
4.   
5. Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _  
6.     (ByVal lpClassName As String, ByVal lpWindowName As String) As Long  
7.   
8. Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _  
9.     (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long  
10.   
11. Declare Function GetDesktopWindow Lib "user32" () As Long  
12.   
13. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long  
14. Type RECT  
15.     Left As Long  
16.     Top As Long  
17.     Right As Long  
18.     Bottom As Long  
19. End Type  
20.   
21. Declare Function MoveWindow Lib "user32.dll" _  
22.         (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, _  
23.          ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long  
24.   
25. Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _  
26.     (ByVal hWnd As Long, ByVal MSG As Long, _  
27.      ByVal wParam As Long, ByVal lParam As Long) As Long  
28.   
29. Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)  
30.   
31.   
32. '■SendMessageで使用  
33. Const BM_CLICK = &HF5　      'Clickする        第三:0, 第四:0, Ret:なし  
34. Const WM_GETTEXT = &HD       'Textを取得する 　第三:受取る文字数, 第四:受取る為の変数  
35. Const WM_GETTEXTLENGTH = &HE '文字数を取得する 第三:0, 第四:0, Ret:バイト数  
36. Const WM_CLOSE = &H10            '閉じる           第三:0, 第四:0, Ret:なし  

Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long

Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, lParam As Long) As Long

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
    (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Declare Function GetDesktopWindow Lib "user32" () As Long

Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Declare Function MoveWindow Lib "user32.dll" _
        (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, _
         ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal MSG As Long, _
     ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)


'■SendMessageで使用
Const BM_CLICK = &HF5　      'Clickする        第三:0, 第四:0, Ret:なし
Const WM_GETTEXT = &HD       'Textを取得する 　第三:受取る文字数, 第四:受取る為の変数
Const WM_GETTEXTLENGTH = &HE '文字数を取得する 第三:0, 第四:0, Ret:バイト数
Const WM_CLOSE = &H10            '閉じる           第三:0, 第四:0, Ret:なし

■さんぷるこーど
・EnumWindow関数を使って楽にハンドルを取得したい

>Blog Top Page >[ExcelVBA] Top Page