김윤호닷컴

'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}) ..

Public Class Form1 Private Delegate Sub 델리게이트(sender As System.Object, e As System.EventArgs) Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click MsgBox("Button1클릭이벤트발생") End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim mydel As 델리게이트 mydel =..