Timerイベントのフリーズ対策は？ (ID:125977)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 横入り失礼します。 Timerイベントの意味を把握しないと、思わぬところで苦戦します。 再度ご確認下さい。 >For I = 1 To 10000 > DoEvents > Me.List1.AddItem I >Next Timerイベントは、「Intervalで設定した間隔ごとに発生」します。 >Private Sub Command1_Click() > Me.Timer1.Interval = 1000 >End Sub つまり、 「1秒間の間に10000回ループを起こして、10000個の数値をリストに追加する」 という処理をしている事になります。 （フォームを移動させなくてもフリーズするような気がしますが…。）