How To Change the Cursor in a VBCE/eVB Application (241591)

SUMMARY

This article illustrates how to use the SetCursor and LoadCursor API calls to change the cursor in a Windows CE Toolkit for Visual Basic(VBCE) application. This approach is necessary because the Screen object in VBCE does not have a MousePointer property. Please note that this code works only on the Windows CE devices with a touch screen and not in the emulation environment.

MORE INFORMATION

Step by Step Example

Start a new Windows CE project in Visual Basic.
Select default device as the target in the properties dialog.
Place two command buttons on Form1.

Paste the following code into Form1:

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

    '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.Caption = "Hourglass"
    Command2.Caption = "Default"
End Sub

Run the application.
Click the command buttons and notice that the cursor changes.