初始化多页用户表单每一页的所有控件。

Question

我想做一个有很多页面的表单。到目前为止，它工作正常，我从代码中添加了控件。 现在我在初始化时在组合框中添加了所有的验证，但我想做的是在我改变页面时加载控件。因此，当我启动表单时，控件应该在第1页加载，当我点击多页的第2页时加载它的组件。

我面临的问题是，当我运行时，第1页没有被初始化，当第2页被点击时，它被初始化，但是，当我切换回第1页时，它被初始化。

Private Sub UserForm_Initialze()
   me.MultiPage1.value=0
End Sub

Private Sub MultiPage1_Change()
   Select Case MultiPage1.SelectedItem.index
   Case 0
      cbWorker.list=array("A","B","C")
      cbCountry.list=array("x","y","z")
   Case 1
      cbStatus.list=array("A","B","C","D")
      cbCommission.list=array(1,2,"x","y","z")
   End Select
End Sub

Answer 1

我知道问题所在了，我没有初始化第三页，这是在表单上。谢谢你的帮助