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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。