Конференция VBStreets

**...PaWeL...** » 10.02.2004 (Вт) 0:06

Как запихнуть ассоциируемую иконку файла в ListView?

т.е. например, есть файл text.doc и к нему в список вставляется иконка документа ворда

Как вытащить иконку есть много примеров а как запихнуть ее в listview я не нашел ни одного.

Vi » 10.02.2004 (Вт) 9:36

Поищи как зпихнуть ее(иконку) в ImageList.

**Sedge** » 10.02.2004 (Вт) 10:33

Как вытащить иконку есть много примеров а как запихнуть ее в listview я не нашел ни одного.

Кинь сюда пару ссылок, плз

**Rainbow** » 10.02.2004 (Вт) 12:41

Народ, вы чего??? А документацию-то кто читать будет?
У ListView есть 2 свойства - Icons и SmallIcons. Туда надо положить ImageList. В методе Add у ListItems последние параметры - это как раз индексы иконок в ImageList'ах, назначенных в Icons и SmallIcons соответсвенно.

Код: Выделить всё: ListView1.Icons = ImageList1 ListView1.SmallIcons = Imagelist2 ListView1.ListItems.Add , "Key", "Text", 2, 2

Подробнее можно посмотреть здесь: http://msdn.microsoft.com/library/defau ... ontrol.asp

**Sergey-13** » 10.02.2004 (Вт) 14:35

все точно!
А есть еще
ListView1.ColumnHeaderIcons=ImageList3
Книги созданы для чтения!!!!!!!!!!!

**...PaWeL...** » 10.02.2004 (Вт) 20:29

А всетаки как зaпихнуть иконку в ImageList.?

**Sergey-13** » 11.02.2004 (Ср) 11:15

Ну да ладно. С кажу как это сделать более подробнее.
Берешь книгу или выше описанный код, который тебе написал Rainbow, анализируешь все это. И пишаешь свою иконку теда - где ей место! Вот и все. Другого варианта я не вижу.

**GSerg** » 11.02.2004 (Ср) 11:21

Написала.
А вообще, иконка извлекается из конкретного файла при помощи ExtractIconEx, из ассоциированного - ExtractAssociatedIcon.

**Rainbow** » 11.02.2004 (Ср) 13:35

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

В Picturebox'е стоит autoredraw и autosize = true

**...PaWeL...** » 15.02.2004 (Вс) 1:20

А что делать есль файла нет на диске, а например надо получить иконку для файлов типа HTML ?

**Rainbow** » 16.02.2004 (Пн) 11:28

Создай временный файл с нужным тебе расширением и

GSerg писал(а):из ассоциированного - ExtractAssociatedIcon

**...PaWeL...** » 16.02.2004 (Пн) 20:56

я так и думал, но помойму это изврат

но всеравно спасибо

**Rainbow** » 17.02.2004 (Вт) 16:28

Ну не грусти так :wink:

Не такой уж это и изврат. И просто очень.

А так - конечно, есть эта инфа в реестре - для зарегистрированных расширений. Можно оттуда достать...
HKCR/.txt - (default) - там название, допустим, txtfile
HKCR/txtfile/defultIcon - там путь и номер иконки

Но только по мне это еще больший изврат

Конференция VBStreets

Как запихнуть иконку файла в ListView?

Как запихнуть иконку файла в ListView?

Кто сейчас на конференции