MSCOMM控件在VB中發送十六進制數據的方法一、初始化配置Private Sub Form_Load() - With MSComm1 If .PortOpen = True Then .PortOpen = False End If .CommPort = 4 使用COM1 .Settings = BaudRate & ,n,8,1 設置通信口參數 .InBufferSize = 1024 設置MSComm1接收緩沖區為1024字節 .OutBufferSize = 1024 設置MSComm1發送緩沖區為1024字節 .InputMode = comInputModeBinary 設置接收數據模式為二進制形式- .InputLen = 0 設置Input 一次從接收緩沖讀取全部字節數 .SThreshold = 0 設置發送完所有產生OnComm事件 .InBufferCount = 0 清除接收緩沖區 .OutBufferCount = 0 清除發送緩沖區 .RThreshold = 1 設置接收一個字節產生OnComm事件 .RTSEnable = True- If Not .PortOpen Then 判斷通信口是否打開 On Error Resume Next .PortOpen = True 打開通信口 If Err Then 錯誤處理 MsgBox 串口被占用或此串口不存在！通信無效！, 16, 錯誤提示 Exit Sub End If End If End With End Sub注意：數據收發模式為 .InputMode = comInputModeBinary 設置接收數據模式為二進制形式二、發送一個字節的16進制數據Dim aa(0) As Byteaa(0) = &HAAMSComm1.Output = aa三、接收數據（事件方式）Private Sub MSComm1_OnComm() On Error Resume Next Dim inData As String 串口接收的數據 Dim InByte() As Byte 定義一個二進制指針放接收到的數據 Dim inByte1() As Byte Select Case MSComm1.CommEvent 選擇事件 Case comEvReceive 接收到字符 TimeNum = 4 -賦值計時常量 InByte = MSComm1.Input 數據轉移到指針 Serial_Rece_Fg = True Dim j As Long For j = 0 To UBound(InByte) 循環到指針上標 If InByte(j) = 13 Then inData = inData & vbCr Lf Else inData = inData & Chr(InByte(j) -ascii碼顯示處理 End If Next j Txt_Rcv.SelText = inData 將剛收到的字符串顯示出來 inData = Txt_Rcv.SelStart = Len(Txt_Rcv.Text) 光標置后 Case comEventRxOver -接收緩沖區滿的處理 MSComm1.InBufferCount = 0 Msg