Cómo activar el manejo de mouse con Visual Basic

Id. de artículo: 110541 - Ver los productos a los que se aplica este artículo
Traducción automáticaAdvertencia: Artículo de Traducción Automática, vea la exención de responsabilidad.
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo se muestra cómo activar rastros del mouse (ratón) mediante la función de la API de Windows Escape(). Esto funciona en equipos que tienen controladores de vídeo admiten el rastro del mouse (ratón); no todos los controladores de vídeo pendientes. La función de Escape() devuelve un cero si la función no es compatible con el controlador de vídeo.
Volver al principio | Enviar comentarios

Más información

Paso a paso a una aplicación que activa el manejo de mouse

  1. Inicie Visual Basic o si ya se está ejecutando Visual Basic, elija Nuevo proyecto en el menú archivo (ALT, F, N). Se creará Form1 de manera predeterminada.
  2. Agregue un botón de comando (Command1) a Form1.
  3. Agregue el código siguiente a la sección General Declarations de Form1: 
       ' Enter the following Declare statement on one, single line:
   Declare Function Escape Lib "GDI" (ByVal hDC As Integer,
      ByVal nEscape As Integer, ByVal nCount As Integer, lpInData As Any,
      lpOutData As Any) As Integer

   Const MouseTrails = 39
   Const SizeOfWord = 2
  4. Agregue el código siguiente al evento Command1_Click de Form1: 
       Dim x As Integer

   x = 7  ' Set x to one of the following values:
          ' 1 to 7 : turns mouse trails on and shows 1 to 7 trailers
          '      0 : turns off mouse trails
          '     -1 : turns mouse trails on, reads info from WIN.INI
          '     -2 : disables mouse trails, doesn't update WIN.INI
          '     -3 : enables mouse trails, updates WIN.INI

   result% = Escape(form1.hDC, MouseTrails, SizeOfWord, x, 0&)
  5. Ejecute el programa. Haga clic en el botón Command1 para activar el rastro del mouse (ratón).
Para obtener más información acerca de las pistas de función y del mouse (ratón) de Escape() API de Windows, consulte archivo Ayuda SDK de la versión 3.1 de Windows que se incluye con la edición de Professional de Visual Basic.
Volver al principio | Enviar comentarios

Propiedades

Id. de artículo: 110541 - Última revisión: martes, 09 de diciembre de 2003 - Versión: 2.0
La información de este artículo se refiere a:
  • Microsoft Visual Basic 2.0 Standard Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 2.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
Palabras clave: 
kbmt KB110541 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 110541
(http://support.microsoft.com/kb/110541/en-us/ )
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.
Volver al principio | Enviar comentarios

Enviar comentarios

 
Volver al principioVolver al principio