Dim tsi1 As ToolStripMenuItem = findMenuItem("Start", _
                                            Me.ContextMenuStrip1.Items)
                                    If tsi1 Is Nothing Then Return
                                    Dim tsi2 As ToolStripMenuItem = _
                                      findMenuItem(kategorie, _
                                      tsi1.DropDownItems)
                                    If tsi2 Is Nothing Then Return
                                    Dim tsin As New ToolStripMenuItem(name)
                                    tsi2.DropDownItems.Add(name)
                                    AddHandler tsi2.DropDownItemClicked, _
                                      AddressOf tsi2_DropDownItemClicked

    Friend WithEvents tsi2 As System.Windows.Forms.ToolStripMenuItem
    Private Sub tsi2_DropDownItemClicked(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles _
      tsi2.DropDownItemClicked
        Dim tItem As ToolStripItem = CType(e.ClickedItem, ToolStripItem)
        For i As Integer = 0 To count - 1
            If startnames(i) = tItem.Text Then
               MessageBox.Show("Test")
             End If
        Next
    End Sub

Jan Bender
www.jan-bender.de

Beitrag wurde zuletzt am 26.06.08 um 15:06:50 editiert.