注册事件，使其生效，订阅事件（VB）

VB.NET中的List用法

Public list As New List(Of String)

    Private Delegate Sub ButtonStartEnableCallback(ByVal enable As Boolean)
    Private Delegate Sub ButtonStopEnableCallback(ByVal enable As Boolean)

 If Not list.Contains(string) Then
              list.Add(string)
                Dim show As ShowTags = New ShowTags(AddressOf ListViewShow)
                BeginInvoke(show, string)
        End If 

 

  Public Delegate Sub ShowTags(ByVal tag As Tag)
    Public Sub ListViewShow(ByVal tag As Tag)
        Dim a As String = (ListView1.Items.Count + 1).ToString()
        Dim item1 As ListViewItem = New ListViewItem(a)

        item1.SubItems.Add(tag.Epc)
        item1.SubItems .Add (tag.SerializedTid)
        ListView1.Items.AddRange(New ListViewItem() {item1})

        Me.Label2.Text = a

    End Sub

 

// 防止非线程的访问该控件

   Private Delegate Sub ButtonStartEnableCallback(ByVal enable As Boolean)
    Private Delegate Sub ButtonStopEnableCallback(ByVal enable As Boolean)

    Private Sub StartEnable(ByVal enable As Boolean)

        If (Button3.InvokeRequired) Then

            Dim method As New ButtonStartEnableCallback(AddressOf Me.StartEnable)
            Me.Invoke(method, New Object() {enable})

        Else

            Button3.Enabled = enable
        End If

    End Sub

    Private Sub StopEnable(ByVal enable As Boolean)

        If (Me.Button4.InvokeRequired) Then

            Dim method As New ButtonStopEnableCallback(AddressOf Me.StopEnable)
            Me.Invoke(method, New Object() {enable})

        Else

            Me.Button4.Enabled = enable
        End If

    End Sub

 

2. 事件的声明，定义和订阅

Public Class Form1

  Public Sub New()
        InitializeComponent()
        ' have to instantiate the controller
        ' it wraps the SpeedwayReader class

         AddHandler _speedwayReader.Connected, AddressOf _speedwayReader_Connected

    End Sub

 

 

     Public Event Connected As EventHandler(Of ConnectionChangedEventArgs)

     Public Sub  _speedwayReader_Connected(ByVal sender As Object, ByVal e As ConnectionChangedEventArgs)
          RaiseEvent Connected(sender, e)
          Button2.Enabled = True
          Button3.Enabled = True
          Button1.Enabled = False

          ' MsgBox(e.State.ToString)

    End Sub

End Class