Solved

VBA AddHandler????

Posted on 2011-02-21
11
2,003 Views
Last Modified: 2012-08-14
If I add a checkbox via code at run-time, how can add code to fire when the user clicks on it?

In VB.net I would use addhandler, but I know this isnt what I need to do with VBA.

Reading up, I thought I could just use chkNew.onClick myMethod(), but that doesnt work either.

Does anyone have an exampe of how to add a handler to a CheckBox in VBA?

Thank you
0
Comment
Question by:tonelm54
  • 6
  • 5
11 Comments
 
LVL 85

Expert Comment

by:Rory Archibald
ID: 34947042
What kind of checkbox (Forms or ActiveX), and where are you adding it?
0
 
LVL 85

Expert Comment

by:Rory Archibald
ID: 34947051
If it's Forms, then you set its OnAction property to the name of the macro you want to run.
0
 

Author Comment

by:tonelm54
ID: 34947150
I'm using MSForms.CheckBox, but looking at the intellisence there is no inaction property I can assign my macro to. I need to be able to add it by code.
0
 
LVL 85

Expert Comment

by:Rory Archibald
ID: 34947191
Where are you adding it to? A Userform or a worksheet?
0
 
LVL 85

Expert Comment

by:Rory Archibald
ID: 34947195
(that's not, oddly, the Forms control I was referring to)
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:tonelm54
ID: 34947215
It's a userform

Thank you
0
 
LVL 85

Expert Comment

by:Rory Archibald
ID: 34947236
In that case, your best bet is to use a class with a Checkbox variable declared WithEvents and put your Click code in that. Then as you add each checkbox, create an instance of the class, assign the checkbox to the class's variable and then add the class instance to a Collection (declared at module level in the userform).
Do you need sample code for that?
0
 

Author Comment

by:tonelm54
ID: 34949103
Err, do you have any sample code for that? Sounds a very complex way of doing a simple task :-S
0
 

Author Comment

by:tonelm54
ID: 34950161
My code I currently have is:-
0
 

Author Comment

by:tonelm54
ID: 34950164
ok, this time I attach the code!!!

Private Sub UserForm_Activate()
      Dim newCheckBox  As MSForms.CheckBox
        
        Set newCheckBox = Frame1.Controls.Add("Forms.CheckBox.1")
        newCheckBox.Caption = "Hello " & x
        newCheckBox.Top = x * 30
        newCheckBox.Left = 10
        
        newCheckBox.OnAction = "Checkbox_Toggle"
                
        Frame1.Controls.Add newCheckBox
End Sub

Open in new window


Sorry!
0
 
LVL 85

Accepted Solution

by:
Rory Archibald earned 500 total points
ID: 34950223
Class module called CheckboxHandler:
Option Explicit

Public WithEvents cb As MSForms.CheckBox

Private Sub cb_Click()
   MsgBox "You clicked checkbox: " & cb.Name
End Sub

Open in new window


Userform code:
Option Explicit

Dim colCBHandlers As Collection

Private Sub UserForm_Activate()
   Dim objHandler As CheckboxHandler
 Dim x As Integer
   Set colCBHandlers = New Collection
   
    For x = 1 To 100 Step 1
        Dim newCheckBox  As MSForms.CheckBox
        Set newCheckBox = Me.Frame1.Controls.Add("Forms.CheckBox.1")
        newCheckBox.Caption = "Hello " & x
        newCheckBox.Top = x * 30
        newCheckBox.Left = 10
        ' create new handler
        Set objHandler = New CheckboxHandler
        ' assign checkbox
        Set objHandler.cb = newCheckBox
        colCBHandlers.Add objHandler
    Next x

End Sub

Open in new window

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
This tutorial explains how to create a series of drop-down lists that are dependent upon prior selections to guide (“force”) the user to make the correct selection and reduce data errors within Microsoft Excel. Excel 2010 was used for this tutorial;…
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now