１０８．実行モジュールのリソース中のアイコンのハンドルを取得する

＜　使用用途　＞
実行モジュールのリソース中のアイコンのハンドルを取得する

サンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・ストックアイコンを表示するサンプルです

　＜　説明　＞
ＡＰＩ関数のLoadIconを使用します
LoadIcon ＝＞実行モジュールのリソース中のアイコンのハンドルを取得
　　＜引数＞
　　　　　hInstance：インスタンスハンドル（ストックアイコンの場合は0）
　　　　　lpIconName：文字列と数値の場合がある　　　　　　　
　　＠戻り値＠
　　　　　 アイコンのハンドル

<　ＳＡＭＰＬＥ　＞
’ここではストックアイコンを表示する処理です

'標準モジュール
Public Declare Function LoadIcon Lib "USER32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As Long) As Long
Public Declare Function DrawIconEx Lib "USER32" (ByVal hDC&, ByVal xLeft&, ByVal yTop&, ByVal hIcon&, ByVal cxWidth&, ByVal cyWidth&, ByVal istepIfAniCur&, ByVal hbrFlickerFreeDraw&, ByVal diFlags&) As Long

Public Const DI_NORMAL = &H3

Public Const IDI_APPLICATION = 32512&'アプリケーションアイコン
Public Const IDI_HAND = 32513& '「×」アイコン
Public Const IDI_QUESTION = 32514& '「？」アイコン
Public Const IDI_EXCLAMATION = 32515& '「！」アイコン
Public Const IDI_ASTERISK = 32516& '「！」アイコン
Public Const IDI_WINLOGO = 32517& 'WINロゴアイコン

'ここからはフォームの処理です

Private Sub Command1_Click()
　 Dim nHandle(5) As Long
　Dim i As Long

　 For i = 0 To 5
　　　 nHandle(i) = LoadIcon(0, IDI_APPLICATION + i)
　　　DrawIconEx hDC, i * 32 + 30, 20, nHandle(i), 0, 0, 0, 0, DI_NORMAL
　 Next
End Sub