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

Узнай цену своей работы

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

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

Решение задачи: «Как заменить изображение курсора иконкой из файла ресурсов»

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.7 из 5
Похожие ответы