ab.com コミュニティ

Bmpを表示するのは、これ。
SetMenuItemBitmaps

あるいは、ここのサンプルを参考に。
http://www1.harenet.ne.jp/cgi-bin/cgiwrap/unaap/chtml/chtml.cgi?key=iconmenu

/*
ユーザー追加部分のみを書きました。
ポップアップメニューに見立てるウインドウの名前:Pop
ウインドウ「Pop」には、スタティックテキスト一つとボタン一つを置いてください。
*/
Dim PopupMessage As String'←グローバル変数として宣言
Dim PopupTitle As String'これも
Dim PopupButton As String'こちらも

Sub MainWnd_CommandButton1_Click()
    PopupMessage="test"
    PopupTitle="Test"
    PopupButton="OK"
    Popup()
End Sub

Sub Popup()
    DialogBox(hMainWnd,"Pop")
End Sub

Sub Pop_Create(ByRef CreateStruct As CREATESTRUCT)
    SendTextMessage(hPop,PopupTitle)
    SendTextMessage(GetDlgItem(hPop,Static1),PopupMessage)
    SendTextMessage(GetDlgItem(hPop,CommandButton1),PopupButton)
End Sub

Sub Pop_CommandButton1_Click()
    EndDialog(hPop,-1)
End Sub

ポップアップメニューに見立てたダイアログボックスを作るのが一番手っ取り早いと思います。
適当に書いたコードの破片↓
[hide][code]
/*
ユーザー追加部分のみを書きました。
ポップアップメニューに見立てるウインドウの名前:Pop
ウインドウ「Pop」には、スタティックテキスト一つとボタン一つを置いてください。
*/
Dim PopupMessage As String'←グローバル変数として宣言
Dim PopupTitle As String'これも
Dim PopupButton As String'こちらも

Sub MainWnd_CommandButton1_Click()
PopupMessage="test"
PopupTitle="Test"
PopupButton="OK"
Popup()
End Sub

Sub Popup()
DialogBox(hMainWnd,"Pop")
End Sub

Sub Pop_Create(ByRef CreateStruct As CREATESTRUCT)
SendTextMessage(hPop,PopupTitle)
SendTextMessage(GetDlgItem(hPop,Static1),PopupMessage)
SendTextMessage(GetDlgItem(hPop,CommandButton1),PopupButton)
End Sub

Sub Pop_CommandButton1_Click()
EndDialog(hPop,-1)
End Sub

[/code][/hide]
今考えて書いたので動く保障ありませんが（笑）多分動きます。

VBなどで書かれたサンプルを移植するのがいいと思いますが、
それでも結構面倒です。
まずは、サンプルを検索してみてください。
それを自分で移植しつつ、判らないところを質問するとか。
少し見た目が悪くなる方法なら、Bmpを表示する方法もあります。
# 実は、私もやったことは、ないです。
理由は、割に合わないからです。

ＡＢでランチャーをつくってます。
ポップアップメニューにアイコンを追加したいのですが、どうしたらいいのでしょうか？
（ウィンドウズの「スタート」ボタンを押すと、
メニューにプログラム名、その横にアイコンが表示されますよね？）

少し調べてみたら、「オーナードロー」で自分で描くと載っていました。
が、どう描いたらいいのかわかりません。
どなたかお知恵を拝借ください。