hanchi_000 

 请各位看过来
Private Sub Command1_Click()    
    MSComm1.CommPort = 1
    If MSComm1.PortOpen = False Then
        MSComm1.Settings = "9600,n,8,1"
        MSComm1.PortOpen = True
    End If

    MSComm1.OutBufferCount = 0
    MSComm1.InBufferCount = 0
    MSComm1.Output = "This is a good book!" & vbCr
    MSComm1.Output = "ATDT 0731" & vbCr

    Dim ByteArray as Byte ( )/*这一条语句不能通过编译,请问是为什么?*/

   ReDim ByteArray(1)
   ByteArray(0) = 0
   ByteArray(1) = 1
   MSComm1.Output = ByteArray()
End Sub

发表时间:2003年11月21日8:21:19