Создание иконки: формат *.ico, *.cur ... - VB
Формулировка задачи:
У меня есть картинки в *.bmp и *.jpg форматах. Как эти картинки можно перегнать в форматы *.ico или *.cur для иконки приложения?
Решение задачи: «Создание иконки: формат *.ico, *.cur ...»
textual
Листинг программы
Private Sub Form_Load() Dim p As IPictureDisp, li As ListImage Set p = LoadPicture('c: mpfile.bmp') If Not p Is Nothing Then Set li = ImageList1.ListImages.Add(, , p) Call SavePicture(li.ExtractIcon, 'c: mpfile.ico') End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д