VBA

Question

我有一个非常简单的表单，加载时应该创建一个新对象 Thing，该对象在特定 Class 模块中定义。 UF 还有几个与不同功能关联的按钮。

这是与加载事件关联的 UF 代码：

Option Explicit
Private mth As Thing

Private Sub UserForm_Load()
   Set mth = New Thing
   mth.Name = InputBox("Enter a name for the Thing")
End Sub

如果我直接按 F5 键，UF 会出现，但代码不会运行更进一步，甚至 Thing 对象 mth 都不会创建 ...

我也尝试使用以下代码从模块中调用表单，但结果是一样的：

Sub test()

 Dim uf As Object
 Set uf = New Dinamico 'this is the name of the UserForm
 Load uf

End Sub

因此，我希望每次加载表单时，都会创建一个新的 mth 并出现一个询问名称的 InputBox。我有种想念一些非常愚蠢的东西的感觉……你能帮帮我吗？

Answer 1

在

内编写代码

Private Sub UserForm_Initialize()

End Sub

UserForm_Load 在 VB.Net 而在 VBA 它的 UserForm_Initialize.

VBA - 加载事件代码不是运行