メニューにアイコンを追加したい

メッセージ

くま次郎

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

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

ゲスト

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

konisi

ポップアップメニューに見立てたダイアログボックスを作るのが一番手っ取り早いと思います。
適当に書いたコードの破片↓

[ここをクリックすると内容が表示されます]

コード: 全て選択


/*
ユーザー追加部分のみを書きました。
ポップアップメニューに見立てるウインドウの名前: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

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

ゲスト

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

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