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

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

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

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

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

textual
Листинг программы
  1.     Dim newCursor As Cursor
  2.     Private Sub TEST_Load(sender As Object, e As EventArgs) Handles Me.Load
  3.         'Image1.png  32bpp BGRA
  4.         Dim bmp As Bitmap = My.Resources.Image1
  5.         newCursor = New Cursor(bmp.GetHicon)        
  6.     End Sub
  7.     Private Sub Panel1_MouseEnter(sender As Object, e As EventArgs) Handles Panel1.MouseEnter
  8.         Me.Cursor = newCursor
  9.     End Sub
  10.     Private Sub Panel1_MouseLeave(sender As Object, e As EventArgs) Handles Panel1.MouseLeave
  11.         Me.Cursor = Cursors.Default
  12.     End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы