C# Signature:

[DllImport("user32.dll")]
static extern IntPtr LoadCursorFromFile(string lpFileName);

VB.Net Signature

    <DllImport("user32.dll")> _
    Private Shared Function LoadCursorFromFile(ByVal lpFileName As String) As IntPtr
    End Function

User-Defined Types:

None.

Notes:

If multiple cursor types are in the cursor file, this function appears to want to load the 32x32 first.

None.

Tips & Tricks:

Please add some!

Sample Code C#:

Sample Code:

    private void Surface_MouseEnter(object sender, EventArgs e)
    {//Assuming you have declared the function using the C# signature above, and have a control / form /etc with a MouseEnter handled by this function

        //Assumes that a file (in this case a pencil cursor - PencilCursor.cur) is in Application.StartupPath (in debug mode that's app folder/bin/debug
        Cursor myCursor = new Cursor(GetType(), "PencilCursor.cur");
        IntPtr colorCursorHandle = LoadCursorFromFile("PencilCursor.cur");
        myCursor.GetType().InvokeMember("handle",BindingFlags.Public | BindingFlags.NonPublic |BindingFlags.Instance | System.Reflection.BindingFlags.SetField,null,myCursor,new object [] { colorCursorHandle } );
        this.Cursor = myCursor;
    }

Alternative Managed API:

Do you know one? Please contribute it!

Sample Code VB.Net

Imports System.Runtime.InteropServices

Public Class Form1

    <DllImport("user32.dll")> _
    Private Shared Function DestroyCursor(ByVal hCursor As IntPtr) As Integer
    End Function

    <DllImport("user32.dll")> _
    Private Shared Function LoadCursorFromFile(ByVal lpFileName As String) As IntPtr
    End Function

    Dim mhAniCursor As IntPtr

    Private Sub Form_Closed(ByVal sender As System.Object, ByVal e As FormClosedEventArgs) Handles MyBase.FormClosed
    'Animierten  bzw. farbigen Cursor entladen
    Dim iResult As Integer = DestroyCursor(mhAniCursor)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    mhAniCursor = LoadCursorFromFile("c:\FarbCursor.cur")
    If Not mhAniCursor.Equals(IntPtr.Zero) Then
        Me.Cursor = New Cursor(mhAniCursor)
    End If
    End Sub

End Class

Alternative Managed API:

Do you know one? Please contribute it!

Please edit this page!

Do you have...

• helpful tips or sample code to share for using this API in managed code?
• corrections to the existing content?
• variations of the signature you want to share?
• additional languages you want to include?

Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing supporting types needed for this API (structures, delegates, and more).