かうんと
Posted: 2006年1月15日(日) 13:37
カウントダウンをエディットボックスに出力するにはどうすればいいですか。
数値を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