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