Private Sub btnSend_Click(Index As Integer)
    Select Case Index
        Case 1                      ' Send ascii string
          send (OutputString)
    End Select
   
End Sub
Sub send(txtin As String)
   
    If MSComm1.PortOpen = True Then
        MSComm1.Output = txtin
    End If
   
End Sub
这里是OutputString是发送缓冲区的数据吗?
这个变量是VB的内部变量吗,我换成其他的变量就发送不了数据,
问的问题很菜鸟,错了不要见笑,初学呢,好多东西不知道呢!希望大哥,大姐门多指点!

[[italic] 本帖最后由 q317340777 于 2007-12-6 22:09 编辑 [/italic]]

OutputString估计是个全局变量,在其他函数里面赋值的