投稿日 | : 2005/12/14(Wed) 15:42 |
投稿者 | : ひろんた |
Eメール | : |
URL | : |
タイトル | : ListViewにエクスプローラの詳細表示のようにアイコンをだしたい |
こんにちは
ListViewにファイルや日付等を表示するプログラムを作成しています。
ファイル名の左にエクスプローラの詳細表示のように関連づけらたアイコンを表示したく
検索していました。サンプルソースなんてすぐに見つかるだろうと思って色々検索していたのですが
結局3日間見つからない状態です。
そこで質問しています。
Set List = ListView1.ListItems.Add
With List
.Text = s
.SubItems(1) = ByteConv(WFD(t).nFileSizeLow) ’サイズ
.SubItems(2) = UCase$(GetExt(s)) ’拡張子
.SubItems(3) = TimeConv(WFD(t).ftLastWriteTime)’日付
’アイコンの取り出し
hIcon = ExtractAssociatedIcon(App.hInstance, _
Dir1.path & "\" & s & vbNul
lChar, _
0)
DrawIcon PicIcon.hdc, 0, 0, hIcon
ImlIcons.ListImages.Add Key:=sExt, Picture:=PicIcon.Image
.SmallIcon = XXXX
XXXXにImageList1に登録した番号をいれればアイコン表示するのですが
上記のように関連づけられたアイコンを取り出してもアイコンが表示できません。
御教授お願いします。
Windows XP VB6 です。