Private Sub Form_KeyPress (KeyAscii As Integer)
Dim Buffer as Variant
' 设置并打开窗口
MSComm1.CommPort = 1
MSComm1.PortOpen = True Buffer = Chr$(&H0F)
MSComm1.Output = Buffer
End Sub
Dim Buffer as Variant
' 设置并打开窗口
MSComm1.CommPort = 1
MSComm1.PortOpen = True Buffer = Chr$(&H0F)
MSComm1.Output = Buffer
End Sub
请问还有期它方法么?