单击按钮时将用户表单重置为空白

Question

我有动态Userform。加载时，只有Combobox可见，并且用户选择一个选项，因此会填充一些带有值的Labels和Textboxes。但是，当我从Combobox中选择其他选项并点击该按钮时，所有标签都会消失，但Textboxes仍然存在。有没有办法在加载之前完全清除或重置Userform？

Answer 1

我不完全确定你如何设置你的例程，我只是假设这个答案。
根据我的理解，你想使用相同的Userform重新加载CommandButton在里面。
如果是这种情况，你可以试试这个：

• 在模块中，编写一个加载表单的过程。类似的东西：

  Sub marine()
      Load Userform1
      Userform1.Show
  End Sub
  

• 在CommandButton中，创建一个例程，该例程将调用加载过程并同时卸载表单。类似的东西：

  Private Sub CommandButton1_Click()
      '/* call the marine procedure after 0.5s */    
      Application.OnTime DateAdd("s", 0.5, Now), "marine"
      Me.Hide
      Unload Me '/* unloads the userform    
  End Sub
  

你的Userform会暂时隐身（就像闪烁一样），但它会像你希望的那样重新加载。 HTH。