hola gente como hago para que un label siga las posiciones de lmouse en vb6 , es asi?
mosemove x, y
o asi?
move x, y
porque cuando poingo el primer codigo me tira error y cuando pongo el segundo sooo se muve y se dirije a la esquina del form y no se mueve mas como si ese fuera el piunto x, y
y para poner un fondo en un form pero que es fondo se mueca al mover las ruedita del mouse??
alguien sabe ?
saludos y gracias
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Pos As POINTAPI
GetCursorPos Pos
Label1 = Pos.X & " - " & Pos.Y
End Sub
Asi detecta y muestra la posicion cada vez que se mueve
y para que un label siga las pociciones de mouse es decir que lo siga al mouse , y que al mover la ruedita del mouse se nueva el fondo del form
Label1.Top = x
Label1.Left = y
Es al reves.... ;) ;)
Label1.Top = y
Label1.Left = x
Y como seria para mover el kursor segun unas coordenadas que se le indiken???
Salu2
Para lo del label hice un code de una forma mas facil pero no es un label si no lo imprime en el form y sigue al cursor
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
PSet (X, Y )
Print "X="; X; ":Y="; Y
End Sub
Y para moverlo
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
SetCursorPos x,y
o puedes cambiar "x" y "y" por numeros