在UserForm中动态生成复选框时出错 [英] Error while dynamically generate a Checkbox in an UserForm

问题描述

我在这个网页上找到了以下代码：

http://www.office-loesung.de/ftopic220336_0_0_asc.php

I found the following code on this webpage:
http://www.office-loesung.de/ftopic220336_0_0_asc.php

Public WithEvents cmdCommandButton As CommandButton
Option Explicit

Dim CommandButtons(15) As clsCommandButtons

Private Sub UserForm_Initialize()
Dim zaehler As Long
For zaehler = 0 To 15
    Set CommandButtons(zaehler) = New clsCommandButtons
    Set CommandButtons(zaehler).cmdCommandButton = Me.Controls(zaehler)
Next
End Sub
Private Sub UserForm_Terminate()
Dim zaehler As Long
For zaehler = 0 To 15
    Set CommandButtons(zaehler) = Nothing
Next
End Sub

首先，我更改了部分代码并且无法正常工作，我收到以下消息：

编译错误：未定义用户定义类型



所以我使用原始代码并再次尝试，我也犯了同样的错误。代码有问题吗？





编辑：

将第一行放入额外的类，名为clsCommandButtons。不幸的是，在网页的文本中并不清楚

First I changed parts of the code and it didn´t work, I got the following Message:
Compile error: User-defined type not defined

So I used the originial code and tried it again and I got the same mistake. Is something wrong with the code?



It works after putting the first line in a extra class, named clsCommandButtons. Unfortunaly it's not clearly in the text of the webpage

推荐答案

很可能你没有复制整个例子。代码在这里使用名为clsCommandButtons的类

Most likely you haven't copied the whole example. The code uses a class named clsCommandButtons over here

Dim CommandButtons(15) As clsCommandButtons

但是如果你没有包含该类的定义在你的项目中，编译将失败。



因此，再次查看源代码并检查定义是否存在。请注意，它可能位于单独的模块中。

But if you haven't included definition for that class in your project, compile will fail.

So have a look at the source code again and check if the definition exists. Note that it may be in a separate module.

这篇关于在UserForm中动态生成复选框时出错的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！