Macroers prog need help!

[anonim stray]

HEy guys!
PLz how u make so that when u click mouse down on a command button a cursor is shown on all the screen? And how do u detect mouse up to hide cursot and save location plz? i tried using invisible maximized form but did not work =/
Tyvm for your help =)

 

[anonim stray]

*Mouse icon i meant sorry (like to get pixel of current location)

 

Uhhh, okay well for the cursor mousedown thing, just put Form1.Cursor in a Command1_MouseDown event. Then, in a Command1_MouseUp event, just change it back to the default one.

 

[anonim stray]

Well tnx but i am not that noob..
When u remove cursor from form it stays normal cursos :s

 

[Covey]

uhhh, i dont even understand what your asking.

 

[skate4lifee]

use the 'MouseHover' and 'MouseLeave' properties for the button so for example lets use 2 pictures. lets name one .cur 'rollover' and the other one 'normal' so for the buttons 'mousehover' property you could say

button1.cursor = my.resources.rollover

for the buttons leave property you can say

button1.cursor = my.resources.normal

it took a little time to understand what you were saying so i don't think i answered all your questions so if i didn't try rephrasing your unanswered question(s) and i will be happy to answer them as best i can.

 

[Visual Basic Matt]

No idea.... What you are talking about....

 

[Visual Basic Matt]

Anyone????

 

[Darthatron]

Ok... I think this is what you want...

Make 2 TextBox's - Text1 and Text2
Make 1 CommandButton - Command1
Make 1 Module - Module1

In Module1 put the following code.

Public Type PointApi
X As Long
Y As Long
End Type
Declare Function GetCursorPos Lib "user32.dll" (lpPoint As PointApi) As Long

In General Declarations put this code.

Dim PosXY As PointApi

Then paste this code into the Command1_MouseDown Property.

Command1.MousePointer = 2

Then in the Command1_MouseUp Property, paste this.

Command1.MousePointer = 0
GetCursorPos PosXY
Text1.Text = PosXY.X 'Gets the X Position of the mouse and saves it into Text1
Text2.Text = PosXY.Y 'Gets the Y Position of the mouse and saves it into Text2

Ok... That saves the X and Y positions into the given TextBox's, I think thats all you wanted... Try speaking more clearly next time, then I'm sure someone else may be able to help you out.

 

[Rdogg999]

no idea soz