コントロール ラベルに処理状況を一定間隔で表示

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][コントロール ラベルに処理状況を一定間隔で表示]

Dim bytLabelstr As Byte
Dim objME As Object
Dim MeMax As Long
Dim MeNow As Long
MeMax = Suu
MeNow = ForSuu
Set objME = Me.Label12
bytLabelstr = bytLabelstr + 1
If bytLabelstr = 40 Then
bytLabelstr = 0
End If
If bytLabelstr <= 20 Then
objME.Caption = ""
DoEvents
Else
objME.Caption = "Just a moment  "
DoEvents
End If
If MeNow = MeMax Then objME.Caption = ""
Set objME = Nothing





Production Japan Import Application. Since 1998