把你的控件 繼承Panel類,而不要集成UserControl類。
創(chuàng)新互聯(lián)于2013年創(chuàng)立,先為寶雞等服務(wù)建站,寶雞等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為寶雞企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
你可以在集成Panel后,往Panel里面加一些你自己的方法或Control來實(shí)現(xiàn)你需要的功能。向里面拖控件的功能則由Panel來控制,你自己就不用管了。
你定義的委托需要帶參數(shù)才行,DataReceived事件中沒有接收數(shù)據(jù)代碼,下面的代碼經(jīng)測(cè)試可用
Delegate Sub SetTextCallback(ByVal InputString As String)
Private Sub ShowString(ByVal comData As String)
txt_Rect.Text += comData '將收到的數(shù)據(jù)入接收文字框中
txt_Rect.SelectionStart = txt_Rect.Text.Length
txt_Rect.ScrollToCaret()
End Sub
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim inData As String = SerialPort1.ReadExisting
Dim d As New SetTextCallback(AddressOf ShowString)
BeginInvoke(d, inData)
End Sub
應(yīng)該是你的轉(zhuǎn)換格式不正確,下面代碼就是將文本框中以一個(gè)空格隔開的十六進(jìn)制轉(zhuǎn)為字節(jié)的代碼,文本框中數(shù)字格式為:01 02 03
Dim TestArray() As String = Split(TextBox1.Text)
Dim hexBytes() As Byte
ReDim hexBytes(TestArray.Length - 1)
Dim i As Integer
For i = 0 To TestArray.Length - 1
hexBytes(i) = Val("h" TestArray(i))
Next
SerialPort.Write(hexBytes, 0, hexBytes.Length)
如果有問題可以再聯(lián)系。
n = SerialPort1.BytesToRead '讀取字節(jié)數(shù) If n 0 Then '若字節(jié)數(shù)大于0.則執(zhí)行以下操作
ReDim rc(n) '重新定義rc的長(zhǎng)度,(之前有定義過)
strrc = 0 '變量類型為字符串(string),一開始使它為0
For i = 1 To n
rc(i) = SerialPort1.ReadByte ‘讀取數(shù)據(jù)
strrc += CStr(Hex(rc(i))) '這里Hex 函數(shù) 返回表示數(shù)的十六進(jìn)制值的字符串
'CStr 函數(shù) 返回已被轉(zhuǎn)換為字符串子類型的變體的表達(dá)式。
Next
TextBox1.Text = strrc '將strrc的值付給TextBox1.Text即可
End If
本文名稱:vb.net串口控件編程 vb 串口
本文來源:http://aaarwkj.com/article46/dooochg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供搜索引擎優(yōu)化、品牌網(wǎng)站設(shè)計(jì)、做網(wǎng)站、網(wǎng)站策劃、網(wǎng)頁(yè)設(shè)計(jì)公司、外貿(mào)建站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)