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: Visual Basic
Expertise: Intermediate
Aug 21, 1997

Set Cursor to Control by Default

Sometimes it is useful to set a cursor to determine control when a form is loading-after the form is done loading, the cursor stays on the control you have ordered:
 
Type pointapi
	x As Integer
	y As Integer
End Type
'Sets the mouse cursor position in 
'screen coordinates
Declare Sub SetCursorPos Lib "User" _
	(ByVal x As Integer, ByVal y As Integer)
'Converts client point to screen coordinates
Declare Sub ClientToScreen Lib "User" _
	(ByVal hWnd As Integer, lpPoint As pointapi)

Sub SetCursorToDefaultControl (Control As Control)
Dim Pnt As pointapi
Dim x As Integer
Dim y As Integer
Pnt.x = Pnt.y = 0
'Determine coordinates left top corner of Control
Call ClientToScreen(Control.hWnd, Pnt)
x = Pnt.x + Control.Width/ _
	(2 * (Scree.ActiveForm.Left + Control.Left)/Pnt.x)
y = Pnt.y + Control.Height/ _
	(2 * (Screen.ActiveForm.Top + Control.Top)/Pnt.y)
Call SetCursorPos(x, y)
End Sub
Aleksandr Dvigubskiy
 
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