写了一下,你看看dim CommandBuffer(44) as byte '这里直接使用了字节数组 CommandBuffer(0)=.. .... CommandBuffer(44)=..Dim tmpVar As Variant '将数组内容存到一个variant类型的变量中 tmpVar = CommandBuffer() Comm.Output = tmpVar '然后使用你的MSComm控件发送数据(放心,是按0-44的顺序发送的Byte流)
用一个取巧的办法 Dim strSend As String Dim byt(4) As Byte Dim i As Integer byt(1) = 65 byt(2) = 105 byt(3) = 69 byt(0) = 67 For i = 0 To 3 strSend = strSend & Right("00" & Str(Hex(byt(i))), 2) '把每一个字节转成两个十六进制字符 Next i Debug.Print strSend
CommandBuffer(0)=..
....
CommandBuffer(44)=..Dim tmpVar As Variant '将数组内容存到一个variant类型的变量中
tmpVar = CommandBuffer()
Comm.Output = tmpVar '然后使用你的MSComm控件发送数据(放心,是按0-44的顺序发送的Byte流)
Dim strSend As String
Dim byt(4) As Byte
Dim i As Integer
byt(1) = 65
byt(2) = 105
byt(3) = 69
byt(0) = 67
For i = 0 To 3
strSend = strSend & Right("00" & Str(Hex(byt(i))), 2) '把每一个字节转成两个十六进制字符
Next i
Debug.Print strSend