Programmatic MouseEnter and MouseLeave

[=?Utf-8?B?Qm9iQWNoZ2lsbA==?=]

I need to programmaticall y add an invisible control to my form that will
enable me to trigger MouseEnter and MouseLeave code relative to the control
area.

Is this possible to add the control and the triggers without the use of the
Form Designer? How?

My Form Design window is won't let me add any more controls so that is why I
need to do this programmaticall y. After two years of coding on this project
it blows up even if I look cross-eyed at it. :o(

I really need to programmaticall y add the invisible control with associated
MouseEnter and Leave triggers to complete my project.

Thanks!

Bob

[PlatinumBay]

Bob,

Wow, I think you may have bigger problems that just an invisible control.

I wrote a little test app to repeatedly add button controls to a form. The
app errors out (Win32Exception : Error creating window handle) at 9964
controls.

You must have a lot of controls if the designer won't let you add more.

You might want to look at componetizing controls into user controls, more of
an OO approach.

Also, why do you need an invisible control to handle the triggers, you could
add the logic to the form itself to detect those events, and determine if it
is in a specific area.

Hope this helps,
Steve

"BobAchgill " <Bo********@dis cussions.micros oft.comwrote in message
news:15******** *************** ***********@mic rosoft.com...

>I need to programmaticall y add an invisible control to my form that will
enable me to trigger MouseEnter and MouseLeave code relative to the
control
area.

Is this possible to add the control and the triggers without the use of
the
Form Designer? How?

My Form Design window is won't let me add any more controls so that is why
I
need to do this programmaticall y. After two years of coding on this
project
it blows up even if I look cross-eyed at it. :o(

I really need to programmaticall y add the invisible control with
associated
MouseEnter and Leave triggers to complete my project.

Thanks!

Bob

[Cor Ligthert [MVP]]

Bob,

I thought that every regular visitor had seen this sample now.

http://www.vb-tips.com/dbpages.aspx?...2-03abce36aa60

There is more of this dynamical stuff on our website.

Cor
"BobAchgill " <Bo********@dis cussions.micros oft.comschreef in bericht
news:15******** *************** ***********@mic rosoft.com...

>I need to programmaticall y add an invisible control to my form that will
enable me to trigger MouseEnter and MouseLeave code relative to the
control
area.

Is this possible to add the control and the triggers without the use of
the
Form Designer? How?

My Form Design window is won't let me add any more controls so that is why
I
need to do this programmaticall y. After two years of coding on this
project
it blows up even if I look cross-eyed at it. :o(

I really need to programmaticall y add the invisible control with
associated
MouseEnter and Leave triggers to complete my project.

Thanks!

Bob

[=?Utf-8?B?Qm9iQWNoZ2lsbA==?=]

Than ks Cor,

I tried programmaticall y making a listbox but it does not show up. :o(

Here is the code I tried...

'MyListBox
Dim MyListBox As New ListBox

'
MyListBox.Allow Drop = True
MyListBox.Items .AddRange(New Object() {"A", "B", "C", "D"})
MyListBox.Locat ion = New System.Drawing. Point(232, 176)
MyListBox.Name = "MyListBoxH 2"
MyListBox.Size = New System.Drawing. Size(56, 17)
MyListBox.TabIn dex = 100
MyListBox.Bring ToFront()
MyListBox.Visib le = True
MyListBox.Enabl ed = True
MyListBox.ItemH eight = 13
Controls.Add(My ListBox)

Thanks!
Bob

"Cor Ligthert [MVP]" wrote:

Bob,

I thought that every regular visitor had seen this sample now.

http://www.vb-tips.com/dbpages.aspx?...2-03abce36aa60

There is more of this dynamical stuff on our website.

Cor
"BobAchgill " <Bo********@dis cussions.micros oft.comschreef in bericht
news:15******** *************** ***********@mic rosoft.com...

I need to programmaticall y add an invisible control to my form that will
enable me to trigger MouseEnter and MouseLeave code relative to the
control
area.

Is this possible to add the control and the triggers without the use of
the
Form Designer? How?

My Form Design window is won't let me add any more controls so that is why
I
need to do this programmaticall y. After two years of coding on this
project
it blows up even if I look cross-eyed at it. :o(

I really need to programmaticall y add the invisible control with
associated
MouseEnter and Leave triggers to complete my project.

Thanks!

Bob

[=?Utf-8?B?Qm9iQWNoZ2lsbA==?=]

Than ks Cor,

I tried programmaticall y making a listbox but it does not show up. :o(

Here is the code I tried...

'MyListBox
Dim MyListBox As New ListBox

'
MyListBox.Allow Drop = True
MyListBox.Items .AddRange(New Object() {"A", "B", "C", "D"})
MyListBox.Locat ion = New System.Drawing. Point(232, 176)
MyListBox.Name = "MyListBox"
MyListBox.Size = New System.Drawing. Size(56, 17)
MyListBox.TabIn dex = 100
MyListBox.Bring ToFront()
MyListBox.Visib le = True
MyListBox.Enabl ed = True
MyListBox.ItemH eight = 13
Controls.Add(My ListBox)

Thanks!
Bob

"Cor Ligthert [MVP]" wrote:

Bob,

I thought that every regular visitor had seen this sample now.

http://www.vb-tips.com/dbpages.aspx?...2-03abce36aa60

There is more of this dynamical stuff on our website.

Cor
"BobAchgill " <Bo********@dis cussions.micros oft.comschreef in bericht
news:15******** *************** ***********@mic rosoft.com...

I need to programmaticall y add an invisible control to my form that will
enable me to trigger MouseEnter and MouseLeave code relative to the
control
area.

Is this possible to add the control and the triggers without the use of
the
Form Designer? How?

My Form Design window is won't let me add any more controls so that is why
I
need to do this programmaticall y. After two years of coding on this
project
it blows up even if I look cross-eyed at it. :o(

I really need to programmaticall y add the invisible control with
associated
MouseEnter and Leave triggers to complete my project.

Thanks!

Bob

[BobAchgill]

Mike,

Also, why do you need an invisible control to handle the triggers, you could
add the logic to the form itself to detect those events, and determine if it
is in a specific area.

Thanks, I added the logic using mousemove on the form and it works
great!

Wow, I think you may have bigger problems that just an invisible control.

I wrote a little test app to repeatedly add button controls to a form. The
app errors out (Win32Exception : Error creating window handle) at 9964
controls.

Well, I don't think it is because of too many controls that my design
window crumps. And even when I so much as move a control on the
window it crumps. Got any ideas how to debug why the designer would
be so ill?

Bob

[Cor Ligthert [MVP]]

Bob,

This shows in the left beneath corner a listbox, are you sure your form is
large enough?

Private Sub Form1_Load(ByVa l sender As _
System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
'MyListBox
Dim MyListBox As New ListBox

'
MyListBox.Allow Drop = True
MyListBox.Items .AddRange(New Object() {"A", "B", "C", "D"})
MyListBox.Locat ion = New System.Drawing. Point(232, 176)
MyListBox.Name = "MyListBox"
MyListBox.Size = New System.Drawing. Size(56, 17)
MyListBox.TabIn dex = 100
MyListBox.Bring ToFront()
MyListBox.Visib le = True
MyListBox.Enabl ed = True
MyListBox.ItemH eight = 13
Controls.Add(My ListBox)
End Sub

Cor
"BobAchgill " <Bo********@dis cussions.micros oft.comschreef in bericht
news:48******** *************** ***********@mic rosoft.com...

Than ks Cor,

I tried programmaticall y making a listbox but it does not show up. :o(

Here is the code I tried...

'MyListBox
Dim MyListBox As New ListBox

'
MyListBox.Allow Drop = True
MyListBox.Items .AddRange(New Object() {"A", "B", "C", "D"})
MyListBox.Locat ion = New System.Drawing. Point(232, 176)
MyListBox.Name = "MyListBox"
MyListBox.Size = New System.Drawing. Size(56, 17)
MyListBox.TabIn dex = 100
MyListBox.Bring ToFront()
MyListBox.Visib le = True
MyListBox.Enabl ed = True
MyListBox.ItemH eight = 13
Controls.Add(My ListBox)

Thanks!
Bob

"Cor Ligthert [MVP]" wrote:

>Bob,

I thought that every regular visitor had seen this sample now.

http://www.vb-tips.com/dbpages.aspx?...2-03abce36aa60

There is more of this dynamical stuff on our website.

Cor
"BobAchgill " <Bo********@dis cussions.micros oft.comschreef in bericht
news:15******* *************** ************@mi crosoft.com...

>I need to programmaticall y add an invisible control to my form that will
enable me to trigger MouseEnter and MouseLeave code relative to the
control
area.

Is this possible to add the control and the triggers without the use of
the
Form Designer? How?

My Form Design window is won't let me add any more controls so that is
why
I
need to do this programmaticall y. After two years of coding on this
project
it blows up even if I look cross-eyed at it. :o(

I really need to programmaticall y add the invisible control with
associated
MouseEnter and Leave triggers to complete my project.

Thanks!

Bob

[=?Utf-8?B?Qm9iQWNoZ2lsbA==?=]

Cor,

My form was big enough... but the list box was hiding under something else
on the form. Thanks!

Hey, now I am trying to programmaticall y add a Flash control to my form that
already has some Flash controls. (so I know the references are right) I
tried to follow what you showed me for adding a control programmaticall y but
it does not work. Do you see anything I may be missing... I had to comment
out the one line ...

'AxShockwaveFla sh10.OcxState = ...

because the "Resources.GetO bject" was saying GetObject is not a member of
Resources.

Here is the code...

'AxShockwaveFla sh10
Dim AxShockwaveFlas h10 = New AxShockwaveFlas hObjects.AxShoc kwaveFlash
'
AxShockwaveFlas h10.Enabled = True
AxShockwaveFlas h10.Location = New System.Drawing. Point(100, 100)
AxShockwaveFlas h10.Name = "AxShockwaveFla sh10"
'AxShockwaveFla sh10.OcxState =
CType(Resources .GetObject("AxS hockwaveFlash10 .OcxState"),
System.Windows. Forms.AxHost.St ate)
AxShockwaveFlas h10.Size = New System.Drawing. Size(152, 144)
'AxShockwaveFla sh10.TabIndex = 29

Controls.Add(Ax ShockwaveFlash1 0)

AxShockwaveFlas h10.Movie = strCurDir + "\MyFlash.s wf"
AxShockwaveFlas h10.Play()
AxShockwaveFlas h10.Loop = True