 Autor
|
Tema: Como ocultar el raton del todo (Leído 2,722 veces)
|
Nichas
 Desconectado
Mensajes: 13
|
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:
'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
|
|
|
|
« Última modificación: 7 Junio 2008, 20:14 pm por Nichas »
|
En línea
|
|
|
|
|
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
|
|
|
|
|
En línea
|
|
|
|
Nichas
Desconectado
Mensajes: 13
|
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
|
|
|
|
|
En línea
|
|
|
|
Xerok1!
Desconectado
Mensajes: 228
|
Pues a mi si me lo oculta (aunque solo en la ventana del vb)...´
No sé a que será debido...
Saludos
|
|
|
|
|
En línea
|
[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]
|
|
|
Nichas
Desconectado
Mensajes: 13
|
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
|
|
|
|
|
En línea
|
|
|
|
Xerok1!
Desconectado
Mensajes: 228
|
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
|
|
|
|
« Última modificación: 7 Junio 2008, 21:05 pm por Xerok1! »
|
En línea
|
[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]
|
|
|
Nichas
Desconectado
Mensajes: 13
|
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
|
|
|
|
|
En línea
|
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
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...
|
|
|
|
|
En línea
|
|
|
|
Xerok1!
Desconectado
Mensajes: 228
|
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!
|
|
|
|
|
En línea
|
[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]
|
|
|
|
cobein
|
Aca hay otra manera, un poco precaria pero funcional 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
|
|
|
|
|
En línea
|
|
|
|
|
 |
