Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Become a VB.NET Expert! Join 340,144 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 3,812 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Position the cursor to the ContentAlignment Enum

Position's the cursor on the screen with the System.Drawing.ContentAlignment enumeration.

Submitted By: RodgerB

Actions:

Rating:

Views: 2,572

Language: VB.NET

Last Modified: December 6, 2007

Instructions:
1) Copy and paste the snippet below into a class.
2) Read how to call the snippet.

Snippet

''' <summary>
''' Sets the cursor's position relative to the screen's width and height.
''' </summary>
''' <param name="pos">The height according to the ContentAlignment enum.</param>
''' <remarks></remarks>
Public Sub cursorRelativeToScreen(ByRef pos As System.Drawing.ContentAlignment)
Select Case pos
Case ContentAlignment.BottomCenter
Windows.Forms.Cursor.Position = New Point( _
Screen.PrimaryScreen.Bounds.Width / 2, Screen.PrimaryScreen.Bounds.Height)
Case ContentAlignment.BottomLeft
Windows.Forms.Cursor.Position = New Point( _
0, Screen.PrimaryScreen.Bounds.Height)
Case ContentAlignment.BottomRight
Windows.Forms.Cursor.Position = New Point( _
Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
Case ContentAlignment.MiddleCenter
Windows.Forms.Cursor.Position = New Point( _
Screen.PrimaryScreen.Bounds.Width / 2, Screen.PrimaryScreen.Bounds.Height / 2)
Case ContentAlignment.MiddleLeft
Windows.Forms.Cursor.Position = New Point( _
0, Screen.PrimaryScreen.Bounds.Height / 2)
Case ContentAlignment.MiddleRight
Windows.Forms.Cursor.Position = New Point( _
Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height / 2)
Case ContentAlignment.TopCenter
Windows.Forms.Cursor.Position = New Point( _
Screen.PrimaryScreen.Bounds.Width / 2, 0)
Case ContentAlignment.TopLeft
Windows.Forms.Cursor.Position = New Point(0, 0)
Case ContentAlignment.TopRight
Windows.Forms.Cursor.Position = New Point( _
Screen.PrimaryScreen.Bounds.Width, 0)
End Select
End Sub
' How to call this subroutine:
' In this case you will be setting the mouse to be in the center of the screen.
cursorRelativeToScreen(ContentAlignment.MiddleCenter)

Copy & Paste

''' <summary>
''' Sets the cursor's position relative to the screen's width and height.
''' </summary>
''' <param name="pos">The height according to the ContentAlignment enum.</param>
''' <remarks></remarks>

Public Sub cursorRelativeToScreen(ByRef pos As System.Drawing.ContentAlignment)

Select Case pos
        Case ContentAlignment.BottomCenter
            Windows.Forms.Cursor.Position = New Point( _
            Screen.PrimaryScreen.Bounds.Width / 2, Screen.PrimaryScreen.Bounds.Height)
        Case ContentAlignment.BottomLeft
            Windows.Forms.Cursor.Position = New Point( _
            0, Screen.PrimaryScreen.Bounds.Height)
        Case ContentAlignment.BottomRight
            Windows.Forms.Cursor.Position = New Point( _
            Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        Case ContentAlignment.MiddleCenter
            Windows.Forms.Cursor.Position = New Point( _
            Screen.PrimaryScreen.Bounds.Width / 2, Screen.PrimaryScreen.Bounds.Height / 2)
        Case ContentAlignment.MiddleLeft
            Windows.Forms.Cursor.Position = New Point( _
            0, Screen.PrimaryScreen.Bounds.Height / 2)
        Case ContentAlignment.MiddleRight
            Windows.Forms.Cursor.Position = New Point( _
            Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height / 2)
        Case ContentAlignment.TopCenter
            Windows.Forms.Cursor.Position = New Point( _
            Screen.PrimaryScreen.Bounds.Width / 2, 0)
        Case ContentAlignment.TopLeft
            Windows.Forms.Cursor.Position = New Point(0, 0)
        Case ContentAlignment.TopRight
            Windows.Forms.Cursor.Position = New Point( _
            Screen.PrimaryScreen.Bounds.Width, 0)
    End Select

End Sub

' How to call this subroutine:
' In this case you will be setting the mouse to be in the center of the screen.
cursorRelativeToScreen(ContentAlignment.MiddleCenter)