|
▼m2m10 さん:
>こんちは
> 一例です。
>
>'*-*--*-*-*-*-*-*-*-追加*-*--*-*-*-*-*-*-
>'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
ありがとうございました。なんとか上手くいきそうです。
|
|