DIAView VBS 通过扩展域批量操作变量

效果动画演示

 实现步骤

第一步：创建窗口，并画画面

第二步：变量字典==>添加变量==>设定扩展域 分组

 第三步：窗口动画、按钮事件绑定

a) 文本==>动画==>模拟值显示依次绑定为“Var.变量8，Var.变量9，Var.变量10，Var.变量11，Var.变量12”

b)  文本框==>属性==>名称依次命名为“txt8，txt9，txt10，txt11，txt12”

c) 按钮“批量赋值”==>事件“左键按下”

'变量类型，0为模拟量，1为开关量，2为文本量
List = VarCmd.GetExtendedDomainVars("B",0)
Count = VarCmd.GetExtendedDomainCount("B",0)

setvalue=Trim(文本框0.Text)
If Len(setvalue)<=0 then
    MsgBox "请输入设置的值！"
    Exit Sub
End If
index=8
For i=0 To Count - 1
    Call VarCmd.SetVariableValue("Var.变量"&index,setvalue)
    'MsgBox CStr(LIST(i))
    index=index+1
Next
MsgBox "设置成功！"
           

 d) 按钮“批量读值”==>事件“左键按下”

'变量类型，0为模拟量，1为开关量，2为文本量
List = VarCmd.GetExtendedDomainVars("B",0)
Count = VarCmd.GetExtendedDomainCount("B",0)
index=8
For i=0 To Count - 1
    set txtobj=GetObjectByName("txt"&index)
    txtobj.Text=CStr(LIST(i))
    index=index+1
Next