Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: beginner
Dec 1, 2003

MoveCursorToControl - Moving the cursor to the center of the input control

' Move the cursor to the center of the input control
' Example: MoveCursorToControl(Button1)

Sub MoveCursorToControl(ByVal target As Control)
    ' calc the x/y coords relative to the control
    Dim x As Integer = target.Width \ 2
    Dim y As Integer = target.Height \ 2
    ' set the new cursor position, in screen-relative coords
    Cursor.Position = target.PointToScreen(New Point(x, y))
End Sub
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date