效果動畫演示

 實現步驟

步驟一： 新建一個視窗，並做視窗設計“標籤”，“文字框”，“組合框”，“按鈕”

步驟二： 變數字典==>建立變數群組“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.當前選中的配方編號