プログレスバー - abwiki @ ウィキ (ActiveBasic非公式wiki)

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

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

• 例

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

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