프로그래밍언어/VB.NET

스레드에서 invoke

부산딸랑이 2013. 6. 21. 14:35

'sub

  Private Sub UpdateStatus(ByVal s As String)
        Me.TextBox1.Text = s
    End Sub

 'Delegate

Private Delegate Sub UpdateDelegate(ByVal s As String)

'Delegate = sub

Dim del As UpdateDelegate = AddressOf UpdateStatus

 

 

 

'사용

         Me.Invoke(del, "텍스트박스.text")

'이런식으로도 사용가능

 Me.Invoke(New del(AddressOf update_listview), New Object() {int_maxitem, name, address})

'델리게이트선언

 Private Delegate Sub del(i As Integer, s1 As String, s2 As String)
 Private Sub update_listview(i As Integer, s1 As String, s2 As String)
  listView1.BeginUpdate()
  listView1.Items.Add(Convert.ToString(i))
  listView1.Items(i).SubItems.Add(s1)
  listView1.Items(i).SubItems.Add(s2)
  listView1.EndUpdate()

 End Sub

'프로그래밍언어 > VB.NET' 카테고리의 다른 글

블로그 이사(이전) 프로그램  (0) 2013.06.29
vb.net동적컴파일  (0) 2013.06.22
Textbox에서 Ctrl + A 사용  (0) 2013.06.21
드래그앤드롭으포 파일명표시  (0) 2013.06.21
webrequest 파일다운  (0) 2013.06.18