変数 Objectを変数にした例

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][変数 Objectを変数にした例]

Option Explicit

Private Sub UserForm_Click()
    '{Just a moment}の表示------------------->
    Dim bytLabelstr As Long
    Dim objME As Object
    Dim MeMax As Long
    Dim MeNow As Long
    MeMax = 100000
    
    Set objME = Me.Label1
    For MeNow = 1 To MeMax
    bytLabelstr = bytLabelstr + 1
    If bytLabelstr = 4000 Then
    bytLabelstr = 0
    End If
    If bytLabelstr <= 2000 Then
    objME.Caption = ""
    DoEvents
    Else
    objME.Caption = "Just a moment  "
    DoEvents
    End If
    If MeNow = MeMax Then objME.Caption = ""
    Next MeNow
    Set objME = Nothing
    '{Just a moment}の表示------------------->

End Sub





Production Japan Import Application. Since 1998