摘要： 1、使用MSComm读串口信息Private Sub Command1_Click() If Me.MSComm1.PortOpen = True Then Me.MSComm1.PortOpen = False Me.MSComm1.CommPort = Me.cbCom.ListIndex + 1 Me.MSComm1.Settings = Me.txtSettings.Text Me.MS... 阅读全文

摘要： 和在网上找的例子一样，这里只是将Form处的代码写的更具体点'-----------------------------------------'以下为模块中的代码：'-----------------------------------------Option ExplicitPublic OldWindowProc As LongPublic TheForm As FormPublic The... 阅读全文