ab.com コミュニティ

　次のような簡単なプログラムをRADツールを使って作ったとします。

Dim i As Long
For i=1 To 10000
　　　SetWindowText(GetDlgItem(hMainWnd,Static1),Str$(i))
Next
SetWindowText(GetDlgItem(hMainWnd,Static1),"終了")

　これを実行している最中に、一旦他のアプリケーション（例えばエクスプローラ）をアクティブにしたり、このプログラムのウィンドウを移動させたりすると、カウンタの表示が更新されなくなったり、ウィンドウが白くなったりするのを回避する方法はないでしょうか？
　ループが終了すれば、正常なウィンドウに戻ります。

　初心者なので、バカな質問をしているかもしれません。
　UpdateWindowやInvalidateRect, RedrawWindow, Sleep等を試してみましたがダメでした。せっかく作ったカウンタやプログレスバーが意味をなさず困っています。お助け下さい。

別スレッドで動かす　という方法があります。

コード: 全て選択

Dim flag As Long
Sub MainWnd_CommandButton1_Click()
	if flag=1 then Exit Sub
	flag=1
	CreateThread(ByVal 0,0,AddressOf(CountUp),0,0,0)
End Sub

Sub CountUp()
	Dim i As Long 
	For i=1 To 10000 
		SetWindowText(GetDlgItem(hMainWnd,Static1),Str$(i))
	Next 
	SetWindowText(GetDlgItem(hMainWnd,Static1),"終了")
	flag=0
End Sub

　konisi様

　うまくいきました！感激！！
　
　いやぁ、勉強になります。とても助かりました。

　どうも有り難うございました。

ab.com コミュニティ

Windowの更新について

Windowの更新について

Windowの更新について