プログレスバーをLabelで作成する方法

1 プログレスバーをLabelで作成する方法

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

プログレスバーをLabelで作成する方法

どうも、takaです。この本ブログで人気記事である【コントロール【プログレスバー】】、ループ処理などの時に進捗を表示するのに適しているこのコントロールですが、プログレスバーを使わないでも作れることをご存知でしょうか？!(^^)!

プログレスバーコントロールが用意されているにもかかわらず、あえて使わないという(笑)

正直意味があるのかわかりませんがまぁ知識として知っていただければと思います ^^) _旦~~

作成イメージ

作成イメージとしては下記のような形になります。Labelで作成しているので色などを自由に変更できるところがポイントです(^^♪

プログレスバーコントロールでは色の変更はできないはずなので…

用意するコントロール

用意するコントロールは以下の通りです。

Labelコントロール・・・最低2つ
コマンドボタン

です。Labelの最低二つというのは、バーで二つ使用するのと進捗を表示する場合はもう一つ必要になるからです(;^ω^)

Label版プログレスバーの作り方

Label版プログレスバーの作り方は簡単です(^^♪

Label1でバーの枠を作り、Label2でバーの動く部分を作ってあげればいいのです ^^) _旦~~

いたって簡単ですよね(笑)

Labelコントロールを二つ重ねてLabel1(枠)の上でLabel2(バーの部分)の長さを動かしてあげればいいだけなのです(笑)

まぁ言葉より実際に作ったほうが早そうですね(;^ω^)

実際に作ってみましょう(^^♪

Label版プログレスバーのコード

Label版プログレスバーのコードは以下の通りです、簡単な解説はコメントアウトしてありますのでご覧ください( ^ω^ )

下記にてダウンロードファイルも用意いたしますので参考にしてみてください(^^♪

Private Sub UserForm_Initialize()
With Label1 'Label1はバーの枠の部分----------------------
.BorderStyle = fmBorderStyleSingle 'バーの枠を設定
.Width = 300 'バーの長さを設定
.Height = 30 'バー(枠)の高さを設定
.Top = 60 'バー(枠)の位置を設定
.Left = 30 'バー(枠)の位置を設定
End With
With Label2 'Label2はバーの動く部分 (本体)-------------
.Width = 0 'バー(本体)の長さを0に
.Height = 30 'バー(本体)の高さを設定
.Top = 60 'バー(本体)の位置を設定(枠)と同じ位置にする。
.Left = 30 'バー(本体)の位置を設定(枠)と同じ位置にする。
.BackColor = &H8000000D 'バーの色を設定
End With
End Sub
Private Sub CommandButton1_Click()
Dim i As Long
Dim cnt As Long
Max = Label1.Width 'プログレスバーコントロールでいうMaxをバー(枠)のWidthの値に設定
cnt = 20000 '処理の内容
For i = 0 To cnt
DoEvents '処理の安定のためDoEvents関数を使用
Label2.Width = i / cnt * Max 'バーを動かす
Label3.Caption = i / cnt * 100 & "%処理完了"  '処理のパーセンテージをラベルに表示
Next i
MsgBox "終了しました"
End Sub

Private Sub UserForm_Initialize()

With Label1 'Label1はバーの枠の部分----------------------

.BorderStyle = fmBorderStyleSingle 'バーの枠を設定

.Width = 300 'バーの長さを設定

.Height = 30 'バー(枠)の高さを設定

.Top = 60 'バー(枠)の位置を設定

.Left = 30 'バー(枠)の位置を設定

End With

With Label2 'Label2はバーの動く部分 (本体)-------------

.Width = 0 'バー(本体)の長さを0に

.Height = 30 'バー(本体)の高さを設定

.Top = 60 'バー(本体)の位置を設定(枠)と同じ位置にする。

.Left = 30 'バー(本体)の位置を設定(枠)と同じ位置にする。

.BackColor = &H8000000D 'バーの色を設定

End With

End Sub

Private Sub CommandButton1_Click()

Dim i As Long

Dim cnt As Long

Max = Label1.Width 'プログレスバーコントロールでいうMaxをバー(枠)のWidthの値に設定

cnt = 20000 '処理の内容

For i = 0 To cnt

DoEvents '処理の安定のためDoEvents関数を使用

Label2.Width = i / cnt * Max 'バーを動かす

Label3.Caption = i / cnt * 100 & "%処理完了" '処理のパーセンテージをラベルに表示

Next i

MsgBox "終了しました"

End Sub

ダウンロード

当サイトの免責事項をお読みになってからお使いください。

Labelプログレスバー 26.82 KB

Download

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

プログレスバーをLabelで作成する方法

taka

最新記事 by taka (全て見る)