掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FOR 〜NEXTループ内で変わりゆく 値をテキストボックスに反映させたい (ID:84868)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
強いて書くなら、「Refreshメソッド」を挟んで、このようになりますが…… PCの性能によっては、やはり一瞬の間に終わってしまうと思います。(^_^;) Option Explicit Private Sub Command1_Click() Dim I As Long Text1.Text = "0" For I = 1 To 1000 Text1.Text = CStr(I) Text1.Refresh Next End Sub 変化しているのがわかるようにするなら、Timerコントロールを使う事もできます。 Option Explicit Private Counter As Long Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Counter = 0 Timer1.Enabled = False Timer1.Interval = 55 End Sub Private Sub Timer1_Timer() Counter = Counter + 1 Text1.Text = CStr(Counter) If Counter >= 1000 Then Timer1.Enabled = False Counter = 0 End If End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.