Visual basicのフォームに張り付けたLabelの更新について

Question

初歩的な質問ですが、わからず困っています。
例えば、
Form上にLabel1を張り付け、
プログラム実行にて、数値iが１秒ごと1つずつ10まで
カウントアップしていくようなものをつくり
Label1.text = i.toString
で表示をLabel1に表示せております。

しかし、実際に実行すると1,2,3・・・・ではなく
なにも表示されず、１０秒後に10と表示されてプログラム終了まで
表示されずに終わりになります。

どうすれば1,2,3,4と更新されるようにできるのでしょうか。

'以下コード----------------------------vb2010です
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim i As Long
    For i = 1 To 10
        System.Threading.Thread.Sleep(1000)
        Label1.text = i.ToString
    Next

End Sub

'-----------------------------------
フォームには、ボタンとLabel1が配置してあります

Comments

[y_waiwai]

コードを提示しましょう

[mori_C]

コード追記しました。
よろしくお願いします。

Answer 1

GUIの画面というのは、処理を専有している間は更新されません。

＃フリーズする、と言われてる現象

なので、１秒ごとに更新したいのであれば、１秒ウェイトしてループする、ってのではダメです（ループしている間は更新されない）

この場合は、タイマコンポーネントなどを使って、１秒ごとに呼び出し、ラベルの内容を更新する、ということを行いましょう

Comments

[dodox86]

System.Windows.Forms.Timer で十分、実現できます。＞質問者さん
https://www.atmarkit.co.jp/ait/articles/0511/11/news117.html

[sanapapa]

dodox86様のご指摘の通り、むしろThreadクラスなどよりTimerクラスの方が良さそうです。
勉強になりました、有難うございます。未熟な回答を書き直しました。

Answer 2

Label1.text = i.ToString の次に Application.DoEvents() を追加したらどうなりますか？

Comments

[mori_C]

Application.DoEvents() を追加すると
値が更新されるようになりました。
簡単でよいですね。ありがとうございます。

[退会済みユーザー]

簡単なのは確かですが、適材適所です。今回のケースでは Application.DoEvents() を使うのは適材適所の範疇に入ると思いますが・・・

Answer 3

軽率な回答で申し訳ございませんでした。
dodox86様の回答を拝見し調べなおしました。
Threadクラスを利用した制御はむしろ古いやり方で、
Timerクラスを利用した方がdodox86様のおっしゃる通り簡潔に記載することができます。
ご参考までに以下サンプルソースです。
Timerの設置はフォームデザイナのツールボックス内にあります。

Public Class Form1
    Dim count = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = count
        count += 1
    End Sub
End Class

---

このような形でスレッド化してあげるほうが無難だと思います。
また、メインスレッドではないスレッドからGUIの操作をするにはデリゲートという仕組みを利用します。
別途お調べください。

Comments

[mori_C]

ありがとうございます。
設定等の抜けではなく、プログラムの書き方がまずかったのですね。
記載していただいたソースコードを貼り付けたら、
きちんと更新しながら、表示されました。
スレッド化、デリゲートなど勉強したいと思います。