ab.com コミュニティ

コード: 全て選択

SetTimer(hMainWnd,1,1000,AddressOf(Timer) As DWord)

コード: 全て選択

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Dim Time As Long
Dim StopFlag As Long

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
	timer_DestroyObjects()'プロジェクト名をtimerにしたためこの名前になった。適切なものに変更しておくこと。
	PostQuitMessage(0)
End Sub

Sub MainWnd_CommandButton1_Click()
	If StopFlag=1 then Exit Sub
	StopFlag=1
	Time=0
	SetWindowText(GetDlgItem(hMainWnd,EditBox1),Str$(Time))
	SetTimer(hMainWnd,1,1000,AddressOf(Timer))
End Sub

Sub Timer()
	Time++
	SetWindowText(GetDlgItem(hMainWnd,EditBox1),Str$(Time))
End Sub

Sub MainWnd_CommandButton2_Click()
	KillTimer(hMainWnd,1)
	StopFlag=0
End Sub