![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
プログラム内からドロップダウンメニューを追加して、追加されたメニューをクリックすると処理を実行するプログラムを作っています。
そこで質問なのですが
ToolStripMenuItem.DropDownItems.Add でメニューをいくつか追加した後
Private Sub ToolStripMenuItem_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStripMenuItem.DropDownItemClicked
Dim a As String
a = e.ClickedItem.ToString
End Sub
で、ドロップダウンメニューに追加した項目名を取得できるのはわかったのですが、クリックされたメニューが上から何番目かを示すINDEXに相当する値を取得するにはどうしたらよいのでしょうか。調べてみたのですが、見つかりませんでした。
一つ一つ名前を照合していくしかないのでしょうか?
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
Indexに相当する項目は無いようです
イベントの Sender引数は ToolSTripMenuItemですからこれのDoropDownItemsを自前で検索といった手法でしょう
Dim ddItems As ToolStripItemCollection = CType(sender, ToolStripMenuItem).DropDownItems
dim n as integer, s as String
s = e.ClickedItem.ToString
for n = 0 to ddItems.Count -1
if s = ddItems(n).Text then
exit for
end if
next
if n<>ddItems.Count then
MsgBox( "Index=" & n )
end if
といった具合でしょう …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プログラムの規模を表す単位「k...
-
VB6.0で #の意味
-
ライン数とステップ数の違いに...
-
ステップ数について
-
ステップ数??
-
「ByRef引数の型が一致しません...
-
乱数をC言語で
-
VBAで「% & $」を使う意味
-
海外リードメールの「NPA」とは?
-
STEPについて
-
ubuntuで デイスク/deb/loopと...
-
パソコンでインターネット接続...
-
ネットワークアイコンが黄色三...
-
スタックフレームの消滅
-
初級シスアド 転送時間の求め...
-
【QNAP NAS】LANポートについて...
-
ブロック長について
-
VB.netでDLLを読み込んで実行す...
-
エラー?メッセージ
-
H8マイコン スタック領域に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報