「プログレスバー」の編集履歴（バックアップ）一覧はこちら

「プログレスバー」(2010/10/22 (金) 06:20:24) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

RADなら貼りつければそれで終り。
自力ならクラス"msctls_progress32"で子ウインドウ作成。
ウインドウハンドルを取得してメッセージを送るだけ。

|メッセージ|wParam|lparam|意味|
|PBM_SETRANGE32|最小|最大|範囲を指定|
|PBM_SETSTEP|増分|-|PBM_STEPITの増分値|
|PBM_STEPIT|-|-|PBM_SETSTEPの値だけ進める|
|PBM_SETPOS|位置|-|現在位置を指定|
|PBM_GETPOS|-|-|現在位置を取得|

RADなら貼りつければそれで終り。
自力ならクラス"msctls_progress32"で子ウインドウ作成。
ウインドウハンドルを取得してメッセージを送るだけ。

|メッセージ|wParam|lparam|意味|
|PBM_SETRANGE32|最小|最大|範囲を指定|
|PBM_SETSTEP|増分|-|PBM_STEPITの増分値|
|PBM_STEPIT|-|-|PBM_SETSTEPの値だけ進める|
|PBM_SETPOS|位置|-|現在位置を指定|
|PBM_GETPOS|-|-|現在位置を取得|


-例

ウインドウにボタンとプログレスバーを貼り、ボタンpush,ウインドウCreateイベントを書く。

#asciiart(blockquote){
Sub MainWnd_CommandButton1_Click()
	Dim i As Long
	Dim hpg As HWND
	hpg=GetDlgItem(hMainWnd,ProgressBar1)

	for i=0 to 100
		SendMessage(hpg,PBM_SETPOS,i,0)
		Sleep(1)
	next i
End Sub


Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	Dim hpg As HWND
	hpg=GetDlgItem(hMainWnd,ProgressBar1)

	SendMessage(hpg,PBM_SETRANGE32,0,100)
	SendMessage(hpg,PBM_SETPOS,10,0)

End Sub
}