WithEvents

[Ronin]

Group,

How is it that if i specify the below:

Public WithEvents mTestCtl As MSForms.TextBox

it will work fine, but if specified as MSForms.Control, it errors out with:

Run-time error '459':

Object or class does not support the set of events

please review the code below.

Public WithEvents mTestCtl As MSForms.Control
Sub SetControl(ctl As MSForms.Control)
Set mTestCtl = ctl '<-this is where it errors out
End Sub
Private Sub mTestCtl_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox mTestCtl.Value
End Sub


Please help.


Thanks in advance.


Ronin

[Dnereb]

withevents needs to know which events can be triggered.
and that's diffrent for a label opposed to a combobox.

[Chip Pearson]

A Control is a generic control. It can be set to any of the
controls in the MSForms library. Each of these controls has a
different set of events, and the compiler doesn't know what type
of control that variable will be set to, so it cannot generate
event code.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Ronin" <[email protected]> wrote in message
news:[email protected]...
> Group,
>
> How is it that if i specify the below:
>
> Public WithEvents mTestCtl As MSForms.TextBox
>
> it will work fine, but if specified as MSForms.Control, it
> errors out with:
>
> Run-time error '459':
>
> Object or class does not support the set of events
>
> please review the code below.
>
> Public WithEvents mTestCtl As MSForms.Control
> Sub SetControl(ctl As MSForms.Control)
> Set mTestCtl = ctl '<-this is where it errors out
> End Sub
> Private Sub mTestCtl_Exit(ByVal Cancel As
> MSForms.ReturnBoolean)
> MsgBox mTestCtl.Value
> End Sub
>
>
> Please help.
>
>
> Thanks in advance.
>
>
> Ronin