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

Este artículo se publicó anteriormente con el número E265798
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
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 = 32514Public Declare Function LoadCursor Lib "Coredll" _    Alias "LoadCursorW" ( _    ByVal hInstance As Long, _    ByVal lpCursorName As Long) As LongPublic Declare Function SetCursor Lib "Coredll" ( _    ByVal hCursor As Long) As LongFunction 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 FunctionPrivate Sub Command1_Click()    WaitCursor TrueEnd SubPrivate Sub Command2_Click()    WaitCursor FalseEnd SubPrivate 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: 01/10/2015 07:32:38 - Revisión: 1.0

Microsoft eMbedded Visual Basic 3.0

  • kbnosurvey kbarchive kbgrpdsvb kbhowto kbhowtomaster kboswincesearch kbvbm300 KB265798
Comentarios