我做的是一個上位機程式 接收單片機通過wifi模塊傳輸過來的資訊并顯示
發送的是字串 但是測驗了 listbox沒有反應 不顯示任何資訊
不知道問題出在哪里。。
Private Sub SetText(ByVal [text] As String)
If Me.ListBox1.InvokeRequired Then
Dim d As New ContextCallback(AddressOf SetText)
Me.Invoke(d, New Object() {[text]})
Else
Me.ListBox1.Items.Add([text])
End If
End Sub
Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
If tcpConnect Then
swWriter.WriteLine("STOP")
swWriter.Flush()
nsStream.Close()
swWriter.Close()
End If
If thThreadRead.IsAlive Then
thThreadRead.Abort()
End If
If Disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
Sub Receive()
While thThreadRead.IsAlive
Dim sMessage As String = srRead.Read()
ListBox1.Items.Add(sMessage)
End While
End Sub
第一次接觸VB 求大神解答~
還有我想用兩個button按鍵 按下的時候分別向單片機發送1和2來選擇單片機芯片的作業方式
但是一按就出錯
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim sendd As Byte
sendd = 1
tcpClient.Client.Send("1") '發送指令1
End Sub
希望有人來幫幫我 謝謝~
uj5u.com熱心網友回復：
沒人嗎。。求大牛幫幫忙啊
uj5u.com熱心網友回復：
你確信你收到了資訊？試試：ListBox1.Items.Add("Message: " & sMessage)
uj5u.com熱心網友回復：
能收到 顯示的好像是ASCII碼 不懂怎么轉換 用你這個的話 只是多一個message。。
還有我那個按鍵不知道為什么一按就出錯 。。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/105185.html
標籤：VB基礎類
上一篇：新手求教A星演算法
下一篇：VBA 長度單位 如何規定？