VB2008で

質問

VB2008で
System.Threading.Thread.Sleepを使って５秒後にテキストボックスにaと表示させるプログラムを作ろうとしましたが、うまくいなないため、タイマーコントロールを使用したいと思ったのですが、どのようにしたらいいでしょうか？

回答No.2

tom11 · ベストアンサー

バーってプログレスバーの事ですか？？？

たとえば、こんな事？？？

5秒間で、ブログレスバー完了させて、完了後
テキストボックスにaを表示させる。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim min As Integer = ProgressBar1.Minimum
Dim max As Integer = ProgressBar1.Maximum

For i As Integer = min To max Step (max - min) / 100

ProgressBar1.Value = i

Threading.Thread.Sleep(5000 / 100)

Next

TextBox1.Text = "a"

End Sub

回答No.1

tom11

sleep何処に入れています。
ちゃんと、フォームが表示された後
ボタンで、以下のようにすると
ちゃんと10秒後に、aが表示されますよ。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Threading.Thread.Sleep(10000)

TextBox1.Text = "a"

End Sub

補足

すいません。
１つ抜けていました。
テキストボックスのほかにバーが配置してあって、それの動作も止まってしまうのでどうすればいいでしょうか？