[[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を使う方法もある。

タグ:

+ タグ編集
  • タグ:
最終更新:2010年09月03日 13:17