作者badsan (RD工程师)
看板Visual_Basic
标题[VB6 ] MSComm的问题...
时间Tue Aug 29 16:53:30 2006
请问一下各位大大...下面我的这各程式为何无法触发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
1F:推 colawei:问题应该在Sub test1()里面 08/29 19:28
2F:推 badsan:我用中断点的方式去查...应该不是test1的问题 08/29 20:13
3F:→ badsan:因为改成在OnComm里面直接Print一各值...都不会print.. 08/29 20:13
4F:→ badsan:所以应该是没进到OnComm里面...问题就是不知道为什会这样 08/29 20:14
5F:→ badsan:RThreshold 和 RThreshold 等都已经设成非零值了... 08/29 20:15