-
-
手机阅读
MCGS和VB上位机做OLE通讯, 随笔记录:
Dim DatObj As Object
Private Sub From_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" + Fromat$(i, "00")
DatObj.GetValueFromName msg, tt
Txt(i) = Fromat$(tt)
Next i
End Sub
读数据成功, 搞定!