 Autor
|
Tema: Ocultar ratón SOLO en el formulario (Leído 2,881 veces)
|
Snort
 Desconectado
Mensajes: 338
|
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?
|
|
|
|
|
En línea
|
|
|
|
DrakoX
Desconectado
Mensajes: 191
|
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
|
|
|
|
|
En línea
|
|
|
|
Snort
Desconectado
Mensajes: 338
|
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 |
|
|
|
|
En línea
|
|
|
|
DrakoX
Desconectado
Mensajes: 191
|
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 |
|
|
|
|
En línea
|
|
|
|
Snort
Desconectado
Mensajes: 338
|
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...  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 |
|
|
|
|
En línea
|
|
|
|
DrakoX
Desconectado
Mensajes: 191
|
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.cursalu2 y suerte |
|
|
|
|
En línea
|
|
|
|
Snort
Desconectado
Mensajes: 338
|
|
|
|
|
|
En línea
|
|
|
|
DrakoX
Desconectado
Mensajes: 191
|
jeje,
me alegro que te haya funcionado.
salu2 y suerte
|
|
|
|
|
En línea
|
|
|
|
|
 |
