Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click TextBox1.Text = "OK" Await Task.Delay(10000) TextBox1.Text = "NG" End Sub
VB.NET 2002 だとこうかな。
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click TextBox1.Text = "OK" Timer1.Interval = 10000 Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick Timer1.Enabled = False TextBox1.Text = "NG" End Sub
Private Sub BackgroundWorker1_DoWork( _ ByVal sender As Object, _ ByVal e As System.ComponentModel.DoWorkEventArgs _ ) Handles BackgroundWorker1.DoWork
System.Threading.Thread.Sleep(10000)
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted( _ ByVal sender As Object, _ ByVal e As RunWorkerCompletedEventArgs _ ) Handles BackgroundWorker1.RunWorkerCompleted