ab.com コミュニティ

実行すると、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]

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]

ab.com コミュニティ

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

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