0

Shell32 のアイコンを Access アプリケーションに埋め込む方法はありますか?

理想的には、それらを画像として (おそらく ImageList に) 保存したいのですが、アプリケーションで使用できる限り、それは問題ではありません。次のコードは私が望むものに近いようですが、VB と API の知識が限られているため、VBA に適応させることはできません。

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" _
(ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons 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 Declare Function DestroyIcon Lib "user32" _
(ByVal hIcon As Long) As Long

Private Sub Form_Load()
Dim mIcon As Long
Dim n As Integer, iCount As Long
Dim xPos As Long, yPos As Long

iCount = ExtractIconEx("C:\Windows\System32\Shell32.dll", -1, 0&, 0&, 1)
For n = 0 To iCount
    ExtractIconEx "C:\Windows\System32\Shell32.dll", n, mIcon, 0&, 1&
    DrawIcon Me.hwnd, 0, 0, mIcon
    DestroyIcon mIcon
    xPos = xPos + 32
    xPos = 0
    yPos = yPos + 32
Next n

End Sub
4

1 に答える 1

0

機能を使用する

ExtractAssociatedIcon

パラメーターとしてアイコン インデックスを渡します。

この投稿を参照してください。

http://www.bigresource.com/VB-Extract-Associated-Icon-to-ImageList-8vp7SQUKBe.html

于 2014-03-26T21:22:36.990 に答える