再描画で教えてください。

メッセージ

ｹﾞｽﾄ

実行すると、EditBox1に５が表示されて停止すると思うのですが実際には、４で停止します。なぜ再描画した後に止まらないのでしょうか？


Dim CUNT As Long
Sub MainWnd_CommandButton1_Click()
	Dim hEdit As HWND
	CUNT = CUNT + 1
	hEdit=GetDlgItem(hMainWnd,EditBox1)
	SetWindowText(hEdit,Str$(CUNT) )
	InvalidateRect(hEdit,ByVal 0,1)
	IF CUNT = 5 THEN Debug
End Sub

[/list]

Ryo · #2 投稿記事 by **Ryo** » 2006年7月13日(木) 21:03

InvalidateRect(hEdit,ByVal 0,1) を UpdateWindow(hMainWnd) に変えてみてください。
コードは以下のような感じです。

コード: 全て選択

Dim CUNT As Long
Sub MainWnd_CommandButton1_Click()
    Dim hEdit As HWND
    CUNT = CUNT + 1
    hEdit=GetDlgItem(hMainWnd,EditBox1)
    SetWindowText(hEdit,Str$(CUNT) )
    UpdateWindow(hMainWnd)
    IF CUNT = 5 THEN Debug
End Sub

[/b]