SCADA DIAView 组合框 联动数据应用

1、新建一个窗口，并做窗口设计“标签”，“文本框”，“组合框”，“按钮”

2、新建变量字典：变量字典==>创建变量群组“VarCommon”

3、给“组合框”添加==>事件==>选择值改筐毙险裆变事件。脚本如下：Var.VarCommon.当前选中的配方编号=CInt(组合框0.SelectedValue)varRecipeNames=CStr(Var.VarCommon.配方名称集合)varRecipeNameArray=Split(varRecipeNames,"_",-1,1)Var.VarCommon.配方名称输入=""For i=0 To UBound(varRecipeNameArray) If i=CInt(Var.VarCommon.当前选中的配方编号)-1 then Var.VarCommon.配方名称输入=CStr( varRecipeNameArray(i)) End IfNext

4、给按钮“修改”，按钮“重置” 添加 ==>事件屏顿幂垂==>左键按下1、按钮“修改”的代码 脚本如下：Dim maxRe艘早祓胂cipeNum,editRecipeNameDim recipeNames,recipeNameArray()varRecipeNames=CStr(Var.VarCommon.配方名称集合)varRecipeNameArray=Split(varRecipeNames,"_",-1,1)Var.VarCommon.配方名称输入=文本框0.TextIf Len(Var.VarCommon.配方名称输入)<=0 then MsgBox "请输入配方名称" Exit SubEnd IfFor i=0 To 9 ReDim Preserve recipeNameArray(i) If i<=UBound(varRecipeNameArray) then recipeNameArray(i)=varRecipeNameArray(i) Else recipeNameArray(i)="" End If If i=CInt(Var.VarCommon.当前选中的配方编号)-1 then recipeNameArray(CInt(Var.VarCommon.当前选中的配方编号)-1)=Var.VarCommon.配方名称输入 End If NextnewVarRecipeNames=""For i=0 To UBound(recipeNameArray) newVarRecipeNames=newVarRecipeNames&"_"&recipeNameArray(i)NextnewVarRecipeNames=Right(newVarRecipeNames,Len(newVarRecipeNames)-1)Var.VarCommon.配方名称集合=newVarRecipeNamesMsgBox "修改成功"2、按钮“重置”的代码，脚本如下：var.VarCommon.配方名称集合=""MsgBox "重置成功"

5、给窗口添加==>事件==>打开时 执行事件 脚本如下：组合框0.Text=Var.VarCommon.当前选中的配方编号