哪位高手赐教下,VB做串口通信时候COM设定的程序怎么写啊,就是一个下拉列框的那种.

Dim T_byte() As Byte
Dim T_str As String
Dim S_byte() As Byte
Dim S_str As String

Private Sub Command4_Click()
Call T_sub(Text1.Text) 'COMMAND4是个按钮,按下它则将文本框TEXT1中的内容通过串口发送出去
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.InputLen = 0 '待定
MSComm1.RThreshold = 1
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Call R_sub
End Select
End Sub

Sub T_sub(T_str)
T_byte = StrConv(T_str, vbFromUnicode)
MSComm1.Output = T_byte
End Sub

Sub R_sub()
R_byte = MSComm1.Input
R_str = StrConv(R_byte, vbUnicode)
Text2.Text = Text2.Text & R_str 'TEXT2是个文本框,用来显示串口接收到的内容
End Sub

该程序很简单,没有设置校验位,你可以自己加上,我在两台电脑之间用串口连接上然后运行程序,可以互相通信,聊天.