Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 22, 1997



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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.



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