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 If

 

Next

4、给按钮“修改”，按钮“重置” 添加 ==>事件==>左键按下

1、按钮“修改”的代码 脚本如下：

Dim maxRecipeNum,editRecipeName

 

Dim recipeNames,recipeNameArray()

 

varRecipeNames=CStr(Var.VarCommon.配方名称集合)

 

varRecipeNameArray=Split(varRecipeNames,"_",-1,1)

 

Var.VarCommon.配方名称输入=文本框0.Text

 

If Len(Var.VarCommon.配方名称输入)<=0 then

 

    MsgBox "请输入配方名称"

 

    Exit Sub

 

End If

 

For 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

 

   

 

Next

 

newVarRecipeNames=""

 

For i=0 To UBound(recipeNameArray)

 

    newVarRecipeNames=newVarRecipeNames&"_"&recipeNameArray(i)

 

Next

 

newVarRecipeNames=Right(newVarRecipeNames,Len(newVarRecipeNames)-1)

 

Var.VarCommon.配方名称集合=newVarRecipeNames

 

MsgBox "修改成功"

2、按钮“重置”的代码，脚本如下：

var.VarCommon.配方名称集合=""

 

MsgBox "重置成功"

5、给窗口添加==>事件==>打开时 执行事件 脚本如下：

组合框0.Text=Var.VarCommon.当前选中的配方编号