タイトル : Re^2: ショートカットフォルダのアイコン取得 投稿日 : 2009/01/17(Sat) 21:23 投稿者 : のぶ
オショウさん返信ありがとうございます。 説明が足りていませんでした。すいません。 今、エクスプローラを作成をつくっているのですが、Listviewにアイコンを表示したく作業 をしているところです。 フォルダとファイルに関連づいているアイコンを取得することができたのですが フォルダのショートカットに関連ずいているアイコンを取得することができなく 悩んでいます。 エクスプローラなので、ダイアログは表示させたくないのです。。。 fName = e.Node.FullPath & "\" & sName2.name & "\" 'fName = LinkName & "\" 上記1行目がショートカットのディレクトリ 2行目がリンク先のディレクトリになっています。 2行目はうまくできたのですが、1行目だと同様のエラーになってしまいます。 hImgSmall = SHGetFileInfo(fName, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON) Dim myIcon As System.Drawing.Icon myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon) ImageList1.Images.Add(sName2.name, myIcon) nIndex = nIndex + 1 item1.ImageKey = sName2.name ListView1.Items.Add(item1) うまく説明できなくてすいませんが、どうかご教授願いませんか? |