Создание иконки: формат *.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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д