Dim hw As Long

'ウインドウの定義
Window hw,0,0,0,100,100,"title",WS_OVERLAPPEDWINDOW

'ウインドウの表示
ShowWnd hw,SW_SHOW

Dim msg As Long
Dim wP As Long
Dim lP As Long

'メッセージループ
While 1
	GetWndMsg hw,msg,wP,lP
	print msg,wP,lP
Wend

メッセージループはWin32APIを使う方法もある。

タグ:

+ タグ編集
  • タグ:

このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー利用規約 が適用されます。

最終更新:2010年09月03日 13:17