和利时DCS上位软件FacView与VB程序怎样通过DDE进行数据通讯 点击：1801 | 回复：9
发表于：2006-05-30 09:26:00
4楼
Private Sub Form_Load()
'Label1.LinkTopic = "\\op1\ndde$|yao"
Label1.LinkTopic = "CITECT|VARIABLE" '连接标题
Label1.LinkItem = "a1" '连接变量名
'这个程序只是手工定义了一个变量
'简单的制作一个表单，把变量、量程、单位列举出来即可
On Error GoTo LINKERROR '如果Facview程序没有打开或连接错误
Label1.LinkMode = 1 '自动连接方式
Label1.LinkMode = 0 '取消连接
Exit Sub
LINKERROR: '如果发生错误的处理方法
Label1.LinkMode = 0 '可以利用ERR对象的属性number指示错误号处理出错
Select Case Err.Number
Case 285
MsgBox "错误", 49, "没有连接DDE服务器"
End
Case 282
MsgBox "错误", 49, "xxxxxxxxxxxxxxxxx"
End
End Select
Resume Next
End Sub
'Label1.LinkTopic = "\\op1\ndde$|yao"
Label1.LinkTopic = "CITECT|VARIABLE" '连接标题
Label1.LinkItem = "a1" '连接变量名
'这个程序只是手工定义了一个变量
'简单的制作一个表单，把变量、量程、单位列举出来即可
On Error GoTo LINKERROR '如果Facview程序没有打开或连接错误
Label1.LinkMode = 1 '自动连接方式
Label1.LinkMode = 0 '取消连接
Exit Sub
LINKERROR: '如果发生错误的处理方法
Label1.LinkMode = 0 '可以利用ERR对象的属性number指示错误号处理出错
Select Case Err.Number
Case 285
MsgBox "错误", 49, "没有连接DDE服务器"
End
Case 282
MsgBox "错误", 49, "xxxxxxxxxxxxxxxxx"
End
End Select
Resume Next
End Sub
热门招聘
相关主题
- 最新横河CS3000中文资料《深入...
[6310] - 求助：工控机与普通pc的区别？...[2044]
- 请教:智能仪表，ＰＣ总线，小型Ｄ...[2220]
- 和利时产品质量最差！[4525]
- 小型的DCS[2719]
- "求助!国产DCS控制系统的控制...[1861]
- 国产DCS厂家及客观排序[11370]
- 做DCS的可以考哪些证书[2477]
- 变频器上只有0－10V输出信号，...[10246]
- ###### 新华与GE关系 ######...[4308]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
