Как заменить изображение курсора иконкой из файла ресурсов - Visual Basic .NET

Формулировка задачи:

Сделать это из файла легко:
Cursor.Current = New Cursor("plus.ico")
Но тогда нужно таскать за exe-шником файлы с иконками (а их несколько десятков) . Хотелось бы иметь всё внутри самого exe-файла. В файл ресурсов проекта иконки загружаются как значки. Им даётся имя. После компиляции всё, что напихано в файл ресурсов оказывается внутри exe-шника. Это мне и нужно. Но как этими значками воспользоваться? Oдин из конструкторов класса Cursor по описанию должен подходить для такой задачи: Cursor(Type, String) - Инициализирует новый экземпляр класса Cursor из указанного ресурса, используя указанный тип ресурса. Но пример его использования из msdn ничего толком не объясняет.

Код к задаче: «Как заменить изображение курсора иконкой из файла ресурсов - Visual Basic .NET»

textual
    Dim newCursor As Cursor
    Private Sub TEST_Load(sender As Object, e As EventArgs) Handles Me.Load
        'Image1.png  32bpp BGRA
        Dim bmp As Bitmap = My.Resources.Image1
        newCursor = New Cursor(bmp.GetHicon)        
    End Sub
    Private Sub Panel1_MouseEnter(sender As Object, e As EventArgs) Handles Panel1.MouseEnter
        Me.Cursor = newCursor
    End Sub
    Private Sub Panel1_MouseLeave(sender As Object, e As EventArgs) Handles Panel1.MouseLeave
        Me.Cursor = Cursors.Default
    End Sub

10   голосов, оценка 3.700 из 5


СОХРАНИТЬ ССЫЛКУ