none
Wie zur Laufzeit zusätzliche Unterpunkte zu einem bestehenden Menupukt hinzufügen? RRS feed

  • Frage

  • Hallo, ich habe ein MenuStrip1 mit dem Menupunkt Tools. Wie kann ich zur Laufzeit weiter Unterpunkte zu Tools hinzufügen? Also... Tools Unterpunkt1 Unterpunkt2 Unterpunkt2.1 Unterpunkt2.2 Unterpunkt3 usw... Danke Reinhard
    Donnerstag, 10. September 2009 22:56

Antworten

  • wenn du mit ToolStripMenuItems arbeitest, dann füge die Menupunkte dem entsprechenden übergordneten Item hinzu, z.B. so:

    Option Infer On ' Only VB9
    Option Strict On
    
    Public Class Form1
    
      Dim ms As New MenuStrip
      Dim tsmi1 As New ToolStripMenuItem With {.Text = "Tools"}
    
      Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Controls.AddRange(New Control() {ms})
        ms.Items.Add(tsmi1)
        For i = 1 To 9
          Dim tsmi2 As New ToolStripMenuItem With {.Text = "Unterpunkt" & i.ToString}
          tsmi1.DropDownItems.Add(tsmi2)
        Next
      End Sub
    
    End Class

    --
    Peter

     

     

    • Als Antwort vorgeschlagen Peter Fleischer Freitag, 11. September 2009 10:28
    • Als Antwort markiert ReinhardH Freitag, 11. September 2009 18:56
    Freitag, 11. September 2009 04:10

Alle Antworten

  • wenn du mit ToolStripMenuItems arbeitest, dann füge die Menupunkte dem entsprechenden übergordneten Item hinzu, z.B. so:

    Option Infer On ' Only VB9
    Option Strict On
    
    Public Class Form1
    
      Dim ms As New MenuStrip
      Dim tsmi1 As New ToolStripMenuItem With {.Text = "Tools"}
    
      Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Controls.AddRange(New Control() {ms})
        ms.Items.Add(tsmi1)
        For i = 1 To 9
          Dim tsmi2 As New ToolStripMenuItem With {.Text = "Unterpunkt" & i.ToString}
          tsmi1.DropDownItems.Add(tsmi2)
        Next
      End Sub
    
    End Class

    --
    Peter

     

     

    • Als Antwort vorgeschlagen Peter Fleischer Freitag, 11. September 2009 10:28
    • Als Antwort markiert ReinhardH Freitag, 11. September 2009 18:56
    Freitag, 11. September 2009 04:10
  • Hallo Peter,

    besten Dank aber das war es nicht ganz.
    Mit diesem Code wird ein weiterer Menupukt Tools inkl. Unterpunkte erstellt und nicht der Vorhandene um Unterpunkte erweitert.

       Dim tsmi1 As New ToolStripMenuItem With {.Text = "Tools"}
            Me.Controls.AddRange(New Control() {MenuStrip1})
            MenuStrip1.Items.Add(tsmi1)
            For i = 1 To 9
                Dim tsmi2 As New ToolStripMenuItem With {.Text = "Unterpunkt" & i.ToString}
                tsmi1.DropDownItems.Add(tsmi2)
            Next

    Danke Reinhard
    • Bearbeitet ReinhardH Freitag, 11. September 2009 08:10 Code formatiert
    Freitag, 11. September 2009 08:09
  • Hi Reinhard,
    die Demo war vollständig. Was du daraus konkret benötigst, kann ich ohne Kenntnis deines Programmes nicht sagen. Wenn du aber auch die Anlage von "Tools" übernommen hast, dann wird er angelegt, auch wenn ein anderes Item mit gleicher Text-Eigenschaft bereits vorhanden ist.

    --
    Peter
    • Als Antwort vorgeschlagen Peter Fleischer Freitag, 11. September 2009 10:28
    Freitag, 11. September 2009 10:27
  • Hallo Peter,

    danke, ich hatte heute den ganzen Tag (ok - sagen wir 1-2 Stunden :-) ) darüber nachgedacht, was Du wohl meintest, letztendlich
    hab ich es dann doch geschnallt.


    Danke
    Reinhard
    Freitag, 11. September 2009 18:59