0

我从 中调用此方法Form_Load，错误发生在代码的第一行Private Sub...。我从工具箱中添加了组件MSCOMM 

 Private Sub OpenPort()
   MSComm1.Settings = "19200,8,N,1"
   MSComm1.CommPort = 4   
   MSComm1.PortOpen = True    
End Sub
4

3 回答 3

0

你有写

 MSComm1.Settings = "19200,8,N,1"

***write this***

 MSComm1.Settings = "19200,N,8,1"

N和8错位。

于 2014-12-04T04:57:03.360 回答
0

错误意味着MSComm1没有Settings属性。

什么类型MSComm1？是控制吗？发生错误后尝试MSComm1在监视窗口中查看。它有一个Settings吗？

于 2013-06-28T12:16:55.063 回答
0

错误是：

我忘了Exit Sub在 lat 代码行之后和之前使用End Sub

于 2013-06-28T13:44:29.957 回答