Microsoft KB Archive/241591

= How To Change the Cursor in a VBCE/eVB Application =

Article ID: 241591

Article Last Modified on 8/19/2005

-

APPLIES TO


 * Microsoft Windows CE Toolkit for Visual Basic 6.0
 * Microsoft eMbedded Visual Basic 3.0

-



This article was previously published under Q241591



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.</ol>

Additional query words: vbce vbce6 wce

Keywords: kbhowto kbtoolkit KB241591

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.