How to select a region on a form

[Dino M. Buljubasic]

I am trying to build a daily calendar similar to Microsoft Outlook where a
user can select hours of a day using mouse. I have a form that holds a
panel which contains user controls each representing an hour of the day (24
hours = 24 user controls).

How can I mouse-down, drag, mouse-up select a region (say from 9:00am to
1:00pm)?

I was trying to use mouse down/mouse up events and return the tag property
of the user controls on down / up but even though I drag with the mouse over
several controls, both of these events return tag property of the user
control that received mouse down event.

Any help will be greatfully appreciated
Dino

--
-------------------------------------------------------------------------
FIGHT BACK AGAINST SPAM!
Download Spam Inspector, the Award Winning Anti-Spam Filter
http://mail.giantcompany.com

[_Andy_]

On Thu, 27 Nov 2003 16:35:18 GMT, "Dino M. Buljubasic"
<di************ *@rivusglobal.c om> wrote:

I am trying to build a daily calendar similar to Microsoft Outlook where a
user can select hours of a day using mouse. I have a form that holds a
panel which contains user controls each representing an hour of the day (24
hours = 24 user controls).

How can I mouse-down, drag, mouse-up select a region (say from 9:00am to
1:00pm)?

I was trying to use mouse down/mouse up events and return the tag property
of the user controls on down / up but even though I drag with the mouse over
several controls, both of these events return tag property of the user
control that received mouse down event.

Any help will be greatfully appreciated
Dino

I had a similar problem. This is how I solved it:
1) Catch MouseDown, MouseMove and MouseUp in the user control.
2) Implement a static function that finds the user control located at
a particular point.

e.g.
Private Shared GetControlAt(mo usePoint As Point) _
As MyUserContol

3) Implement a class that contains the rectangle being selected (top
-left and bottom-right points - initial mouse down and current mouse
position).

This enables you to redirect MouseMove events (which will be initially
received by the same control you did the mouse down on) to the
appropriate control, if needs be. Therein, you can test to see if it
is in the selected region.
So, in each of the mouse events, the first check should be to see that
the mouse pointer is in the current control. If it is not, redirect
the event to the proper control. If it is, do your selection test
and/or selection size adjustment.

i.e.
...MouseMove...
MyUserControl ctrl = GetControlAt( mouseLocation )
If ctrl Is Me Then
' Do the selection, or whatever
ElseIf Not ctrl Is Nothing Then
' Redirect this to the proper control
ctrl_MouseMove. ..
End If
hth

Andy

[Dino M. Buljubasic]

Hi Andy,

thanks for reading this post and for your reply. The only thing I don't
understand is how to redirect mouse move event to another control. Can you
explain me that?

Thank you,
Dino

--
-------------------------------------------------------------------------
FIGHT BACK AGAINST SPAM!
Download Spam Inspector, the Award Winning Anti-Spam Filter
http://mail.giantcompany.com
"_Andy_" <wi******@nospa mthanks.gov> wrote in message
news:ch******** *************** *********@4ax.c om...

On Thu, 27 Nov 2003 16:35:18 GMT, "Dino M. Buljubasic"
<di************ *@rivusglobal.c om> wrote:

I am trying to build a daily calendar similar to Microsoft Outlook where auser can select hours of a day using mouse. I have a form that holds a
panel which contains user controls each representing an hour of the day (24hours = 24 user controls).

How can I mouse-down, drag, mouse-up select a region (say from 9:00am to
1:00pm)?

I was trying to use mouse down/mouse up events and return the tag propertyof the user controls on down / up but even though I drag with the mouse overseveral controls, both of these events return tag property of the user
control that received mouse down event.

Any help will be greatfully appreciated
Dino

I had a similar problem. This is how I solved it:
1) Catch MouseDown, MouseMove and MouseUp in the user control.
2) Implement a static function that finds the user control located at
a particular point.

e.g.
Private Shared GetControlAt(mo usePoint As Point) _
As MyUserContol

3) Implement a class that contains the rectangle being selected (top
-left and bottom-right points - initial mouse down and current mouse
position).

This enables you to redirect MouseMove events (which will be initially
received by the same control you did the mouse down on) to the
appropriate control, if needs be. Therein, you can test to see if it
is in the selected region.
So, in each of the mouse events, the first check should be to see that
the mouse pointer is in the current control. If it is not, redirect
the event to the proper control. If it is, do your selection test
and/or selection size adjustment.

i.e.
...MouseMove...
MyUserControl ctrl = GetControlAt( mouseLocation )
If ctrl Is Me Then
' Do the selection, or whatever
ElseIf Not ctrl Is Nothing Then
' Redirect this to the proper control
ctrl_MouseMove. ..
End If
hth

Andy

[_Andy_]

On Thu, 27 Nov 2003 18:36:49 GMT, "Dino M. Buljubasic"
<di************ *@rivusglobal.c om> wrote:

Hi Andy,

thanks for reading this post and for your reply. The only thing I don't
understand is how to redirect mouse move event to another control. Can you
explain me that?

Thank you,
Dino

By "redirectio n" I simply meant the act of calling the handler of
another instance of the class (instead of this one itself). It's taken
care of by the "If ctrl Is Me Then" line. The logic is this:

If the mouse pointer is within the rectangle of this control
Handle the event
Else
Find the control that is under the pointer
Call the handler of that control instead
End If

What I did fail to mention is the use of "Form.GetChildA tPoint()" to
determine which control the mouse is over.

hth

[Dino M. Buljubasic]

thanks Andy :)

--
-------------------------------------------------------------------------
FIGHT BACK AGAINST SPAM!
Download Spam Inspector, the Award Winning Anti-Spam Filter
http://mail.giantcompany.com
"_Andy_" <wi******@nospa mthanks.gov> wrote in message
news:0p******** *************** *********@4ax.c om...

On Thu, 27 Nov 2003 18:36:49 GMT, "Dino M. Buljubasic"
<di************ *@rivusglobal.c om> wrote:

Hi Andy,

thanks for reading this post and for your reply. The only thing I don't
understand is how to redirect mouse move event to another control. Can youexplain me that?

Thank you,
Dino

By "redirectio n" I simply meant the act of calling the handler of
another instance of the class (instead of this one itself). It's taken
care of by the "If ctrl Is Me Then" line. The logic is this:

If the mouse pointer is within the rectangle of this control
Handle the event
Else
Find the control that is under the pointer
Call the handler of that control instead
End If

What I did fail to mention is the use of "Form.GetChildA tPoint()" to
determine which control the mouse is over.

hth

[Dino M. Buljubasic]

Hi Andy,

sorry for annoying you :) but I have a problem that I can not solve and was
hoping you could help me with that.

I am trying to get coordinates of mouse_down/mouse_up event BUT relevant to
the form or the parent of a control, not to the control where mouse click
has occured. That means, even if I click a control on the form, I want to
get the coordinates of the form of the click event, not coordinates of the
control that was clicked on.

My user controls are on a panel pnToday. Each user control has two text
boxes inside representing whole and half hour (e.g. 11:00 am and 11:30am)
Currently I am doint it as:

' add event handler to all dynamically loaded user controls
AddHandler ctype(MyUserCon trol.TextBox1, TextBox).MouseD own, AddressOf
pnToday_MouseDo wn
AddHandler ctype(MyUserCon trol.TextBox2, TextBox).MouseD own, AddressOf
pnToday_MouseDo wn
AddHandler ctype(MyUserCon trol.TextBox1, TextBox).MouseU p, AddressOf
pnToday_MouseUp
AddHandler ctype(MyUserCon trol.TextBox2, TextBox).MouseU p, AddressOf
pnToday_MouseUp

' then in my mouse down / up events for the panel (parent of user controls)
Private Sub pnToday_MouseDo wn(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles pnToday.MouseDo wn
ptEntryPoint = New Point(e.X, e.Y)
EntryTextBox = Me.GetChildAtPo int(ptEntryPoin t)
'MsgBox(EntryTe xtBox.GetType.T oString) ' this should retrun type of
control clicked but it returns type of my toolbar
End Sub

Private Sub pnToday_MouseUp (ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles pnToday.MouseUp
ptExitPoint = New Point(e.X, e.Y)

ExitTextBox = Me.GetChildAtPo int(ptExitPoint )

MsgBox("Entry at (" & ptEntryPoint.X & " ; " & ptEntryPoint.Y & ")"
& vbCrLf & _
"Exit at (" & ptExitPoint.X & " ; " & ptExitPoint.Y & ")")

MsgBox("Entry Hour: " & CType(EntryText Box, TextBox).Tag & " " &
" Exit Hour: " & CType(ExitTextB ox, TextBox).Tag) ' this crashes because of
invalid type conversion from toolbar to textbox, because the point returned
is not relevant to parent container of user controls.
End Sub

Regards,
Dino

--
-------------------------------------------------------------------------
FIGHT BACK AGAINST SPAM!
Download Spam Inspector, the Award Winning Anti-Spam Filter
http://mail.giantcompany.com
"_Andy_" <wi******@nospa mthanks.gov> wrote in message
news:0p******** *************** *********@4ax.c om...

On Thu, 27 Nov 2003 18:36:49 GMT, "Dino M. Buljubasic"
<di************ *@rivusglobal.c om> wrote:

Hi Andy,

thanks for reading this post and for your reply. The only thing I don't
understand is how to redirect mouse move event to another control. Can youexplain me that?

Thank you,
Dino

By "redirectio n" I simply meant the act of calling the handler of
another instance of the class (instead of this one itself). It's taken
care of by the "If ctrl Is Me Then" line. The logic is this:

If the mouse pointer is within the rectangle of this control
Handle the event
Else
Find the control that is under the pointer
Call the handler of that control instead
End If

What I did fail to mention is the use of "Form.GetChildA tPoint()" to
determine which control the mouse is over.

hth