[VB6 ] MSComm的問題...
請問一下各位大大...下面我的這各程式為何無法觸發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
推
08/29 19:28, , 1F
08/29 19:28, 1F
推
08/29 20:13, , 2F
08/29 20:13, 2F
→
08/29 20:13, , 3F
08/29 20:13, 3F
→
08/29 20:14, , 4F
08/29 20:14, 4F
→
08/29 20:15, , 5F
08/29 20:15, 5F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
