網路教學(e-Learning)校園社群(e-Community)服務台(e-Service)系所班網(e-Class)登入
位置: 伍柏勲 > 未分類
rh232
by 伍柏勲 2012-10-16 11:17:05, 回應(0), 人氣(335)
Dim buf$

Private Sub Command1_Click()
MSComm1.Output = Text1.Text
Text1.Text = ""
End Sub

Private Sub Command2_Click()
buf = MSComm1.Input
If Len(buf) = 0 Then
    Text2.Text = "nothing"
Else
    Text2.Text = buf
End If
End Sub

Private Sub Command3_Click()
Text1.Text = ""
End Sub


Private Sub Command4_Click()
Text2.Text = ""
End Sub

Private Sub Command5_Click()
MSComm1.PortOpen = False
End
End Sub

Private Sub form_load()
MSComm1.PortOpen = True
End Sub