|
▼m2m10 さん:
>こんちは
> 仮にTextBox2 を作成し 動かしてください、で「1」で終わります。
>
> チエックボックスがスマートと思いますが。
>
>
>> ProgressBar1.Max = 18000
>> For i = 1 To 18000
>
>*-*--*-*-*-*-*-*-*-追加*-*--*-*-*-*-*-*-
> DoEvents
>
> If TextBox2.Value = 1 Then Exit for
>*-*-*-*--*-*-*-*-*-*-*-*-*--*-*--*--*--*-
>
>>
>> ProgressBar1.Value = ProgressBar1.Value + 1
>> Label110.Caption = Int(i * 1 / 180) & "%"
>> Frame4.Repaint
>> Next i
>>
>> ProgressBar1.Value = 0
ありがとうございます。
一応上手くは行ったのですが、textboxに「1」記入で中断ではなく、できれば、commundbutton4をクリックした際、中断という様にしたいのですが・・・。
どうすればよいですか?
|
|