メッセージボックスで表示されるアイコンの格納場所は？ (ID:79856)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ＡＰＩ関数を使っての表示方法。 システムで使用されているアイコンは、ストックアイコンといい、 ＡＰＩ関数を使用して読み込むことができます。 システムに設定されているアイコンを読み込むことにより、 違和感が発生しないでしょう。 Private Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName 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 Const IDI_APPLICATION = 32512& Private Const IDI_ASTERISK = 32516& Private Const IDI_EXCLAMATION = 32515& Private Const IDI_HAND = 32513& Private Const IDI_QUESTION = 32514& Private Sub Form_Load() Dim hIcon As Long Picture1.AutoRedraw = True hIcon = LoadIcon(0, IDI_EXCLAMATION) Debug.Print DrawIcon(picture1.hdc, 0, 0, hIcon) End Sub