效果动画演示
实现步骤
第一步：创建窗口，并画画面
第二步：变量字典==>添加变量==>设定扩展域 分组
第三步：窗口动画、按钮事件绑定
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
| 
转播
