home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
curs_man
/
cursman.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-09-12
|
4KB
|
88 lines
Form1
-Cursor Manipulations - (c)1992 Pierre Fillion
Form1,
Label1
Label2
Label3
Click in box to set a position
Command2
&Go to position
Command1
E&xit
Command3
&Hide cursor
Command4
&Show cursor
Command5
&Clip Cursor
Command6
&UnClip Cursor
Command1_Click
Picture1_Click
GetCursorPos
Picture2_ClickS
Picture4_Click
Picture3_Click3
Command2_Click
SetCursorPos
Label3_ClickT
Form1%
Label2
Captionm
Command3_Click
ShowCursorn
State
C_Hide
Command4_Click
C_ShowI
Label1
Label3
C_State
C_HideThen7
Command6_Click
Screen
Height
Width
ClipCursor
lpRect
ClipWin
Right
Bottomh
Command5_Click
convert
twips
Form_Click
Label1_Click
Label2_Click
Command1_Click
Exit the program
Picture1_Click
Picture2_Click
Picture4_Click
Picture3_Click
Command2_Click
Call API function to set cursor position on the screen
defined in tPos.X and tPos.Y in Sub Label3_Click ()e
Label3_Click
Store the current position of the cursor on mouse click in Label3
Command3_Click
Verify if the cursor is already hidden (to prevent stacking)
If not hide it!u
Press Alt+S to show cursor
Command4_Click
Verify if the cursor is already showed (to prevent stacking)
If not show it!u
Click in box to set a position
Command6_Click
Clip Positions defined on screen resolution
Divided by 15 to convert twips in pixels for the API calln
Click in box to set a position
Clip= T:
Call API to clip cursor in positions
Command5_Click
Clip Positions defined on Form1 positionsf
Divided by 15 to convert twips in pixels for the API calln
Click in box to set a position
Clip= T:
Call API to clip cursor in positions