掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
SHGetFileInfo で取得したアイコン画像をPictureプロパティへ関連付けるには？ (ID:90704)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になります。 さて早速質問なのですが、SHGetFileInfo で取得したファイルのアイコンを Picture1 に描画させた後に、 Picture2.Picture = Picture1.Picture のようなことをやりたいのですが、これを可能にするまでの手続きはどのようにすればよいのでしょうか？ ちなみに、SHGetFileInfo を使ってのアイコン取得は、下記のように行っています。 Dim lngTargetInfomation As Long Dim utdShellFileInfo As SHFILEINFOA Dim lngRC As Long Dim strFileName As string strFileName = "d:\test.txt" lngTargetInfomation = SHGFI_ICON Or SHGFI_SMALLICON lngRC = SHGetFileInfo(strFileName, _ 0, _ utdShellFileInfo, _ Len(utdShellFileInfo), _ lngTargetInfomation) With Picture1 .Cls lngRC = DrawIcon(.hdc, 0, 0, utdShellFileInfo.hIcon) End With
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.