Dim objCircle

Set objCircle = HmiRuntime.Screens("画面_1").ScreenItems("文本域_1")

objCircle.BackColor = vbGreen

HmiRuntime.Screens("画面_1").ScreenItems("文本域_1").Text=11

End Sub

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)                 

HMIRuntime.Screens("NewPdl1").ScreenItems("Static Text1").text="ABC"

End Sub

Sub VBFunction_1()

'提示：

' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表

' 2. 使用 HMI Runtime 对象写入代码。

'  示例：HmiRuntime.Screens("Screen_1")。

' 3. 使用 <CTRL+J> 快捷键创建对象引用。

'从此位置起写入代码：

Dim obj , Output

Set obj=CreateObject("PHPdll1.test")//PHPdll.dll 的工程名加类名；

Output=obj.sum(2,10)

SmartTags("HMI_Tag_1")=Output

End Sub

正在下载，请等待……

下载附件需1积分！