Very Computer

True DBGrid ver. 4.0d (build 4.0.0130) has just been posted on our FTP
site.  More information available at:

http://www.apexsc.com

downloads:
ftp://ftp.apexsc.com/pub/ocx/

Lac

--
Ladislav Sedivy
http://rabbit.apexsc.com

I have some code from my EDIT-DELETE menu item that ends with:
...
ElseIf TypeOf Screen.ActiveControl Is CSComboBox Then
    Screen.ActiveControl.Value = ""
   ' I want to emulate: CSComboBox1_Change
* Call Screen.ActiveControl_Change *
End if

Is there a way to call a control's CHANGE() event using this code?  I've
tried everything but can't figure it out.

How can I use Screen.ActiveControl to call one of the current control's
event procedures?  For example:
...
ElseIf TypeOf Screen.ActiveControl Is CSComboBox Then
    Screen.ActiveControl.Value = ""
    ' In the next line, I want to emulate:  Call CSComboBox1_Change
    Call Screen.ActiveControl_Change
End if

Obviously, the last line of this code doesn't work.  I've tried everything
but can't figure it out.  Any ideas?

John

I believe you would have to have the actual name of the control. The event
procedure names are CtlName_Event, and VB will not resolve the
ActiveControl into a name to give you the correct syntax for calling the
event.

                                                Matt

Quote:> I have some code from my EDIT-DELETE menu item that ends with:
> ...
> ElseIf TypeOf Screen.ActiveControl Is CSComboBox Then
>     Screen.ActiveControl.Value = ""
>    ' I want to emulate: CSComboBox1_Change
> * Call Screen.ActiveControl_Change *
> End if

> Is there a way to call a control's CHANGE() event using this code?  I've
> tried everything but can't figure it out.

I know this is question does not have one good answer, but I was wondering
how long it takes to compact larger databases (20MB+).  I realize it
depends on how "fragmented" they are, but what are some best/worse case
scenarios that you've run in to?

The reason I'm asking is that I'm debating whether to have my app's
database compact everytime upon startup.  Should I avoid this?

Thank you!  John

At first glance, it looks like you would need to use a Select Case on
the control name.
But if all your comboboxes had the same name and an index # then you
could use
Call MyComboBox_Change (Screen.activecontrol.index)

This should work.
Mike Schlosser In Seattle, Wa.