Ocultar ratón SOLO en el formulario

Iniciado por Snort, 21 Diciembre 2006, 17:03 PM

0 Miembros y 1 Visitante están viendo este tema.

Snort

Creo, qe había un tema como este por este foro, pero he buscao y no lo encuentro...
Aver, la historia es qe qiero ocultar el mouse de mi programa, pero solo en el programa. El codigo para ocultarlo en windows entero es
Private Sub Command1_Click()
    result = ShowCursor(False)
End Sub

Private Sub Command2_Click()
    result = ShowCursor(True)
End Sub

y en un modulo
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

he pensado en restar las coordenadas de la posicion del form respecto a la pantalla, y luego mostrarlo cuando se aleje de esas corrdenadas en las qe esta el form, pero el problema sería qe al cambiar la resolucion, se jode el invento, y estoi seguro qe hay un modo mucho mas facil de hacerlo. Alguien lo sabe?

DrakoX

es así de facil:

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
resultado = ShowCursor(False)
End Sub


esto: Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long no tiene xq estar en un modulo, puede estar perfectamente en el form


salu2 y suerte

Snort

  Gracias por el code, pero no me sirve, :-( precisamente lo necesito para el form_mousemove, el codigo qe tengo actualmente (sin ocultar el raton) es:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Pausa = False Then Shape.Move X - 495 / 2, Y - 495 / 2
End Sub

y luego ya con una variable boolean haciendo de interruptor (pausa) muevo o no muevo el shape, pero el problema de tu codigo es qe una vez muevas el raton dentro del form, este se oculta, pero si lo vuelves a sacar del form siguie oculto, y eso es lo qe qiero evitar, qiero qe al salir de la ventana se vuelva a ver el raton.
Graxias

DrakoX

acbo de volver a probar el code que he posteado,
y me funciona impecable,
pero creo q ya se xq no te funciona,
hace los siguiente:

1) poene el code en tu form
2) compila el exe
3) ejecuta el exe compilado y fijate si anda

estoy un 99% seguro de que así t va a andar  ::),
solo probalo y desp me decis

salu2

Snort

   Ei tio, gracias por la respuestas, pero no me va, ni compilado ni sin compilar, sin hacer el exe, me lo oculta tambien de la ventana activa del vb, por tanto si qe es logico lo qe dices de crear el exe y ejecutarlo, pero aun asi va a ratos, sale unos 5 o 6 segundos despues de estar moviendo el raton (no tengo ni timers ni nada) y al aparecer, igual, cuando te salen msgboxes, no los puedes aceptar porke no tienes cursor... :rolleyes: :rolleyes: :rolleyes:
   Lo qe he hecho es crear un cursor totalmente transparente y ponerselo al form, lo he hecho con el articons pro (bastante wapo el programa) pero al introducris la imagen... imagen no válida, la he creado tambien en ico, en gif, en otras resoluciones... no me funciona nada

DrakoX

q lastima que no te funcione,
ni que te hacepte el cursor,

pero a mi con ese code,
encuanto entro al form con el cursor,
éste desaparece,
almenos a mi me funicona,
que extraño

Lo del cursor,
es extraño que no te lo tome,
pero de todas formas, yo te hice uno totalmente transparente,
y que a mi almenos me andubo,
probalo y desp decime

Cursor:
http://rapidshare.com/files/8671831/Cursor1.cur

salu2 y suerte

Snort

Ostias tio...
ei muchiiisimas gracias, te lo as currao un puñao, ya me va todo de lujo
gracias  :-* :-* :-* :-* :-* :-* :-* ;) ;) ;)

DrakoX

jeje,
me alegro que te haya funcionado.

salu2 y suerte