如何在vb.net中使用自定义cursor

Question

i have cursor.cur in my.resources.cursor

but it doesn't work

then i tried icon it does work but when cursor is above buttons it needs to take alot above to click it

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim mycursor As Icon = My.Resources.normal ' normal is my curosor icon
        Me.Cursor = New Cursor(mycursor.Handle)
    End Sub

anybody can help me with working code i would also love if anybody can do this same by invoking win32

Answer 1

Note you said that My.Resources.cursor is the Class.

Since it's a cursor file and not an icon file, try this:

Imports System

Private Sub Form1_Load(ByVal sender As Object, ByVal e as EventArgs) Handles MyBase.Load
    Dim myCursor As New Cursor(New IO.MemoryStream(My.Resources.cursor.cursor)) 'Exception here indicates a 32bpp cursor.
End Sub

This, however, doesn't work with 32 bit-per-pixel cursors. I recommend 24bpp.

That also makes your cursor black and white.

Answer 2

Public Class ResxCursor
    Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" ( _
 ByVal lpFileName As String) As IntPtr
    Protected Shared ExtractDIR As String = IO.Path.GetFullPath(".")
    Protected Shared _Cursor As Byte()
    Public Shared Widening Operator CType(ByVal initialData As ResxCursour) As Cursor
        Dim ExtractPath As String = ExtractDIR + _Cursor.GetHashCode.ToString 
        IO.File.WriteAllBytes(ExtractPath, _Cursor)
        Dim CL As IntPtr = LoadCursorFromFile(ExtractPath)
        Dim C As New Cursor(CL)
        IO.File.Delete(ExtractPath)
        Return C
    End Operator
 
 
    Sub New(Cursor As Byte())
        _Cursor = Cursor
End Sub
End Class

---

Usage:

Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    Me.Button1.Cursor = New ResxCursor(My.Resources.MainFormResource.aero_pen)
End Sub

---

Reference Link