tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: MsgBoxのアイコン
投稿日: 2008/10/23(Thu) 00:25
投稿者Blue
LoadIcon APIでIDI_ERRORを指定すれば、アイコンハンドルが取れるので、
stdole.IPictureDispに変換するとか。

Option Explicit

Private Declare Function LoadIcon Lib "user32" Alias "LoadIconA" _
    (ByVal hInstance As Long, ByVal lpIconName As Long) As Long
Private Const IDI_ERROR As Long = &H7F01&
Private Const IDI_QUESTION As Long = &H7F02&
Private Const IDI_EXCLAMATION As Long = &H7F03&
Private Const IDI_INFORMATION As Long = &H7F04&

Private Sub Command1_Click()
    Me.Picture1.Picture = CreateIconPicture(LoadIcon(0&, IDI_INFORMATION))
End Sub

※CreateIconPictureは
http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200612/06120314.txt

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。