抢答器服务端,其中抢答接受功能涉及到了线程编程,因为单线程的话,如果程序处于等待监听数据状态,那整个程序就会处于停滞无法继续其他操作。所以New一个新的线程来专门管理数据接收将会解决这个问题。
下面是抢答开始按钮进行多线程创立的源码:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim myUdpDataReceive As UdpDataReceive Dim intPort As Integer Dim b As Integer = 1 Dim ListenThread As Thread intPort = Integer.Parse(TextBox2.Text) myUdpDataReceive = New UdpDataReceive(intPort) ListenThread = New Thread(AddressOf myUdpDataReceive.AcceptData) ListenThread.Start() If True Then TextBox1.Text += "第" & i & "次抢答成功开始!" + vbCrLf i = i + 1 End If End Sub |