Индекс пункта контекстного меню в VB.Net

[DLF]

Здравствуйте. Подскажите, можно ли стандартными средствами VB 2008 определить порядковый номер пункта контекстного меню (индекс)? Пункты меню заранее не определены и добавляются в пустое контекстное меню во время выполнения программы. Идея такая: при запуске программа определяет количество и имена CD или DVD приводов на компьютере. Информация заносится в контекстное меню PictureBox-a для последующего использования для закрытия-открытия выбранного или всех существующих приводов.

[Williams]

Смотря что конкретно требуется, можно например так:

Код: Выделить всё

   For i = 0 To ContextMenuStrip1.Items.Count - 1

            Console.WriteLine(i.ToString & " " & ContextMenuStrip1.Items(i).Text)

        Next

[Joo]

С динамическим меню я работаю обычно так:

Код: Выделить всё

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer = 0
        For i = 0 To 10
            With mnuContext.Items.Add("Пункт " & i.ToString)
                'В Tag я обычно записываю какие то ключивые данные
                'В данном примере это номер меню
                .Tag = i.ToString
                'Назначить картинку если нужно
                '.Image = My.Resources.SimpleImage
                AddHandler .Click, AddressOf Menu_Click
            End With
        Next
    End Sub

    Private Sub Menu_Click(ByVal sender As Object, ByVal e As EventArgs)
        'Занеся в Tag нужные данные, не приходится делать лишних движений по изыманию
        MsgBox("Кликнули по пункту " & sender.tag)
    End Sub

[Nord777]

MenuItem можно получать напрямую со всеми вытекающими.

Код: Выделить всё

Public Class Form1
    Dim CMenu As New ContextMenu

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 5
            CMenu.MenuItems.Add("Item" & CStr(i), AddressOf MItem_Click)
        Next
        Me.ContextMenu = CMenu
    End Sub

    Sub MItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim MItem As MenuItem = DirectCast(sender, MenuItem)
        MsgBox(MItem.Text & " has index " & MItem.Index)
    End Sub

End Class

[DLF]

Всем спасибо. А можно всё это приобщить к следующему коду:

Код: Выделить всё

Public Class Form1
    Dim drive As New WMPLib.WindowsMediaPlayer
    Dim total, n As Integer

    Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        total = 0
        n = 0
        total = drive.cdromCollection.count  ' <<< Количество приводов в системе
        If (total >= 1) Then
            For i = 0 To (total - 1)  ' <<< Добавление в контекстное меню
                ContextMenuStrip1.Items.Add(drive.cdromCollection.Item(i).driveSpecifier)
            Next
        End If
    End Sub

    Private Sub ContextMenuStrip1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenuStrip1.Click
        drive.cdromCollection.Item(0).eject()  ' <<< Открывается первый привод. Если Item(1), то второй
    End Sub

End Class

[Viper] :: Пользуемся тегами CODE!

[Nord777]

DLF,у меня сложилось такое впечатление, что анализ приведенных ответов на твой вопрос ты считаешь пустой тратой времени.

[DLF]

DLF,у меня сложилось такое впечатление, что анализ приведенных ответов на твой вопрос ты считаешь пустой тратой времени.

Прошу прощения, нашел ошибку. Все заработало, большое спасибо!