DOCUMENT:Q265798  15-FEB-2002  [vbwin]
TITLE   :HOW TO: Change the Cursor in an eMbedded Visual Basic Applicatio
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER::3.0
OPER/SYS:
KEYWORDS:kbOSWinCEsearch kbGrpDSVB kbDSupport kbVBM300 kbAudDeveloper kbHOWTOmaster

======================================================================

-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft eMbedded Visual Basic, version 3.0 
-------------------------------------------------------------------------------

IN THIS TASK
------------

 - SUMMARY

    - Change Cursor in Visual Basic Application

SUMMARY
=======

This article illustrates how to use the SetCursor and LoadCursor API function
calls to change the cursor in an eMbedded Visual Basic 3.0 (eVB) application.
This approach is necessary because the Screen.MousePointer property in eVB works
only on the Pocket PC device. It does not work on the Handheld PC Professional
Edition or the Palm-size PC devices.

Change Cursor in Visual Basic Application
-----------------------------------------

1. Create a new Windows CE project in eMbedded Visual Basic. Form1 is created by
   default.

2. Place two Command buttons on Form1.

3. Paste the following code into Form1:

NOTE: This code works on the Windows CE devices with touch screens but it does
not work in the emulation environment.

   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. Run the application.

5. Click the Command buttons, and note that the cursor changes.

Additional query words:

======================================================================
Keywords          : kbOSWinCEsearch kbGrpDSVB kbDSupport kbVBM300 kbAudDeveloper kbHOWTOmaster 
Technology        : kbVBSearch kbAudDeveloper kbZNotKeyword2 kbVBeMbSearch kbVBeMb300
Version           : :3.0
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2002.