我从来没用过OCX,今天使用了一个CIPHER78.OCX的控件,是一个与采集相连接的控件,2 属性
Port :整数,表示串口号,1代表串口1,2代表串口2,依此类推
ConnectString: 字符串,表示连接速率,如"115200"
ShowMsg: 布尔数, 表示是否显示提示对话框,1代表显示,0代表不显示
bIR:布尔数,表示是否用红外通讯座,1代表用,0代表不用 3 方法
connect 含义 :根据当前设定,与数据采集器建立连接
参数 :无
返回值: 1,成功,否则连接出错
close 含义 :关闭连接,再重新建立连接之前,必须先关闭连接
参数 :无
返回值: 1,成功
DownloadFile
含义 :下载索引文件
参数 :文件名
返回值: 1,成功,否则出错
ReadFile
含义 :接收文件
参数 :文件名
返回值: 1,成功,否则出错
但是我不知道在VB里怎么写源码。已经注册并引用过了。估计我说的还不是很明白,就是想要一段VB源码。
Port :整数,表示串口号,1代表串口1,2代表串口2,依此类推
ConnectString: 字符串,表示连接速率,如"115200"
ShowMsg: 布尔数, 表示是否显示提示对话框,1代表显示,0代表不显示
bIR:布尔数,表示是否用红外通讯座,1代表用,0代表不用 3 方法
connect 含义 :根据当前设定,与数据采集器建立连接
参数 :无
返回值: 1,成功,否则连接出错
close 含义 :关闭连接,再重新建立连接之前,必须先关闭连接
参数 :无
返回值: 1,成功
DownloadFile
含义 :下载索引文件
参数 :文件名
返回值: 1,成功,否则出错
ReadFile
含义 :接收文件
参数 :文件名
返回值: 1,成功,否则出错
但是我不知道在VB里怎么写源码。已经注册并引用过了。估计我说的还不是很明白,就是想要一段VB源码。
test.port=1
test.connect
......
test.port=1
test.connect
'========不要的卸载掉===========
unload text
loadlibrary
createobject("类名")
...
freelibrary