REPOST: Popup form on button

[Colin McGuire]

Hi - this was posted last weekend and unfortunately not resolved. The
solutions that were posted almost worked but after another 5 days of
working on the code everynight, I am not further ahead.
If you do have any ideas I would really like to hear them.
Thanks
Colin

- 0 - 0 - 0 -

I want a glorified popup/context menu on a button that shows only when
the mouse button is pressed over the button, and disappears when the
mouse button is released anywhere. Here's a full description.

When the mouse button is depressed over Button1, I want the
popup form (an instance of formPopup) to show. If the mouse
button is released anywhere, the cursor could be anywhere,
even over another application or on the desktop or somewhere else,
I want the popup form to be hidden. The code I have means that
if I move the cursor away from the display form, then release
the mouse button, the form isn't always hidden. I also want
to trap various events in the instance of formPopup, such as
mouseenter etc for controls on that form. By adding
Button1.Capture =True, no events in the instance of formPopup
can be caught.

Colin
Here is the full code I already have.

1. Launch Visual Studio .Net 2003 and create a new winforms
application.
2. Use the VS IDE toolbar to put a new button, Button1, on the form.
3. Paste in the following code

Public Class Form1
Inherits System.Windows. Forms.Form

//and include the Windows Form Designer Code in here

Public Class formPopup
Inherits System.Windows. Forms.Form

Private Sub formPopup_Load( ByVal sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim b1 As New Button
b1.Size = New Size(15, 15)
b1.Location = New Point(10, 10)
b1.BackColor = Color.Gray
Me.Controls.Add (b1)
AddHandler b1.MouseEnter, AddressOf subMEnter
AddHandler b1.MouseLeave, AddressOf subMLeave
AddHandler b1.MouseUp, AddressOf subMUp

Dim b2 As New Button
b2.Size = New Size(15, 15)
b2.Location = New Point(30, 10)
b2.BackColor = Color.Gray
Me.Controls.Add (b2)
AddHandler b2.MouseEnter, AddressOf subMEnter
AddHandler b2.MouseLeave, AddressOf subMLeave
End Sub

Private Sub subMUp(ByVal sender As Object, _
ByVal e As MouseEventArgs)
Debug.WriteLine ("MouseUp")
End Sub

Private Sub subMLeave(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Gray
End Sub

Private Sub subMEnter(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Blue
End Sub
End Class
Dim WithEvents f As formPopup

Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
f = New formPopup

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow

f.Show()
'Button1.Captur e = True 'Have to comment this or else I cannot
'trap mouse trap events for controls on the
form
End Sub

Private Sub Button1_MouseUp (ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseUp , f.MouseUp
Debug.WriteLine ("Button1_Mouse Up")
f.Close()
f.Hide()
f = Nothing
End Sub
End Class

[Armin Zingler]

"Colin McGuire" <co***********@ lycos.co.uk> schrieb

Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
f = New formPopup

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow

f.Show()
'Button1.Captur e = True 'Have to comment this or else I cannot
'trap mouse trap events for controls on
the
form
End Sub

AFAIR I suggested to use

f.capture = true

instead of

button1.capture = true

in my last reply.
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[hexathioorthooxalate]

Armin:
I too thought this was done and dusted. Looking at
the original thread it appears he also wants to
trap button events on the popup form.
Colin:
Try this (the code is below). The key code is in
formPopup_Mouse Leave. If I understand the user
interface you are describing, you must have a really
good reason for wanting to code this behaviour. For
what it's worth, I find it annoying and not something
I would put into any of my applications.

Note that MouseLeave is not the only way to 'leave'
a control ! You will need to make it more robust.
Hexathioorthoox alate


Public Class Form1
Inherits System.Windows. Forms.Form

'[+]Windows Form Designer generated code

Public Class formPopup
Inherits System.Windows. Forms.Form

Public Event popupNotificati on()
Private _button As Button = Nothing

Public ReadOnly Property getButton() As Button
Get
Return _button
End Get
End Property

Private Sub formPopup_Load( ByVal sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim b1 As New Button
b1.Size = New Size(15, 15)
b1.Location = New Point(10, 10)
b1.BackColor = Color.Gray
b1.Text = "1"
Me.Controls.Add (b1)
AddHandler b1.MouseEnter, AddressOf subMEnter
AddHandler b1.MouseLeave, AddressOf subMLeave
AddHandler b1.MouseUp, AddressOf subMUp

Dim b2 As New Button
b2.Size = New Size(15, 15)
b2.Location = New Point(30, 10)
b2.BackColor = Color.Gray
b2.Text = "2"

Me.Controls.Add (b2)
AddHandler b2.MouseEnter, AddressOf subMEnter
AddHandler b2.MouseLeave, AddressOf subMLeave
AddHandler b2.MouseUp, AddressOf subMUp
End Sub

Private Sub subMUp(ByVal sender As Object, _
ByVal e As MouseEventArgs) Handles MyBase.MouseUp
RaiseEvent popupNotificati on()
End Sub

Private Sub subMLeave(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Gray
_button = Nothing
End Sub

Private Sub subMEnter(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Blue
_button = b
End Sub

Private Sub formPopup_Mouse Leave(ByVal sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.MouseLea ve
Dim cursorPosition As Point = PointToClient(C ursor.Position( ))
Dim rect As Rectangle = Me.ClientRectan gle
If Not rect.Contains(c ursorPosition) Then
RaiseEvent popupNotificati on()
End If
End Sub
End Class
Dim WithEvents f As formPopup

Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Const FORMWIDTH As Integer = 80
Const FORMHEIGHT As Integer = 80
f = New formPopup
f.Size = New Size(FORMWIDTH, FORMHEIGHT)
f.BackColor = Color.Yellow
f.FormBorderSty le = FormBorderStyle .FixedSingle
f.ControlBox = False
f.StartPosition = FormStartPositi on.Manual
f.Location = New Point(Cursor.Po sition.X - FORMWIDTH \ 2, _
Cursor.Position .Y - FORMHEIGHT \ 2)
f.Show()
End Sub

Private Sub disposeOfPopupF orm()
If Not Nothing Is f Then
f.Close()
f.Hide()
f = Nothing
End If
End Sub

Private Sub f_popupNotifica tion() Handles f.popupNotifica tion
Dim buttonPressed As Button = f.getButton
Call disposeOfPopupF orm()
If Nothing Is buttonPressed Then
Debug.WriteLine ("no button was pressed")
Else
Debug.WriteLine ("Selected button: " + buttonPressed.T ext)
End If
End Sub

End Class


"Armin Zingler" <az*******@free net.de> wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

"Colin McGuire" <co***********@ lycos.co.uk> schrieb

Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
f = New formPopup

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow

f.Show()
'Button1.Captur e = True 'Have to comment this or else I cannot
'trap mouse trap events for controls on
the
form
End Sub

AFAIR I suggested to use

f.capture = true

instead of

button1.capture = true

in my last reply.
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Brian]

Try this out Colin. It worked when I tried it. You need to set the button
capture to True. Then create a rect of the button to see if the point is in
or out of the button. Also, why do you have Button1_MouseUp handling the
f.mouseup? Remove it and it will work.
Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
f = New formPopup()

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow
f.Show()

'-- You NEED to set this to true!
Button1.Capture = True

End Sub

Private Sub Button1_MouseUp (ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseUp ' ----------- f.MouseUp <-------- Get
rid of this. Why is this here?
Debug.WriteLine ("Button1_Mouse Up")

'-- Create a rect of the button
Dim rect As New Rectangle(0, 0, Button1.Width, Button1.Height)

'-- If mouse point isn't in the rect close it
If Not rect.Contains(e .X, e.Y) Then
f.Close()
f.Hide()
f = Nothing
End If

'-- Release Button capture
Button1.Capture = False

End Sub



"Colin McGuire" <co***********@ lycos.co.uk> wrote in message
news:ab******** *************** ***@posting.goo gle.com...

Hi - this was posted last weekend and unfortunately not resolved. The
solutions that were posted almost worked but after another 5 days of
working on the code everynight, I am not further ahead.
If you do have any ideas I would really like to hear them.
Thanks
Colin

- 0 - 0 - 0 -

I want a glorified popup/context menu on a button that shows only when
the mouse button is pressed over the button, and disappears when the
mouse button is released anywhere. Here's a full description.

When the mouse button is depressed over Button1, I want the
popup form (an instance of formPopup) to show. If the mouse
button is released anywhere, the cursor could be anywhere,
even over another application or on the desktop or somewhere else,
I want the popup form to be hidden. The code I have means that
if I move the cursor away from the display form, then release
the mouse button, the form isn't always hidden. I also want
to trap various events in the instance of formPopup, such as
mouseenter etc for controls on that form. By adding
Button1.Capture =True, no events in the instance of formPopup
can be caught.

Colin
Here is the full code I already have.

1. Launch Visual Studio .Net 2003 and create a new winforms
application.
2. Use the VS IDE toolbar to put a new button, Button1, on the form.
3. Paste in the following code

Public Class Form1
Inherits System.Windows. Forms.Form

//and include the Windows Form Designer Code in here

Public Class formPopup
Inherits System.Windows. Forms.Form

Private Sub formPopup_Load( ByVal sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim b1 As New Button
b1.Size = New Size(15, 15)
b1.Location = New Point(10, 10)
b1.BackColor = Color.Gray
Me.Controls.Add (b1)
AddHandler b1.MouseEnter, AddressOf subMEnter
AddHandler b1.MouseLeave, AddressOf subMLeave
AddHandler b1.MouseUp, AddressOf subMUp

Dim b2 As New Button
b2.Size = New Size(15, 15)
b2.Location = New Point(30, 10)
b2.BackColor = Color.Gray
Me.Controls.Add (b2)
AddHandler b2.MouseEnter, AddressOf subMEnter
AddHandler b2.MouseLeave, AddressOf subMLeave
End Sub

Private Sub subMUp(ByVal sender As Object, _
ByVal e As MouseEventArgs)
Debug.WriteLine ("MouseUp")
End Sub

Private Sub subMLeave(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Gray
End Sub

Private Sub subMEnter(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Blue
End Sub
End Class
Dim WithEvents f As formPopup

Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
f = New formPopup

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow

f.Show()
'Button1.Captur e = True 'Have to comment this or else I cannot
'trap mouse trap events for controls on the
form
End Sub

Private Sub Button1_MouseUp (ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseUp , f.MouseUp
Debug.WriteLine ("Button1_Mouse Up")
f.Close()
f.Hide()
f = Nothing
End Sub
End Class

[hexathioorthooxalate]

Brian, I'm not sure your code does exactly what he wants. This is the
confusion I think: from his posting I believe he wants to "select" buttons
on the popup form while the mouse button is down, and further only display
the popup form while the mouse button is down. If the mouse button is ever
released, regardless of where it is, then the popup form is hidden/disposed
of.

When the mouse button is depressed over Button1, I want the
popup form (an instance of formPopup) to show. If the mouse
button is released anywhere, the cursor could be anywhere,
even over another application or on the desktop or somewhere else,
I want the popup form to be hidden. The code I have means that
if I move the cursor away from the display form, then release
the mouse button, the form isn't always hidden. I also want
to trap various events in the instance of formPopup, such as
mouseenter etc for controls on that form.

Colin, could you reply to confirm your exact desired behaviour please.

Hexathioorthoox alate

"Brian" <no****@prairie .lakes.com> wrote in message
news:vr******** ****@corp.super news.com...
Try this out Colin. It worked when I tried it. You need to set the button
capture to True. Then create a rect of the button to see if the point is in or out of the button. Also, why do you have Button1_MouseUp handling the
f.mouseup? Remove it and it will work.
Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
f = New formPopup()

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow
f.Show()

'-- You NEED to set this to true!
Button1.Capture = True

End Sub

Private Sub Button1_MouseUp (ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseUp ' ----------- f.MouseUp <-------- Get rid of this. Why is this here?
Debug.WriteLine ("Button1_Mouse Up")

'-- Create a rect of the button
Dim rect As New Rectangle(0, 0, Button1.Width, Button1.Height)

'-- If mouse point isn't in the rect close it
If Not rect.Contains(e .X, e.Y) Then
f.Close()
f.Hide()
f = Nothing
End If

'-- Release Button capture
Button1.Capture = False

End Sub



"Colin McGuire" <co***********@ lycos.co.uk> wrote in message
news:ab******** *************** ***@posting.goo gle.com...

Hi - this was posted last weekend and unfortunately not resolved. The
solutions that were posted almost worked but after another 5 days of
working on the code everynight, I am not further ahead.
If you do have any ideas I would really like to hear them.
Thanks
Colin

- 0 - 0 - 0 -

I want a glorified popup/context menu on a button that shows only when
the mouse button is pressed over the button, and disappears when the
mouse button is released anywhere. Here's a full description.

When the mouse button is depressed over Button1, I want the
popup form (an instance of formPopup) to show. If the mouse
button is released anywhere, the cursor could be anywhere,
even over another application or on the desktop or somewhere else,
I want the popup form to be hidden. The code I have means that
if I move the cursor away from the display form, then release
the mouse button, the form isn't always hidden. I also want
to trap various events in the instance of formPopup, such as
mouseenter etc for controls on that form. By adding
Button1.Capture =True, no events in the instance of formPopup
can be caught.

Colin
Here is the full code I already have.

1. Launch Visual Studio .Net 2003 and create a new winforms
application.
2. Use the VS IDE toolbar to put a new button, Button1, on the form.
3. Paste in the following code

Public Class Form1
Inherits System.Windows. Forms.Form

//and include the Windows Form Designer Code in here

Public Class formPopup
Inherits System.Windows. Forms.Form

Private Sub formPopup_Load( ByVal sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim b1 As New Button
b1.Size = New Size(15, 15)
b1.Location = New Point(10, 10)
b1.BackColor = Color.Gray
Me.Controls.Add (b1)
AddHandler b1.MouseEnter, AddressOf subMEnter
AddHandler b1.MouseLeave, AddressOf subMLeave
AddHandler b1.MouseUp, AddressOf subMUp

Dim b2 As New Button
b2.Size = New Size(15, 15)
b2.Location = New Point(30, 10)
b2.BackColor = Color.Gray
Me.Controls.Add (b2)
AddHandler b2.MouseEnter, AddressOf subMEnter
AddHandler b2.MouseLeave, AddressOf subMLeave
End Sub

Private Sub subMUp(ByVal sender As Object, _
ByVal e As MouseEventArgs)
Debug.WriteLine ("MouseUp")
End Sub

Private Sub subMLeave(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Gray
End Sub

Private Sub subMEnter(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Blue
End Sub
End Class
Dim WithEvents f As formPopup

Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
f = New formPopup

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow

f.Show()
'Button1.Captur e = True 'Have to comment this or else I cannot
'trap mouse trap events for controls on the
form
End Sub

Private Sub Button1_MouseUp (ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseUp , f.MouseUp
Debug.WriteLine ("Button1_Mouse Up")
f.Close()
f.Hide()
f = Nothing
End Sub
End Class

[Brian]

What? How do you select another button when the a button is already down?
You have to release the button before you can select another. It seems to me
like he's trying to create a custom popup menu that works like the standard
Cut/Paste/SelectAll menu but with buttons. Is this right?

"hexathioorthoo xalate" <ru***@REMOVESP AM.clara.co.uk> wrote in message
news:10******** *******@damia.u k.clara.net...

Brian, I'm not sure your code does exactly what he wants. This is the
confusion I think: from his posting I believe he wants to "select" buttons on the popup form while the mouse button is down, and further only display
the popup form while the mouse button is down. If the mouse button is ever
released, regardless of where it is, then the popup form is hidden/disposed of.

When the mouse button is depressed over Button1, I want the
popup form (an instance of formPopup) to show. If the mouse
button is released anywhere, the cursor could be anywhere,
even over another application or on the desktop or somewhere else,
I want the popup form to be hidden. The code I have means that
if I move the cursor away from the display form, then release
the mouse button, the form isn't always hidden. I also want
to trap various events in the instance of formPopup, such as
mouseenter etc for controls on that form.
Colin, could you reply to confirm your exact desired behaviour please.

Hexathioorthoox alate

"Brian" <no****@prairie .lakes.com> wrote in message
news:vr******** ****@corp.super news.com...

Try this out Colin. It worked when I tried it. You need to set the

button capture to True. Then create a rect of the button to see if the point is

in

or out of the button. Also, why do you have Button1_MouseUp handling the
f.mouseup? Remove it and it will work.
Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
f = New formPopup()

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow
f.Show()

'-- You NEED to set this to true!
Button1.Capture = True

End Sub

Private Sub Button1_MouseUp (ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseUp ' ----------- f.MouseUp <--------

Get

rid of this. Why is this here?
Debug.WriteLine ("Button1_Mouse Up")

'-- Create a rect of the button
Dim rect As New Rectangle(0, 0, Button1.Width, Button1.Height)

'-- If mouse point isn't in the rect close it
If Not rect.Contains(e .X, e.Y) Then
f.Close()
f.Hide()
f = Nothing
End If

'-- Release Button capture
Button1.Capture = False

End Sub



"Colin McGuire" <co***********@ lycos.co.uk> wrote in message
news:ab******** *************** ***@posting.goo gle.com...

Hi - this was posted last weekend and unfortunately not resolved. The
solutions that were posted almost worked but after another 5 days of
working on the code everynight, I am not further ahead.
If you do have any ideas I would really like to hear them.
Thanks
Colin

- 0 - 0 - 0 -

I want a glorified popup/context menu on a button that shows only when
the mouse button is pressed over the button, and disappears when the
mouse button is released anywhere. Here's a full description.

When the mouse button is depressed over Button1, I want the
popup form (an instance of formPopup) to show. If the mouse
button is released anywhere, the cursor could be anywhere,
even over another application or on the desktop or somewhere else,
I want the popup form to be hidden. The code I have means that
if I move the cursor away from the display form, then release
the mouse button, the form isn't always hidden. I also want
to trap various events in the instance of formPopup, such as
mouseenter etc for controls on that form. By adding
Button1.Capture =True, no events in the instance of formPopup
can be caught.

Colin
Here is the full code I already have.

1. Launch Visual Studio .Net 2003 and create a new winforms
application.
2. Use the VS IDE toolbar to put a new button, Button1, on the form.
3. Paste in the following code

Public Class Form1
Inherits System.Windows. Forms.Form

//and include the Windows Form Designer Code in here

Public Class formPopup
Inherits System.Windows. Forms.Form

Private Sub formPopup_Load( ByVal sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim b1 As New Button
b1.Size = New Size(15, 15)
b1.Location = New Point(10, 10)
b1.BackColor = Color.Gray
Me.Controls.Add (b1)
AddHandler b1.MouseEnter, AddressOf subMEnter
AddHandler b1.MouseLeave, AddressOf subMLeave
AddHandler b1.MouseUp, AddressOf subMUp

Dim b2 As New Button
b2.Size = New Size(15, 15)
b2.Location = New Point(30, 10)
b2.BackColor = Color.Gray
Me.Controls.Add (b2)
AddHandler b2.MouseEnter, AddressOf subMEnter
AddHandler b2.MouseLeave, AddressOf subMLeave
End Sub

Private Sub subMUp(ByVal sender As Object, _
ByVal e As MouseEventArgs)
Debug.WriteLine ("MouseUp")
End Sub

Private Sub subMLeave(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Gray
End Sub

Private Sub subMEnter(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Blue
End Sub
End Class
Dim WithEvents f As formPopup

Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
f = New formPopup

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow

f.Show()
'Button1.Captur e = True 'Have to comment this or else I cannot
'trap mouse trap events for controls on the
form
End Sub

Private Sub Button1_MouseUp (ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseUp , f.MouseUp
Debug.WriteLine ("Button1_Mouse Up")
f.Close()
f.Hide()
f = Nothing
End Sub
End Class

[hexathioorthooxalate]

"Brian" <no****@prairie .lakes.com> wrote in message
news:vr******** ****@corp.super news.com...

What? How do you select another button when the a button is already down?
You have to release the button before you can select another. It seems to me

Yes - I think he is wanting something like this although clearly as we can
both see, he can't select the button via normal button clicks. I think it
explains why he says he wants to capture MouseOver events for controls on
the popup form, rather than click events.

I'm still waiting for Colin to repost and confirm exactly what he wants.

Hexathioorthoox alate
like he's trying to create a custom popup menu that works like the standard Cut/Paste/SelectAll menu but with buttons. Is this right?

"hexathioorthoo xalate" <ru***@REMOVESP AM.clara.co.uk> wrote in message
news:10******** *******@damia.u k.clara.net...

Brian, I'm not sure your code does exactly what he wants. This is the
confusion I think: from his posting I believe he wants to "select" buttons

on the popup form while the mouse button is down, and further only display the popup form while the mouse button is down. If the mouse button is ever released, regardless of where it is, then the popup form is

hidden/disposed

of.

> When the mouse button is depressed over Button1, I want the
> popup form (an instance of formPopup) to show. If the mouse
> button is released anywhere, the cursor could be anywhere,
> even over another application or on the desktop or somewhere else,
> I want the popup form to be hidden. The code I have means that
> if I move the cursor away from the display form, then release
> the mouse button, the form isn't always hidden. I also want
> to trap various events in the instance of formPopup, such as
> mouseenter etc for controls on that form.

Colin, could you reply to confirm your exact desired behaviour please.

Hexathioorthoox alate

"Brian" <no****@prairie .lakes.com> wrote in message
news:vr******** ****@corp.super news.com...

Try this out Colin. It worked when I tried it. You need to set the button capture to True. Then create a rect of the button to see if the point is in

or out of the button. Also, why do you have Button1_MouseUp handling

the f.mouseup? Remove it and it will work.
Private Sub Button1_MouseDo wn(ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
f = New formPopup()

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow
f.Show()

'-- You NEED to set this to true!
Button1.Capture = True

End Sub

Private Sub Button1_MouseUp (ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) _
Handles Button1.MouseUp ' ----------- f.MouseUp <-------- Get

rid of this. Why is this here?
Debug.WriteLine ("Button1_Mouse Up")

'-- Create a rect of the button
Dim rect As New Rectangle(0, 0, Button1.Width, Button1.Height)

'-- If mouse point isn't in the rect close it
If Not rect.Contains(e .X, e.Y) Then
f.Close()
f.Hide()
f = Nothing
End If

'-- Release Button capture
Button1.Capture = False

End Sub



"Colin McGuire" <co***********@ lycos.co.uk> wrote in message
news:ab******** *************** ***@posting.goo gle.com...
> Hi - this was posted last weekend and unfortunately not resolved.

The > solutions that were posted almost worked but after another 5 days of
> working on the code everynight, I am not further ahead.
> If you do have any ideas I would really like to hear them.
> Thanks
> Colin
>
> - 0 - 0 - 0 -
>
> I want a glorified popup/context menu on a button that shows only when > the mouse button is pressed over the button, and disappears when the
> mouse button is released anywhere. Here's a full description.
>
> When the mouse button is depressed over Button1, I want the
> popup form (an instance of formPopup) to show. If the mouse
> button is released anywhere, the cursor could be anywhere,
> even over another application or on the desktop or somewhere else,
> I want the popup form to be hidden. The code I have means that
> if I move the cursor away from the display form, then release
> the mouse button, the form isn't always hidden. I also want
> to trap various events in the instance of formPopup, such as
> mouseenter etc for controls on that form. By adding
> Button1.Capture =True, no events in the instance of formPopup
> can be caught.
>
> Colin
>
>
> Here is the full code I already have.
>
> 1. Launch Visual Studio .Net 2003 and create a new winforms
> application.
> 2. Use the VS IDE toolbar to put a new button, Button1, on the form.
> 3. Paste in the following code
>
> Public Class Form1
> Inherits System.Windows. Forms.Form
>
> //and include the Windows Form Designer Code in here
>
> Public Class formPopup
> Inherits System.Windows. Forms.Form
>
> Private Sub formPopup_Load( ByVal sender As Object, _
> ByVal e As System.EventArg s) Handles MyBase.Load
> Dim b1 As New Button
> b1.Size = New Size(15, 15)
> b1.Location = New Point(10, 10)
> b1.BackColor = Color.Gray
> Me.Controls.Add (b1)
> AddHandler b1.MouseEnter, AddressOf subMEnter
> AddHandler b1.MouseLeave, AddressOf subMLeave
> AddHandler b1.MouseUp, AddressOf subMUp
>
> Dim b2 As New Button
> b2.Size = New Size(15, 15)
> b2.Location = New Point(30, 10)
> b2.BackColor = Color.Gray
> Me.Controls.Add (b2)
> AddHandler b2.MouseEnter, AddressOf subMEnter
> AddHandler b2.MouseLeave, AddressOf subMLeave
> End Sub
>
> Private Sub subMUp(ByVal sender As Object, _
> ByVal e As MouseEventArgs)
> Debug.WriteLine ("MouseUp")
> End Sub
>
> Private Sub subMLeave(ByVal sender As Object, _
> ByVal e As EventArgs)
> Dim b As Button = CType(sender, Button)
> b.BackColor = Color.Gray
> End Sub
>
> Private Sub subMEnter(ByVal sender As Object, _
> ByVal e As EventArgs)
> Dim b As Button = CType(sender, Button)
> b.BackColor = Color.Blue
> End Sub
> End Class
>
>
> Dim WithEvents f As formPopup
>
> Private Sub Button1_MouseDo wn(ByVal sender As Object, _
> ByVal e As System.Windows. Forms.MouseEven tArgs) _
> Handles Button1.MouseDo wn
> Debug.WriteLine ("Button1_Mouse Down")
> f = New formPopup
>
> f.Size = New Size(80, 80)
> f.BackColor = Color.Yellow
>
> f.Show()
> 'Button1.Captur e = True 'Have to comment this or else I cannot
> 'trap mouse trap events for controls on the > form
> End Sub
>
> Private Sub Button1_MouseUp (ByVal sender As Object, _
> ByVal e As System.Windows. Forms.MouseEven tArgs) _
> Handles Button1.MouseUp , f.MouseUp
> Debug.WriteLine ("Button1_Mouse Up")
> f.Close()
> f.Hide()
> f = Nothing
> End Sub
> End Class

[Brian]

Ok, let's try this. This acts like a context menu with buttons. If this
isn't it, I don't know what he wants.

Dim WithEvents f As formPopup

Private Sub Button1_MouseDo wn(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
Dim pt As Point
Dim pt2 As Point
f = New formPopup()

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow
pt = Cursor.Position

f.StartPosition = FormStartPositi on.Manual

f.Location = pt
f.Show()

Cursor.Position = f.PointToScreen (New Point(0, 0))

End Sub

End Class

Public Class formPopup
Inherits System.Windows. Forms.Form

Private Sub formPopup_Load( ByVal sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim b1 As New Button()
b1.Size = New Size(15, 15)
b1.Location = New Point(10, 10)
b1.BackColor = Color.Gray
Me.Controls.Add (b1)
Me.FormBorderSt yle = FormBorderStyle .None
AddHandler b1.MouseEnter, AddressOf subMEnter
AddHandler b1.MouseLeave, AddressOf subMLeave
AddHandler b1.MouseUp, AddressOf subMUp

AddHandler Me.Leave, AddressOf subLeaving

Dim b2 As New Button()
b2.Size = New Size(15, 15)
b2.Location = New Point(30, 10)
b2.BackColor = Color.Gray
Me.Controls.Add (b2)

Dim b3 As New Button()
b3.Size = New Size(15, 15)
b3.Location = New Point(50, 10)
b3.BackColor = Color.Gray
Me.Controls.Add (b3)

Dim b4 As New Button()
b4.Size = New Size(15, 15)
b4.Location = New Point(70, 10)
b4.BackColor = Color.Gray
Me.Controls.Add (b4)

AddHandler b2.MouseEnter, AddressOf subMEnter
AddHandler b2.MouseLeave, AddressOf subMLeave
AddHandler b3.MouseEnter, AddressOf subMEnter
AddHandler b3.MouseLeave, AddressOf subMLeave
AddHandler b4.MouseEnter, AddressOf subMEnter
AddHandler b4.MouseLeave, AddressOf subMLeave
End Sub
Private Sub subLeaving(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Leave
Me.Close()
End Sub

Private Sub subMUp(ByVal sender As Object, _
ByVal e As MouseEventArgs)
Debug.WriteLine ("MouseUp")
End Sub

Private Sub subMLeave(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Gray
End Sub

Private Sub subMEnter(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Blue
End Sub
End Class



"hexathioorthoo xalate" <ru***@REMOVESP AM.clara.co.uk> wrote in message
news:10******** ********@damia. uk.clara.net...

"Brian" <no****@prairie .lakes.com> wrote in message
news:vr******** ****@corp.super news.com...

What? How do you select another button when the a button is already down?

You have to release the button before you can select another. It seems

to me

Yes - I think he is wanting something like this although clearly as we can
both see, he can't select the button via normal button clicks. I think it
explains why he says he wants to capture MouseOver events for controls on
the popup form, rather than click events.

I'm still waiting for Colin to repost and confirm exactly what he wants.

Hexathioorthoox alate

like he's trying to create a custom popup menu that works like the standard

Cut/Paste/SelectAll menu but with buttons. Is this right?

"hexathioorthoo xalate" <ru***@REMOVESP AM.clara.co.uk> wrote in message
news:10******** *******@damia.u k.clara.net...

Brian, I'm not sure your code does exactly what he wants. This is the
confusion I think: from his posting I believe he wants to "select"

buttons

on the popup form while the mouse button is down, and further only

display the popup form while the mouse button is down. If the mouse button is ever released, regardless of where it is, then the popup form is

hidden/disposed

of.

> > When the mouse button is depressed over Button1, I want the
> > popup form (an instance of formPopup) to show. If the mouse
> > button is released anywhere, the cursor could be anywhere,
> > even over another application or on the desktop or somewhere else,
> > I want the popup form to be hidden. The code I have means that
> > if I move the cursor away from the display form, then release
> > the mouse button, the form isn't always hidden. I also want
> > to trap various events in the instance of formPopup, such as
> > mouseenter etc for controls on that form.

Colin, could you reply to confirm your exact desired behaviour please.

Hexathioorthoox alate

"Brian" <no****@prairie .lakes.com> wrote in message
news:vr******** ****@corp.super news.com...
>
> Try this out Colin. It worked when I tried it. You need to set the

button

> capture to True. Then create a rect of the button to see if the point is

in
> or out of the button. Also, why do you have Button1_MouseUp handling the > f.mouseup? Remove it and it will work.
>
>
> Private Sub Button1_MouseDo wn(ByVal sender As Object, _
> ByVal e As System.Windows. Forms.MouseEven tArgs) _
> Handles Button1.MouseDo wn
> Debug.WriteLine ("Button1_Mouse Down")
> f = New formPopup()
>
> f.Size = New Size(80, 80)
> f.BackColor = Color.Yellow
> f.Show()
>
> '-- You NEED to set this to true!
> Button1.Capture = True
>
> End Sub
>
>
>
> Private Sub Button1_MouseUp (ByVal sender As Object, ByVal e As
> System.Windows. Forms.MouseEven tArgs) _
> Handles Button1.MouseUp ' ----------- f.MouseUp <-------- Get
> rid of this. Why is this here?
>
>
> Debug.WriteLine ("Button1_Mouse Up")
>
> '-- Create a rect of the button
> Dim rect As New Rectangle(0, 0, Button1.Width, Button1.Height)
>
> '-- If mouse point isn't in the rect close it
> If Not rect.Contains(e .X, e.Y) Then
> f.Close()
> f.Hide()
> f = Nothing
> End If
>
> '-- Release Button capture
> Button1.Capture = False
>
> End Sub
>
>
>
>
>
>
>
> "Colin McGuire" <co***********@ lycos.co.uk> wrote in message
> news:ab******** *************** ***@posting.goo gle.com...
> > Hi - this was posted last weekend and unfortunately not resolved. The > > solutions that were posted almost worked but after another 5 days

of > > working on the code everynight, I am not further ahead.
> > If you do have any ideas I would really like to hear them.
> > Thanks
> > Colin
> >
> > - 0 - 0 - 0 -
> >
> > I want a glorified popup/context menu on a button that shows only

when > > the mouse button is pressed over the button, and disappears when the > > mouse button is released anywhere. Here's a full description.
> >
> > When the mouse button is depressed over Button1, I want the
> > popup form (an instance of formPopup) to show. If the mouse
> > button is released anywhere, the cursor could be anywhere,
> > even over another application or on the desktop or somewhere else,
> > I want the popup form to be hidden. The code I have means that
> > if I move the cursor away from the display form, then release
> > the mouse button, the form isn't always hidden. I also want
> > to trap various events in the instance of formPopup, such as
> > mouseenter etc for controls on that form. By adding
> > Button1.Capture =True, no events in the instance of formPopup
> > can be caught.
> >
> > Colin
> >
> >
> > Here is the full code I already have.
> >
> > 1. Launch Visual Studio .Net 2003 and create a new winforms
> > application.
> > 2. Use the VS IDE toolbar to put a new button, Button1, on the form. > > 3. Paste in the following code
> >
> > Public Class Form1
> > Inherits System.Windows. Forms.Form
> >
> > //and include the Windows Form Designer Code in here
> >
> > Public Class formPopup
> > Inherits System.Windows. Forms.Form
> >
> > Private Sub formPopup_Load( ByVal sender As Object, _
> > ByVal e As System.EventArg s) Handles MyBase.Load
> > Dim b1 As New Button
> > b1.Size = New Size(15, 15)
> > b1.Location = New Point(10, 10)
> > b1.BackColor = Color.Gray
> > Me.Controls.Add (b1)
> > AddHandler b1.MouseEnter, AddressOf subMEnter
> > AddHandler b1.MouseLeave, AddressOf subMLeave
> > AddHandler b1.MouseUp, AddressOf subMUp
> >
> > Dim b2 As New Button
> > b2.Size = New Size(15, 15)
> > b2.Location = New Point(30, 10)
> > b2.BackColor = Color.Gray
> > Me.Controls.Add (b2)
> > AddHandler b2.MouseEnter, AddressOf subMEnter
> > AddHandler b2.MouseLeave, AddressOf subMLeave
> > End Sub
> >
> > Private Sub subMUp(ByVal sender As Object, _
> > ByVal e As MouseEventArgs)
> > Debug.WriteLine ("MouseUp")
> > End Sub
> >
> > Private Sub subMLeave(ByVal sender As Object, _
> > ByVal e As EventArgs)
> > Dim b As Button = CType(sender, Button)
> > b.BackColor = Color.Gray
> > End Sub
> >
> > Private Sub subMEnter(ByVal sender As Object, _
> > ByVal e As EventArgs)
> > Dim b As Button = CType(sender, Button)
> > b.BackColor = Color.Blue
> > End Sub
> > End Class
> >
> >
> > Dim WithEvents f As formPopup
> >
> > Private Sub Button1_MouseDo wn(ByVal sender As Object, _
> > ByVal e As System.Windows. Forms.MouseEven tArgs) _
> > Handles Button1.MouseDo wn
> > Debug.WriteLine ("Button1_Mouse Down")
> > f = New formPopup
> >
> > f.Size = New Size(80, 80)
> > f.BackColor = Color.Yellow
> >
> > f.Show()
> > 'Button1.Captur e = True 'Have to comment this or else I cannot
> > 'trap mouse trap events for controls on the > > form
> > End Sub
> >
> > Private Sub Button1_MouseUp (ByVal sender As Object, _
> > ByVal e As System.Windows. Forms.MouseEven tArgs) _
> > Handles Button1.MouseUp , f.MouseUp
> > Debug.WriteLine ("Button1_Mouse Up")
> > f.Close()
> > f.Hide()
> > f = Nothing
> > End Sub
> > End Class
>
>

[hexathioorthooxalate]

This looks good, he has more than enough to work with now.

I sent him through an eMail message a few hours ago but it's a dummy account
he probably uses to control spam (it was rejected). I look forward to him
replying confirming the detail.

Cheers Brian
Hexathioorthoox alate


"Brian" <no****@prairie .lakes.com> wrote in message
news:vr******** ****@corp.super news.com...

Ok, let's try this. This acts like a context menu with buttons. If this
isn't it, I don't know what he wants.

Dim WithEvents f As formPopup

Private Sub Button1_MouseDo wn(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
Dim pt As Point
Dim pt2 As Point
f = New formPopup()

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow
pt = Cursor.Position

f.StartPosition = FormStartPositi on.Manual

f.Location = pt
f.Show()

Cursor.Position = f.PointToScreen (New Point(0, 0))

End Sub

End Class

Public Class formPopup
Inherits System.Windows. Forms.Form

Private Sub formPopup_Load( ByVal sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim b1 As New Button()
b1.Size = New Size(15, 15)
b1.Location = New Point(10, 10)
b1.BackColor = Color.Gray
Me.Controls.Add (b1)
Me.FormBorderSt yle = FormBorderStyle .None
AddHandler b1.MouseEnter, AddressOf subMEnter
AddHandler b1.MouseLeave, AddressOf subMLeave
AddHandler b1.MouseUp, AddressOf subMUp

AddHandler Me.Leave, AddressOf subLeaving

Dim b2 As New Button()
b2.Size = New Size(15, 15)
b2.Location = New Point(30, 10)
b2.BackColor = Color.Gray
Me.Controls.Add (b2)

Dim b3 As New Button()
b3.Size = New Size(15, 15)
b3.Location = New Point(50, 10)
b3.BackColor = Color.Gray
Me.Controls.Add (b3)

Dim b4 As New Button()
b4.Size = New Size(15, 15)
b4.Location = New Point(70, 10)
b4.BackColor = Color.Gray
Me.Controls.Add (b4)

AddHandler b2.MouseEnter, AddressOf subMEnter
AddHandler b2.MouseLeave, AddressOf subMLeave
AddHandler b3.MouseEnter, AddressOf subMEnter
AddHandler b3.MouseLeave, AddressOf subMLeave
AddHandler b4.MouseEnter, AddressOf subMEnter
AddHandler b4.MouseLeave, AddressOf subMLeave
End Sub
Private Sub subLeaving(ByVa l sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Leave
Me.Close()
End Sub

Private Sub subMUp(ByVal sender As Object, _
ByVal e As MouseEventArgs)
Debug.WriteLine ("MouseUp")
End Sub

Private Sub subMLeave(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Gray
End Sub

Private Sub subMEnter(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Blue
End Sub
End Class



"hexathioorthoo xalate" <ru***@REMOVESP AM.clara.co.uk> wrote in message
news:10******** ********@damia. uk.clara.net...

"Brian" <no****@prairie .lakes.com> wrote in message
news:vr******** ****@corp.super news.com...

What? How do you select another button when the a button is already down? You have to release the button before you can select another. It seems to

me

Yes - I think he is wanting something like this although clearly as we can both see, he can't select the button via normal button clicks. I think it explains why he says he wants to capture MouseOver events for controls on the popup form, rather than click events.

I'm still waiting for Colin to repost and confirm exactly what he wants.

Hexathioorthoox alate

like he's trying to create a custom popup menu that works like the standard

Cut/Paste/SelectAll menu but with buttons. Is this right?

"hexathioorthoo xalate" <ru***@REMOVESP AM.clara.co.uk> wrote in message
news:10******** *******@damia.u k.clara.net...
> Brian, I'm not sure your code does exactly what he wants. This is the > confusion I think: from his posting I believe he wants to "select"

buttons

> on the popup form while the mouse button is down, and further only

display

> the popup form while the mouse button is down. If the mouse button is

ever

> released, regardless of where it is, then the popup form is
hidden/disposed
> of.
>
> > > When the mouse button is depressed over Button1, I want the
> > > popup form (an instance of formPopup) to show. If the mouse
> > > button is released anywhere, the cursor could be anywhere,
> > > even over another application or on the desktop or somewhere

else, > > > I want the popup form to be hidden. The code I have means that
> > > if I move the cursor away from the display form, then release
> > > the mouse button, the form isn't always hidden. I also want
> > > to trap various events in the instance of formPopup, such as
> > > mouseenter etc for controls on that form.
>
> Colin, could you reply to confirm your exact desired behaviour please. >
> Hexathioorthoox alate
>
>
>
> "Brian" <no****@prairie .lakes.com> wrote in message
> news:vr******** ****@corp.super news.com...
> >
> > Try this out Colin. It worked when I tried it. You need to set the
button
> > capture to True. Then create a rect of the button to see if the

point

is

> in
> > or out of the button. Also, why do you have Button1_MouseUp handling the

> > f.mouseup? Remove it and it will work.
> >
> >
> > Private Sub Button1_MouseDo wn(ByVal sender As Object, _
> > ByVal e As System.Windows. Forms.MouseEven tArgs) _
> > Handles Button1.MouseDo wn
> > Debug.WriteLine ("Button1_Mouse Down")
> > f = New formPopup()
> >
> > f.Size = New Size(80, 80)
> > f.BackColor = Color.Yellow
> > f.Show()
> >
> > '-- You NEED to set this to true!
> > Button1.Capture = True
> >
> > End Sub
> >
> >
> >
> > Private Sub Button1_MouseUp (ByVal sender As Object, ByVal e As
> > System.Windows. Forms.MouseEven tArgs) _
> > Handles Button1.MouseUp ' ----------- f.MouseUp

<--------

> Get
> > rid of this. Why is this here?
> >
> >
> > Debug.WriteLine ("Button1_Mouse Up")
> >
> > '-- Create a rect of the button
> > Dim rect As New Rectangle(0, 0, Button1.Width, Button1.Height)
> >
> > '-- If mouse point isn't in the rect close it
> > If Not rect.Contains(e .X, e.Y) Then
> > f.Close()
> > f.Hide()
> > f = Nothing
> > End If
> >
> > '-- Release Button capture
> > Button1.Capture = False
> >
> > End Sub
> >
> >
> >
> >
> >
> >
> >
> > "Colin McGuire" <co***********@ lycos.co.uk> wrote in message
> > news:ab******** *************** ***@posting.goo gle.com...
> > > Hi - this was posted last weekend and unfortunately not

resolved. The

> > > solutions that were posted almost worked but after another 5

days of > > > working on the code everynight, I am not further ahead.
> > > If you do have any ideas I would really like to hear them.
> > > Thanks
> > > Colin
> > >
> > > - 0 - 0 - 0 -
> > >
> > > I want a glorified popup/context menu on a button that shows

only when

> > > the mouse button is pressed over the button, and disappears when the > > > mouse button is released anywhere. Here's a full description.
> > >
> > > When the mouse button is depressed over Button1, I want the
> > > popup form (an instance of formPopup) to show. If the mouse
> > > button is released anywhere, the cursor could be anywhere,
> > > even over another application or on the desktop or somewhere

else, > > > I want the popup form to be hidden. The code I have means that
> > > if I move the cursor away from the display form, then release
> > > the mouse button, the form isn't always hidden. I also want
> > > to trap various events in the instance of formPopup, such as
> > > mouseenter etc for controls on that form. By adding
> > > Button1.Capture =True, no events in the instance of formPopup
> > > can be caught.
> > >
> > > Colin
> > >
> > >
> > > Here is the full code I already have.
> > >
> > > 1. Launch Visual Studio .Net 2003 and create a new winforms
> > > application.
> > > 2. Use the VS IDE toolbar to put a new button, Button1, on the

form. > > > 3. Paste in the following code
> > >
> > > Public Class Form1
> > > Inherits System.Windows. Forms.Form
> > >
> > > //and include the Windows Form Designer Code in here
> > >
> > > Public Class formPopup
> > > Inherits System.Windows. Forms.Form
> > >
> > > Private Sub formPopup_Load( ByVal sender As Object, _
> > > ByVal e As System.EventArg s) Handles MyBase.Load
> > > Dim b1 As New Button
> > > b1.Size = New Size(15, 15)
> > > b1.Location = New Point(10, 10)
> > > b1.BackColor = Color.Gray
> > > Me.Controls.Add (b1)
> > > AddHandler b1.MouseEnter, AddressOf subMEnter
> > > AddHandler b1.MouseLeave, AddressOf subMLeave
> > > AddHandler b1.MouseUp, AddressOf subMUp
> > >
> > > Dim b2 As New Button
> > > b2.Size = New Size(15, 15)
> > > b2.Location = New Point(30, 10)
> > > b2.BackColor = Color.Gray
> > > Me.Controls.Add (b2)
> > > AddHandler b2.MouseEnter, AddressOf subMEnter
> > > AddHandler b2.MouseLeave, AddressOf subMLeave
> > > End Sub
> > >
> > > Private Sub subMUp(ByVal sender As Object, _
> > > ByVal e As MouseEventArgs)
> > > Debug.WriteLine ("MouseUp")
> > > End Sub
> > >
> > > Private Sub subMLeave(ByVal sender As Object, _
> > > ByVal e As EventArgs)
> > > Dim b As Button = CType(sender, Button)
> > > b.BackColor = Color.Gray
> > > End Sub
> > >
> > > Private Sub subMEnter(ByVal sender As Object, _
> > > ByVal e As EventArgs)
> > > Dim b As Button = CType(sender, Button)
> > > b.BackColor = Color.Blue
> > > End Sub
> > > End Class
> > >
> > >
> > > Dim WithEvents f As formPopup
> > >
> > > Private Sub Button1_MouseDo wn(ByVal sender As Object, _
> > > ByVal e As System.Windows. Forms.MouseEven tArgs) _
> > > Handles Button1.MouseDo wn
> > > Debug.WriteLine ("Button1_Mouse Down")
> > > f = New formPopup
> > >
> > > f.Size = New Size(80, 80)
> > > f.BackColor = Color.Yellow
> > >
> > > f.Show()
> > > 'Button1.Captur e = True 'Have to comment this or else I cannot
> > > 'trap mouse trap events for controls

on the

> > > form
> > > End Sub
> > >
> > > Private Sub Button1_MouseUp (ByVal sender As Object, _
> > > ByVal e As System.Windows. Forms.MouseEven tArgs) _
> > > Handles Button1.MouseUp , f.MouseUp
> > > Debug.WriteLine ("Button1_Mouse Up")
> > > f.Close()
> > > f.Hide()
> > > f = Nothing
> > > End Sub
> > > End Class
> >
> >
>

[Brian]

OK, I think i got it (maybe).

Dim WithEvents f As formPopup

Private Sub Button1_MouseDo wn(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles Button1.MouseDo wn
Debug.WriteLine ("Button1_Mouse Down")
Dim pt As Point
Dim pt2 As Point
f = New formPopup()

f.Size = New Size(80, 80)
f.BackColor = Color.Yellow
pt = Cursor.Position

f.StartPosition = FormStartPositi on.Manual
f.Capture = True
f.Location = pt
f.Show()

Cursor.Position = f.PointToScreen (New Point(0, 0))

End Sub

Private Sub Button1_MouseUp (ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles Button1.MouseUp
Debug.WriteLine ("Button1 mouseup")
If Not f Is Nothing Then
f.Hide()
f.Close()
f = Nothing
End If

End Sub
End Class

Public Class formPopup
Inherits System.Windows. Forms.Form

Dim rect As Rectangle
Dim rect1 As Rectangle

Private Sub formPopup_Load( ByVal sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim b1 As New Button()
b1.Size = New Size(15, 15)
b1.Location = New Point(10, 10)
b1.BackColor = Color.Gray
Me.Controls.Add (b1)
Me.FormBorderSt yle = FormBorderStyle .None

AddHandler Me.MouseUp, AddressOf fMouseUp
AddHandler b1.MouseEnter, AddressOf subMEnter
AddHandler b1.MouseLeave, AddressOf subMLeave
AddHandler b1.MouseUp, AddressOf subMUp
AddHandler Me.MouseMove, AddressOf fMouseMove

Dim b2 As New Button()
b2.Size = New Size(15, 15)
b2.Location = New Point(30, 10)
b2.BackColor = Color.Gray
Me.Controls.Add (b2)

AddHandler b2.MouseEnter, AddressOf subMEnter
AddHandler b2.MouseLeave, AddressOf subMLeave

rect = New Rectangle(b1.Le ft, b1.Top, b1.Width, b1.Height)
rect1 = New Rectangle(b2.Le ft, b2.Top, b2.Width, b2.Height)

End Sub

Private Sub fMouseMove(ByVa l sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles MyBase.MouseMov e

If rect.Contains(e .X, e.Y) OrElse rect1.Contains( e.X, e.Y) Then
If Not Me.Capture = False Then
Me.Capture = False
End If
ElseIf Me.Capture = False Then
Me.Capture = True
End If

End Sub

Private Sub fMouseUp(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles MyBase.MouseUp

Me.Capture = False
Me.Close()
End Sub

Private Sub subMUp(ByVal sender As Object, _
ByVal e As MouseEventArgs)
Debug.WriteLine ("MouseUp")
End Sub

Private Sub subMLeave(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Gray
End Sub

Private Sub subMEnter(ByVal sender As Object, _
ByVal e As EventArgs)
Dim b As Button = CType(sender, Button)
b.BackColor = Color.Blue

End Sub