不使用界面,如何实现串口通讯?

Question

VB中使用MSCOMM控件可实现COM口的通讯,但如果直接在代码定义而不是放在一个窗体上则会提示出错,请问如果才能实现不用窗体而直接在代码中定义一个COM通讯对象?试过以下代码,但好象漏了什么,出错!
dim mscomm1 as mscomm
mscomm1 .CommPort = 1
mscomm1.PortOpen = True提示"对象变量或WITH块变量未设置!"谢先.

Answer 1

set mscomm1 = new mscomm

Answer 2

整理如下
dim mscomm1 as mscomm
set mscomm1 = new mscomm
mscomm1.CommPort = 1
mscomm1.PortOpen = True
或直接隐藏form

Answer 3

早试过了,set mscomm1=new mscomm 会提示"无效使用NEW关键字

Answer 4

我也试过使用set mscomm1=server.creatobject("MSCOMM")但是不知道MSCOM对象的Creatobject括号中的字符串正确的写法,因此也无法成功.

Answer 5

1.在工程中加入一个窗体命名为frmMscomm
2.在窗体上加一个mscomm控件
3.在工程加入一个模块，设置代码如下
private frm as new frmmscomm
public property get MyMscomm() as mscomm
set MyMscomm=frm.Mscomm1
end property
'这样你就可以在全局中使用MyMscomm了