VBNet - Форум - Контекстное меню

Вопрос: Контекстное меню Добавлено: 25.04.10 18:00

Автор вопроса: lena

Мне нужно копировать некоторый объект неопределенное количество раз..кликом по баттон8. Инфо о каждой копии занести в контекстное меню CopyMenu.

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        addNewItem()
        copies += 1
End Sub
Public Sub addNewItem()
Dim newCopy As New ToolStripMenuItem("Copy # " & copies, Nothing, New EventHandler(AddressOf newCopy_Click))
        CopyMenu.Items.Add(newCopy)
End Sub
Private Sub newCopy_Click()
        MsgBox("Current copy is " ???)
End Sub

Как потом узнать, какой пункт подменю был нажат?
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #1	Добавлено: 25.04.10 19:41
	Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click addNewItem() copies += 1 End Sub Public Sub addNewItem() Dim newCopy As New ToolStripMenuItem("Copy # " & copies, Nothing, New EventHandler(AddressOf newCopy_Click)) CopyMenu.Items.Add(newCopy) End Sub Private Sub newCopy_Click(ByVal sender As Object, ByVal e As EventArgs) Dim item As ToolStripMenuItem = CType(sender, ToolStripMenuItem) MsgBox("Current copy is " + item.Text) End Sub Ответить

Номер ответа: 2 Автор ответа: lena Вопросов: 2 Ответов: 3	Профиль \| \| #2	Добавлено: 01.05.10 15:28
	У меня появился еще один вопрос. На событие опенинг для моего меню выделяется цветом нужное мне подменю. Private Sub CopyMenu_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles CopyMenu.Opening Dim item As ToolStripItem For Each item In CopyMenu.Items If item.Name = current_copy Then item.BackColor = Color.Chocolate End If Next End Sub А на closing нужно бы снять это выделение...не могу сообразить как. Ответить

Номер ответа: 3 Автор ответа: lena Вопросов: 2 Ответов: 3	Профиль \| \| #3	Добавлено: 01.05.10 15:32
	Эм...только написала, и сразу же нашла ответ) color.empty, извиняюсь. Ответить

Страница: 1 |