|
こんちは
一例です。
'*-*--*-*-*-*-*-*-*-追加*-*--*-*-*-*-*-*-
'Public 宣言で仮に FU01 を作成し、判定フラックにします。
'Option Explicit の下に
Public FU01 As Integer
'コマンドボタン4をクリックで 1 を入れる。
Private Sub CommandButton4_Click()
FU01 = 1
End Sub
'-*-*-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-
> ProgressBar1.Max = 18000
> For i = 1 To 18000
>
>*-*--*-*-*-*-*-*-*-追加*-*--*-*-*-*-*-*-
DoEvents
If FU01 = 1 Then Exit for
>*-*-*-*--*-*-*-*-*-*-*-*-*--*-*--*--*--*-
>
>
> ProgressBar1.Value = ProgressBar1.Value + 1
> Label110.Caption = Int(i * 1 / 180) & "%"
> Frame4.Repaint
> Next i
>
> ProgressBar1.Value = 0
|
|