VBS 组合框 联动数据应用

效果动画演示

 

 实现步骤

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

步骤二： 变量字典==>创建变量群组“VarCommon”

 步骤三：给“组合框”添加==>事件==>选择值改变事件

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

步骤四： 给按钮“修改”，按钮“重置” 添加 ==>事件==>左键按下

（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 "重置成功"

步骤五：给窗口添加==>事件==>打开时 执行事件

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