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

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: 再描画で教えてください。

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]

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

by ｹﾞｽﾄ » 2006年7月13日(木) 20:22

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

ページトップ