VB.NET質問ｽﾚ (Part22)

VB.NET質問ｽﾚ (Part22) at TECH

660:デフォルトの名無しさん
07/08/15 20:51:23
Windowsフォームで別スレッドからコントロールを操作するには？
(URLﾘﾝｸ(www.atmarkit.co.jp))
引数がない場合、サンプルのように次の書き方でOK。

　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　 TextBox2.Focus()
　End Sub
　↓
　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　Dim t As New Thread(New ThreadStart(AddressOf worker))
　t.Start()
　End Sub

　Delegate Function FocusDelegate() As Boolean

　Sub worker()
　' textBox2.Focus()の実行
　Invoke(New FocusDelegate(AddressOf TextBox2.Focus))
　End Sub

次のように引数も渡したい場合、どのように書きなおせばよいのでしょうか？
　Dim dtNow As DateTime = DateTime.Now

　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　TextBox2.Text += dtNow.ToString() & vbcrlf
　End Sub
　↓
　？

次ページ

続きを表示

1を表示