JV-Dataのダウンロード/読み込み進捗状況を表示する
実際の手順はここから確認してください
ただ、そのままコピペしただけだと進捗バーがきちんと動きませんでした・・・
ちょっと残念でした。
下記のプログラムを
'進捗表示プログレスバー最大値設定
If lDownloadCount = 0 Then
prgDownload.Maximum = 100 ''ダウンロード必要無し
prgDownload.Value = 100
Else
prgDownload.Maximum = lDownloadCount
tmrDownload.Enabled = True ''タイマー開始
End If
prgJVRead.Maximum = lReadCount
下記に変更
'進捗表示プログレスバー最大値設定
If lDownloadCount = 0 Then
prgDownload.Maximum = 100 ''ダウンロード必要無し
prgDownload.Value = 100
prgJVRead.Maximum = 100 ''ダウンロード必要無し
prgJVRead.Value = 100
Else
prgDownload.Maximum = lDownloadCount
tmrDownload.Enabled = True ''タイマー開始
End If
prgJVRead.Maximum = lReadCount
あと、下記のプログラムを
'タイマ有効時は、無効化する
If tmrDownload.Enabled = True Then
tmrDownload.Enabled = False
prgDownload.Value = prgDownload.Maximum
End If
下記に変更
'タイマ有効時は、無効化する
If tmrDownload.Enabled = True Then
tmrDownload.Enabled = False
prgDownload.Value = prgDownload.Maximum
prgJVRead.Value = prgJVRead.Maximum
End If
すると下記のように動きました。

実際の手順はここから確認してください
ただ、そのままコピペしただけだと進捗バーがきちんと動きませんでした・・・
ちょっと残念でした。
下記のプログラムを
'進捗表示プログレスバー最大値設定
If lDownloadCount = 0 Then
prgDownload.Maximum = 100 ''ダウンロード必要無し
prgDownload.Value = 100
Else
prgDownload.Maximum = lDownloadCount
tmrDownload.Enabled = True ''タイマー開始
End If
prgJVRead.Maximum = lReadCount
下記に変更
'進捗表示プログレスバー最大値設定
If lDownloadCount = 0 Then
prgDownload.Maximum = 100 ''ダウンロード必要無し
prgDownload.Value = 100
prgJVRead.Maximum = 100 ''ダウンロード必要無し
prgJVRead.Value = 100
Else
prgDownload.Maximum = lDownloadCount
tmrDownload.Enabled = True ''タイマー開始
End If
prgJVRead.Maximum = lReadCount
あと、下記のプログラムを
'タイマ有効時は、無効化する
If tmrDownload.Enabled = True Then
tmrDownload.Enabled = False
prgDownload.Value = prgDownload.Maximum
End If
下記に変更
'タイマ有効時は、無効化する
If tmrDownload.Enabled = True Then
tmrDownload.Enabled = False
prgDownload.Value = prgDownload.Maximum
prgJVRead.Value = prgJVRead.Maximum
End If
すると下記のように動きました。


