效果动画演示
实现步骤
步骤一: 新建一个窗口,并做窗口设计“标签”,“文本框”,“组合框”,“按钮”
步骤二: 变量字典==>创建变量群组“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.当前选中的配方编号