Quiero saber si hay algun codigo que bloquee el mouse mas abajo hay uno pero blokea el mouse y el teclado yo solo quiero que blokee el mouse
como oculto la barra
(http://img158.imageshack.us/img158/2285/dibujorm7.jpg)
Pues blokear solo el mouse no se... para la barra asi:
' Módulo :
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Global Ventana As Long
Global Const Muestra = &H40
Global Const Oculta = &H80
' Form:
Private Sub Command1_Click() 'Oculta
Ventana = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Oculta)
End Sub
Private Sub Command2_Click() 'Visible
Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Muestra)
End Sub
Utiliza la api blockinput es fácil de utilizar.
;D Salu2
...
Cita de: WarGhost en 12 Diciembre 2006, 21:54 PM
Utiliza la api blockinput es fácil de utilizar.
;D Salu2
No funcionaria blockinput bloquea el mouse y el teclado y el solo pide el mouse
solo se me ocurre que uses la api setcursorpos y un timer de intervalo 1 y que su función sea con setcursorpos enviar el mouse a una determinada posición.
PD:acabo de hacer la prueba y si funciona ahorita estoy sin mouse xDD
salu2