Как запихнуть ассоциируемую иконку файла в ListView?
т.е. например, есть файл text.doc и к нему в список вставляется иконка документа ворда
Как вытащить иконку есть много примеров а как запихнуть ее в listview я не нашел ни одного.
Как вытащить иконку есть много примеров а как запихнуть ее в listview я не нашел ни одного.
ListView1.Icons = ImageList1
ListView1.SmallIcons = Imagelist2
ListView1.ListItems.Add , "Key", "Text", 2, 2
GSerg писал(а):Написала.
...PaWeL... писал(а):А все-таки как зaпихнуть иконку в ImageList?
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Sub Form_Load()
Dim mIcon As Long
mIcon = ExtractIcon(Me.hWnd, "C:\WINNT\Notepad.exe", 0)
DrawIcon Picture1.hdc, 0, 0, mIcon
Picture1.Picture = Picture1.Image
ImageList1.ListImages.Add , , Picture1.Picture
ListView1.Icons = ImageList1
ListView1.ListItems.Add , "Key", "Text", 1
End Sub
GSerg писал(а):из ассоциированного - ExtractAssociatedIcon
Сейчас этот форум просматривают: AhrefsBot и гости: 13