Error while dynamically generate a Checkbox in an UserForm

Question

0.00/5 (No votes)

See more:

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

VB

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

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?

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

Posted 13-Jul-15 21:38pm

Chi Ller

Updated 14-Jul-15 19:52pm

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Wendelius · Accepted Answer · 2015-07-13T21:56:00

Solution 1

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

VB

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.

Posted 13-Jul-15 21:56pm

Wendelius

Comments

Chi Ller 14-Jul-15 4:01am

There`s no definition for clsCommandButtons on the page and nowhere is a mark how or where or that you have to define the class

Wendelius 14-Jul-15 4:15am

Then it sounds like a bug... I'm sorry but I can't help you much further... If possible, try contacting the author of the project.

Chi Ller 14-Jul-15 5:01am

Well i will search for another way. How can I delete the question?

Wendelius 14-Jul-15 5:18am

There's no need to delete the question. Perhaps someone will see it who knows that exact project.