かうんと

[カウントダウン]

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

[7]

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

コード: 全て選択

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

[イグトランス]

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

あとSetDlgItemIntもありますよ。