CÓMO: Cambiar el cursor en una aplicación incrustada de Visual Basic

Seleccione idioma Seleccione idioma
Id. de artículo: 265798 - Ver los productos a los que se aplica este artículo
Este artículo se publicó anteriormente con el número E265798
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo se muestra cómo utilizar las llamadas a la función API SetCursor y LoadCursor para cambiar el cursor en una aplicación incrustada de Visual Basic 3.0 (eVB). Este enfoque es necesario porque la propiedad Screen.MousePointer de eVB sólo funciona en el dispositivo Pocket PC. No funciona en dispositivos Handheld PC Professional Edition o equipos Palm PC.

Cambiar el cursor en una aplicación de Visual Basic

  1. Crear un nuevo proyecto de Windows CE en eMbedded Visual Basic. Se creará Form1 de manera predeterminada.
  2. Coloque dos botones Command en Form1.
  3. Pegue el código siguiente en Form1: NOTA: este código funciona en dispositivos de Windows CE con pantalla táctil, pero no funciona en un entorno de emulación.
    Const IDC_WAIT = 32514
    
    Public Declare Function LoadCursor Lib "Coredll" _
        Alias "LoadCursorW" ( _
        ByVal hInstance As Long, _
        ByVal lpCursorName As Long) As Long
    
    Public Declare Function SetCursor Lib "Coredll" ( _
        ByVal hCursor As Long) As Long
    
    Function WaitCursor(bWait As Boolean) As Long
        Dim hCursor As Long
    
        'Obtain the handle to the cursor
        If bWait Then
            'Get handle to the wait cursor
            hCursor = LoadCursor(0, IDC_WAIT)
        Else
            'Restore default cursor
            hCursor = LoadCursor(0, 0)
        End If
    
        'Set the cursor based on the cursor handle
        WaitCursor = SetCursor(hCursor)
    
    End Function
    
    Private Sub Command1_Click()
        WaitCursor True
    End Sub
    
    Private Sub Command2_Click()
        WaitCursor False
    End Sub
    
    Private Sub Form_Load()
        Command1.Move 120, 120, 2535, 375
        Command2.Move 120, 600, 2535, 375
        Command1.Caption = "Hourglass"
        Command2.Caption = "Default"
    End Sub
  4. : este código funciona en dispositivos de Windows CE con pantalla táctil, pero no funciona en un entorno de emulación. Ejecute la aplicación.
  5. : este código funciona en dispositivos de Windows CE con pantalla táctil, pero no funciona en un entorno de emulación. Haga clic en los botones Command y observe que el cursor cambia.

Propiedades

Id. de artículo: 265798 - Última revisión: jueves, 19 de julio de 2001 - Versión: 1.0
La información de este artículo se refiere a:
  • Microsoft eMbedded Visual Basic 3.0
Palabras clave: 
kbgrpdsvb kbhowto kbhowtomaster kboswincesearch kbvbm300 KB265798
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.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com