[[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
タグ: