Como ocultar el raton del todo

[Nichas]

wenas, a ver si alguien me ayuda en esto, que no consigo ocultar el raton del todo o mejor dixo nada de nada con el winsock

tengo este codigo:

Código [Seleccionar] Expandir



'este en el cliente

Private sub cmdHideCursor()
On Error Resume Next
    ws.SendData "CHide"
end sub

'y este en el server

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim dat As String
    ws.GetData dat, vbString
If dat = "CHide" Then
    Result = ShowCursor(False)
    ws.SendData "Cursor Hidden"
else
end if
end sub

acias

Saludos

[Lambda]

Segun MSDN

This function sets an internal display counter that determines whether the cursor should be displayed. The cursor is displayed only if the display count is greater than or equal to 0. If a mouse is installed, the initial display count is 0. If no mouse is installed, the display count is –1.

si le pones FALSE lo seguira mostrando

ponle -1 y prueba

[Nichas]

Segun MSDN

This function sets an internal display counter that determines whether the cursor should be displayed. The cursor is displayed only if the display count is greater than or equal to 0. If a mouse is installed, the initial display count is 0. If no mouse is installed, the display count is –1.

si le pones FALSE lo seguira mostrando

ponle -1 y prueba

gracias por responder  pero ya lo probé pero no va, y en el google no encuentro nada 

saludos

[Xerok1!]

Pues a mi si me lo oculta (aunque solo en la ventana del vb)...´
No sé a que será debido...

Saludos

[Nichas]

Pues a mi si me lo oculta (aunque solo en la ventana del vb)...´
No sé a que será debido...

Saludos

Si eso es lo k me pasa a mi solo en la ventana del vb y nada mas xD

aver si lo consigo 

saludos

[Xerok1!]

EDITO:
Pon el formulario maximizado atope transparente haber si te deja,y con un timer le das foco (aunque este invisible)
Supongo que te irá así
un saludo

[Nichas]

EDITO:
Pon el formulario maximizado atope transparente haber si te deja,y con un timer le das foco (aunque este invisible)
Supongo que te irá así
un saludo

no habia caido en eso  acias

saludos

[cassiani]

EDITO:
Pon el formulario maximizado atope transparente haber si te deja,y con un timer le das foco (aunque este invisible)
Supongo que te irá así
un saludo

Preferiblemente usa el api SetWindowPos, te evitaras el timer y te irá como deseas...

[Xerok1!]

Preferiblemente usa el api SetWindowPos, te evitaras el timer y te irá como deseas...

Cierto lo había pensado, esconderlo en una esquinita y fuera pero bueno no es lo que pedía y ya di una solucion ..
También se podría quitar el icono del cursor (remplazarlo) pero eso no te lo digo con exactitud que no lo he probado..

Un saludo!

[cobein]

Aca hay otra manera, un poco precaria pero funcional

Código [Seleccionar] Expandir


Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)

Private Sub Form_Load()
    Dim tr As RECT

    tr.Left = Screen.Width / 15
    tr.Top = Screen.Height / 15
    tr.Right = tr.Left + 1
    tr.Bottom = tr.Top + 1
    ClipCursor tr

End Sub

Private Sub Form_Unload(Cancel As Integer)
    ClipCursor ByVal 0&
End Sub