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

未返信トピック | 最近のトピック

掲示板トップ » »

全ての表示時間は UTC+09:00 です

新しいトピックを投稿するトピックへ返信する

ページ 1 ／ 1

[ 2 件の記事 ]

印刷ビュー

１つ前のトピックへ | 次のトピックへ

作成者

メッセージ

ｹﾞｽﾄ

記事の件名: 再描画で教えてください。

投稿記事Posted: 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]

通報する

ページトップ

引用付きで返信する

Ryo

記事の件名:

投稿記事Posted: 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]