关于MCGS的OLE，请教高手-专业自动化论坛-中国工控网论坛

关于MCGS的OLE，请教高手点击：1915 | 回复：9

精华：0帖
求助：0帖
帖子：6帖 | 2回
年度积分：0
历史总积分：20
注册：2003年4月17日

发表于：2003-10-09 08:48:00

楼主

欲使用MCGS的OLE功能，但在VB中编程时发现在VB中不能识别到MCGS，错误提示：对象不支持该属性或方法。即不能使用getvalueformname等方法。请教高手这是什么原因？请教如何正确的使用MCGS的OLE以及DDE功能。不胜感激

分享到：

邀请回答

回复楼主

tj.fan

精华：0帖
求助：0帖
帖子：0帖 | 1回
年度积分：0
历史总积分：1
注册：2004年7月08日

发表于：2004-07-08 08:19:00

1楼

getvalueformname应该是实时数据对象的属性，请确认。

回复引用举报

gongkongedit

精华：1099帖
求助：0帖
帖子：14392帖 | 54470回
年度积分：0
历史总积分：622
注册：2008年9月08日

发表于：2004-08-17 11:13:00

2楼

同问！

回复引用举报

lbf

精华：0帖
求助：0帖
帖子：4帖 | 17回
年度积分：0
历史总积分：104
注册：2003年4月13日

发表于：2005-11-09 15:51:00

3楼

不知道哪个地方出问题，度不出数据：

Dim DatObj As Object
Private Sub Form_Load()
On Error Resume Next
Set DatObj = GetObject(, "McgsRun.DataCentre")
If Err Then
    MsgBox ("请先启动MCGS运行环境!")
    End
End If
End Sub

Private Sub Cmd_Read_Click()
Dim msg As String, tt As Variant
For i = 1 To 10
    msg = "Dat" + Format$(i, "00")
    DatObj.GetValueFormName msg, tt
    Txt(i) = Format$(tt)
Next i
End Sub

回复引用举报

gxp