ab.com コミュニティ

さらに上の操作をTimerイベントで処理するようにすればそれらしくなると思います。

あとSetDlgItemIntもありますよ。

Dim cnt As Long
Dim hEdit As HWND
	hEdit=GetDlgItem(hMainWnd,EditBox1)
	For cnt=0 To 10
		SetWindowText(hEdit,Str$(10-cnt))
		UpdateWindow(hEdit)
		Sleep(1000)
	Next

> カウントダウンをエディットボックスに出力するにはどうすればいいですか。
数値をStr$()関数で文字列に変換して、それをSetWindowText()関数やSetDlgItemText()関数でエディットボックスに設定してやります。

[code]Dim cnt As Long
Dim hEdit As HWND
hEdit=GetDlgItem(hMainWnd,EditBox1)
For cnt=0 To 10
SetWindowText(hEdit,Str$(10-cnt))
UpdateWindow(hEdit)
Sleep(1000)
Next[/code]

カウントダウンをエディットボックスに出力するにはどうすればいいですか。