タスクトレーに常駐、イベントでポップアップ表示するには？ (ID：111849)

名前

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

本文

魔界の仮面弁士殿＞おかげさまで、下記まで出来るようになりました。

１．Ｆｏｒｍを非表示で、タスクトレイにアイコン表示。
２．イベント時に、Ｆｏｒｍを表示。
３．アイコン右クリックでメニューの表示、選択。（境界線付）

以上です。

やはり、調べながら、考えて作るのが、よさそうですね。

さらに、進めたいのが、３項アイコンの右クリックポップアップメニューですが、
アクセスキー（＆Ｅ）等指定しても、メニュー表示後、キー操作が出来ません。
登録はメニューエディタで、（＆Ｅ）等指定しただけです。
ショートカットとかは指定していません。なぜ、キーが受けつかないのでしょうか？

また、右クリックでポップアップメニューを表示した時に、キャンセルしたい時、
他のアプリは、どこか適当なところにマウスを動かすと、メニューが消えるのが
ありますが、あれはどうするのでしょうか？（メニュー項目にキャンセル無し）
今のままだと、何か選択しないとメニューは消えません。
下記が右クリック時にメニューを表示する処理。消す（キャンセル）処理が
必要なのでしょうか？

Private Sub mTray1_MouseDown(ByVal Button As Integer)
    Select Case Button
        Case vbRightButton
            PopupMenu mnuMenu
    End Select
End Sub

更に、ＣＴｒａｙが関係しているのかわかりませんが、アプリのアイコンが、
にこちゃんマークになってしまいます。
各Ｆｏｒｍのアイコン設定や、プロジェクトのプロパティ「実行可能ファイルの作成」
での表示アイコンは、私が指定したアイコンになっているにも関わらず、
実行ファイルを作成すると、必ずにこちゃんマークになってしまいます。
関係していると思われる行は、下記しか思いあたりません。なぜなんでしょうか？

'表示するアイコン
Private mIcon(1) As StdPicture      ←上段／下段どちらか。
'Private mIcon(1) As IPictureDisp   ←      （どちらも駄目）

Private Sub Form_Load()
    'アイコンを取得

Set mIcon(0) = LoadPicture("任意アイコン１.ico")  ←ここは私指定のアイコン
    Set mIcon(1) = LoadPicture("任意アイコン２.ico")  ←ここは私指定のアイコン
−以下省略−

以上（以下）、３件、引き続き教えて下さい。（長文になりすみません。）
１．ポップアップメニューで、アクセスキー（＆Ｅ）等、キー操作が出来ない件。
２．ポップアップメニューをキャンセルする方法。
３．実行ファイルのアイコンが「にこちゃんマーク」になってしまうのを変更する方法。

よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る