[VB6 ] MSComm的問題...

[badsan (RD工程師)]

請問一下各位大大...下面我的這各程式為何無法觸發Oncomm??
根本都沒進去Oncomm裡面>.<

所以test1根本跑不到~_~...可幫我看那邊出錯了嗎?

Private Sub MSComm1_OnComm()
   Select Case MSComm1.CommEvent
      Case comEvReceive
           Call test1
      End Select
End Sub
Sub ReSet()
If MSComm1.PortOpen = True Then
   MSComm1.PortOpen = False
End If
End Sub
Sub RsSet(A As Integer)
    MSComm1.CommPort = A
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.PortOpen = True
End Sub
Sub test1()
    If InBufferCount > 1 Then
       Print 1234
    End If
End Sub
Private Sub CmdSend_Click()
  MSComm1.Output = Text1.Text + vbCr
  MSComm1.RThreshold = 2
End Sub
Private Sub CmdReceive_Click()
  Text2.Text = MSComm1.Input
End Sub
Private Sub CmdExit_Click()
  ReSet
  End
End Sub
Private Sub Form_Load()
Option3.Value = True
End Sub

Private Sub Option1_Click()
  ReSet
  If Option1.Value = True Then
    RsSet (1)
  End If
End Sub
Private Sub Option2_Click()
  ReSet
  If Option2.Value = True Then
    RsSet (2)
  End If
End Sub
Private Sub Option3_Click()
  ReSet
  If Option3.Value = True Then
    RsSet (3)
  End If
End Sub





--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.120.55.214
推 colawei:問題應該在Sub test1()裡面
推 badsan:我用中斷點的方式去查...應該不是test1的問題
→ badsan:因為改成在OnComm裡面直接Print一各值...都不會print..
→ badsan:所以應該是沒進到OnComm裡面...問題就是不知道為什會這樣
→ badsan:RThreshold 和 RThreshold 等都已經設成非零值了...