Red de conocimiento informático - Problemas con los teléfonos móviles - Consejos de VB, cómo bloquear el mouse en la ventana actual y no permitir que el mouse salga de la ventana de operación actual...1. Cree un nuevo proyecto y cree el formulario FORM1 con predeterminado 2. Agregue un nuevo modelo 3. Pegue el siguiente código en el nuevo modelo Pegue el siguiente código en el nuevo modelo Opciones ExplicitDeclare Function ClipCursor Lib "user32 " (lpRect As Any) Siempre que Declare Function ClipCursorClear Lib "user32 " Alias ​​​​"ClipCursor " (ByVal lpRect Mientras) Mientras Declare Función ClientToScreen Lib "user32 " (ByVal hwnd Mientras, lpPoint Como PUNTO) Mientras Declare Función ClientToScreen Lib "user32 " (ByVal hwnd Mientras, lpPoint Como PUNTO) Mientras Declare Función ClientToScreen Lib "user32 " (ByVal hwnd Mientras, lpPoint Como PUNTO) Mientras Declarar Función ClientToScreen Lib "user32 " (ByVal hwnd Mientras, lpPoint Como PUNTO) Como LargolpPoint Como POINTAPI) Como Largo Escriba RECT Izquierda Mientras Largo Arriba Mientras Largo Derecha tan larga Abajo Como tipo de extremo largo Tipo POINTAPI X Tan largo Y Como tipo de extremo largo Public RetValue Tan largo Public ClipMode Como booleano Public Sub SetCursor(ClipObject As Object, Configuración como booleano) 'Se utiliza para fijar el cursor en la ventana gráfica y desactivarlo. el cursor de ventana predeterminado Dim CurrentPoint As POINTAPI Dim ClipRect As RECT Si Configuración = False Entonces ' Establece el estado del clip en normal RetValue = ClipCursorClear(0) Salir Sub End If ' Establece la posición actual con CurrentPoint .X = 0 .Y = 0 End Con ' Encuentra la posición en la pantalla (no en la ventana) RetValue = ClientToScreen(ClipObject.hwnd, CurrentPoint) ' Especifica el área de recorte Con ClipRect .Top = CurrentPoint.Y .Left = CurrentPoint.X .Right = .Left ClipObject.ScaleWidth .Bottom = .Top ClipObject.ScaleHeight End With ' Clip it RetValue = ClipCursor(ClipRect) End Sub 4. Agregue en el formulario (FORM1)