AccessVBA/プログレスバー の変更点
*プログレスバー [#w29cb0ae]
[挿入] - [ActiveXコントロールの挿入] 「Microsoft ProgressBar Control, version 6.0」を選択
**プログレスバーのプロパティ [#z381398a]
|プロパティ|VBAでの記述|設定値|効果|h
|最大値|コントロール名.Object.Max|数値|バーの最大値|
|最小値|コントロール名.Object.Min|数値|バーの最小値|
|現在の値|コントロール名.Object.Value|数値|バーの現在の値|
|配置方向|コントロール名.Object.Orientation|ccOrientationHorizontal|横表示(規定値)|
|~|~|ccOrientationVertical|縦表示|
|スクロール|コントロール名.Object.Scrolling|ccScrollingSmooth|バーのスクロールを滑らかにする|
|~|~|ccScrollingStandard|通常のスクロール(規定値)|
**例 [#xe7128fc]
「cmdGo」ボタンをクリックすると、1秒ごとにプログレスバーが増加
Private Sub cmdGo_Click()
Dim i As Integer
Me.ProgressBar.Max = 10
Me.ProgressBar.Min = 0
For i = Me.ProgressBar.Min To Me.ProgressBar.Max
Me.ProgressBar.Value = i
Next
End Sub
