Event procedures for controls added with Controls.Add

G

Guest

I need to create event procedures for controls added with Controls.Add.
The following approach was suggested:

Private Sub UserForm_Activate()
Dim Ct As Control, StartLine as long

Set Ct = Me.Controls.Add("Forms.TextBox.1", "txtNew" , True)
With ActiveWorkbook.VBProject.VBComponents("UserForm1").CodeModule
StartLine = .CreateEventProc("Change", Ct.Name) + 1
End With

But I get a runtime error on the .CreateEventProc call - Error 57017 "Event
handler is invalid"

Where have I gone wrong? Are there any other approaches (such as control
arrays in VB6)

Many thanks,
 
G

Guest

Another complication: When the workbook is protected, the line:
With ActiveWorkbook.VBProject.VBComponents("UserForm1").CodeModule
causes a run-time error. I really need to trap the TextBox change events
with the VBA code protected.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Event procedures for controls added with CreateEventProc 7
Creating ThisWorkbook Event Procedures 2
Help.. Add an event to a sheet module 1
Can you capture worksheet double click event from an Add-In???? 4
Using A Macro To Add Event Procedure To A CommandButton 1
programming the VBE for a new event procedure 3
Run time error 91 when trying to add controls to a collection 3
Using A Macro To Add Event Procedure To A CommandButton 1

Top