老邁克的工作記錄

dim i,obj
for i=1 to 10
    set obj=ScreenItems("C"+Cstr(i))
    obj.Radius=20
next
set obj=nothing

Dim objGroup 
Set objGroup = HMIRunTime.Screens("Start").ScreenItems("EXIT")
objGroup.Visible =true

dim con
con=MsgBox("按「確定」繼續(xù)執(zhí)行，按「取消」退出", vbOKCancel, "提示")
If con= vbOK Then
    hmiruntime.stop
End If

'簡(jiǎn)單直接寫入變量值
HMIRuntime.Tags("Tag1").Write 6

'通過(guò)對(duì)象引入寫入變量值
Dim objTag
Set objTag = HMIRuntime.Tags("Tag1")
objTag.Write 7

'通過(guò)利用引用，可以在寫入之前使用變量對(duì)象。可以讀取變量值，進(jìn)行計(jì)算，并再次寫入：
Dim objTag
Set objTag = HMIRuntime.Tags("Tag1")
objTag.Read
objTag.Value = objTag.Value + 1
objTag.Write

'簡(jiǎn)單讀取
HMIRuntime.Trace "Value: " & HMIRuntime.Tags("Tag1").Read & vbCrLf


'通過(guò)利用引用可以使用變量對(duì)象。 可以讀取變量值，進(jìn)行計(jì)算，并再次寫入：
Dim objTag
Set objTag = HMIRuntime.Tags("Tag1")
objTag.Read
objTag.Value = objTag.Value + 1
objTag.Write

'直接讀取
Dim objTag，TagVal
Set objTag = HMIRuntime.Tags("Tag1")
HMIRuntime.Trace "Value: " & objTag.Read(1) & vbCrLf

'最簡(jiǎn)單的寫入，改變對(duì)象的背景色
ScreenItems("Rectangle1").BackColor = RGB(255,0,0)

'通過(guò)引用設(shè)置屬性
Dim objRectangle
Set objRectangle = ScreenItems("Rectangle1")
objRectangle.BackColor = RGB(255,0,0)

'通過(guò)畫面窗口設(shè)置屬性
'以下示例中，在從屬畫面窗口中更改矩形的顏色。 相應(yīng)腳本在畫面窗口“ScreenWindow1”所處的畫面“BaseScreen”中執(zhí)行。 此畫面窗口會(huì)顯示包含名稱為“Rectangle1”的“Rectangle”類型對(duì)象的畫面。
Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim objRectangle
Set objRectangle = ScreenItems("ScreenWindow1").Screen.ScreenItems("Rectangle1")
objRectangle.BackColor = RGB(255,0,0)
End Sub

'通過(guò)基本畫面引用
'可通過(guò) HMIRuntime.Screens 引用具有待修改對(duì)象的畫面。該畫面相對(duì)于基本畫面的規(guī)范通過(guò)以下訪問(wèn)代碼進(jìn)行定義：
‘[<Grundbildname>.]<Bildfenstername>[:<Bildname>]... .<Bildfenstername>[:<Bildname>]
’在以下示例中，將創(chuàng)建對(duì)“Rectangle1”畫面中包含的“Screen2”對(duì)象的引用，并將背景顏色設(shè)置為紅色。
‘這種情況下，畫面“Screen2”位于“Screen1”中。 “Screen1”顯示在基本畫面“BaseScreen”中。
Dim objRectangle
Set objRectangle = HMIRuntime.Screens("BaseScreen.ScreenWindow1:Screen1.ScreenWindow1:Screen2").ScreenItems("Rectangle1")
objRectangle.BackColor = RGB(255,0,0)