Ein Menü aus dem MainMenu als Kontextmenu verwenden

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Ein Menü aus dem MainMenu als Kontextmenu verwenden

    Hallo,

    ich nutze VB 2010 (.NET) und habe mit dem Designer eine Form erstellt. Dort gibt es ein MainMenu-Element (Menüleiste) in dem die üblichen Menüs (Datei, Bearbeiten, Ansicht, etc.) enthalten sind. Das Datei-Menü wird beim Laden des Forms dynamisch mit einer Liste von Elementen erweitert, die meisten Elemente stehen aber fest und wurden ebenfalls mit dem Designer gestaltet. Das dynamische Hinzufügen funktioniert einwandfrei.

    Jetzt habe ich ein NotifyIcon und ein NotifyContextMenu hinzugefügt, da das Programm ein Symbol unten rechts neben der Uhr anzeigen soll. Beim Rechtsklick auf das Icon soll das NotifyContextMenu genau dieselben Inhalte anzeigen wie das Datei-Menü der Form.

    Ich habe keine Möglichkeit gefunden das bestehende Menü 1:1 zu verknüfpen. Wie kann ich das Problem lösen?

    Danke schon mal für Eure Anregungen
    Marquis

    @Marquis: Da haste Dir aber ein Problem ausgesucht. :D
    Form mit MenuStrip und ContextMenuStrip.
    Generiere Dir eine neue Form und ersetze den Inhalt Deiner Datei Form1.Designer.vb durch dies hier:
    Form1.Designer.vb

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Form1
    3. Inherits System.Windows.Forms.Form
    5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Me.components = New System.ComponentModel.Container()
    26. Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
    27. Me.AaaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    28. Me.Aa1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    29. Me.Aa2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    30. Me.Aa3ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    31. Me.BbbToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    32. Me.Bb1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    33. Me.Bb2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    34. Me.CccToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    35. Me.Cc1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    36. Me.Cc2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    37. Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
    38. Me.MenuStrip1.SuspendLayout()
    39. Me.SuspendLayout()
    40. '
    41. 'MenuStrip1
    42. '
    43. Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AaaToolStripMenuItem, Me.BbbToolStripMenuItem, Me.CccToolStripMenuItem})
    44. Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
    45. Me.MenuStrip1.Name = "MenuStrip1"
    46. Me.MenuStrip1.Size = New System.Drawing.Size(284, 24)
    47. Me.MenuStrip1.TabIndex = 0
    48. Me.MenuStrip1.Text = "MenuStrip1"
    49. '
    50. 'AaaToolStripMenuItem
    51. '
    52. Me.AaaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Aa1ToolStripMenuItem, Me.Aa2ToolStripMenuItem, Me.Aa3ToolStripMenuItem})
    53. Me.AaaToolStripMenuItem.Name = "AaaToolStripMenuItem"
    54. Me.AaaToolStripMenuItem.Size = New System.Drawing.Size(37, 20)
    55. Me.AaaToolStripMenuItem.Text = "aaa"
    56. '
    57. 'Aa1ToolStripMenuItem
    58. '
    59. Me.Aa1ToolStripMenuItem.Name = "Aa1ToolStripMenuItem"
    60. Me.Aa1ToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
    61. Me.Aa1ToolStripMenuItem.Text = "aa1"
    62. '
    63. 'Aa2ToolStripMenuItem
    64. '
    65. Me.Aa2ToolStripMenuItem.Name = "Aa2ToolStripMenuItem"
    66. Me.Aa2ToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
    67. Me.Aa2ToolStripMenuItem.Text = "aa2"
    68. '
    69. 'Aa3ToolStripMenuItem
    70. '
    71. Me.Aa3ToolStripMenuItem.Name = "Aa3ToolStripMenuItem"
    72. Me.Aa3ToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
    73. Me.Aa3ToolStripMenuItem.Text = "aa3"
    74. '
    75. 'BbbToolStripMenuItem
    76. '
    77. Me.BbbToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Bb1ToolStripMenuItem, Me.Bb2ToolStripMenuItem})
    78. Me.BbbToolStripMenuItem.Name = "BbbToolStripMenuItem"
    79. Me.BbbToolStripMenuItem.Size = New System.Drawing.Size(40, 20)
    80. Me.BbbToolStripMenuItem.Text = "bbb"
    81. '
    82. 'Bb1ToolStripMenuItem
    83. '
    84. Me.Bb1ToolStripMenuItem.Name = "Bb1ToolStripMenuItem"
    85. Me.Bb1ToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
    86. Me.Bb1ToolStripMenuItem.Text = "bb1"
    87. '
    88. 'Bb2ToolStripMenuItem
    89. '
    90. Me.Bb2ToolStripMenuItem.Name = "Bb2ToolStripMenuItem"
    91. Me.Bb2ToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
    92. Me.Bb2ToolStripMenuItem.Text = "bb2"
    93. '
    94. 'CccToolStripMenuItem
    95. '
    96. Me.CccToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Cc1ToolStripMenuItem, Me.Cc2ToolStripMenuItem})
    97. Me.CccToolStripMenuItem.Name = "CccToolStripMenuItem"
    98. Me.CccToolStripMenuItem.Size = New System.Drawing.Size(37, 20)
    99. Me.CccToolStripMenuItem.Text = "ccc"
    100. '
    101. 'Cc1ToolStripMenuItem
    102. '
    103. Me.Cc1ToolStripMenuItem.Name = "Cc1ToolStripMenuItem"
    104. Me.Cc1ToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
    105. Me.Cc1ToolStripMenuItem.Text = "cc1"
    106. '
    107. 'Cc2ToolStripMenuItem
    108. '
    109. Me.Cc2ToolStripMenuItem.Name = "Cc2ToolStripMenuItem"
    110. Me.Cc2ToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
    111. Me.Cc2ToolStripMenuItem.Text = "cc2"
    112. '
    113. 'ContextMenuStrip1
    114. '
    115. Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
    116. Me.ContextMenuStrip1.Size = New System.Drawing.Size(153, 26)
    117. '
    118. 'Form1
    119. '
    120. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    121. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    122. Me.ClientSize = New System.Drawing.Size(284, 262)
    123. Me.ContextMenuStrip = Me.ContextMenuStrip1
    124. Me.Controls.Add(Me.MenuStrip1)
    125. Me.MainMenuStrip = Me.MenuStrip1
    126. Me.Name = "Form1"
    127. Me.Text = "Form1"
    128. Me.MenuStrip1.ResumeLayout(False)
    129. Me.MenuStrip1.PerformLayout()
    130. Me.ResumeLayout(False)
    131. Me.PerformLayout()
    133. End Sub
    134. Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
    135. Friend WithEvents AaaToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    136. Friend WithEvents Aa1ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    137. Friend WithEvents Aa2ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    138. Friend WithEvents Aa3ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    139. Friend WithEvents BbbToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    140. Friend WithEvents Bb1ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    141. Friend WithEvents Bb2ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    142. Friend WithEvents CccToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    143. Friend WithEvents Cc1ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    144. Friend WithEvents Cc2ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    145. Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
    147. End Class
    und in die Form1.vb kopierst Du dies rein:
    Form1.vb

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub ContextMenuStrip1_Opening(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
    3. ' Hauptmenü-Submenü zu Contextmenü verschieben
    4. Me.ContextMenuStrip1.Items.Add(CccToolStripMenuItem)
    5. End Sub
    7. Private Sub ContextMenuStrip1_Closing(sender As System.Object, e As System.Windows.Forms.ToolStripDropDownClosingEventArgs) Handles ContextMenuStrip1.Closing
    8. ' zurückschieben
    9. Me.MenuStrip1.Items.Add(CccToolStripMenuItem)
    10. End Sub
    11. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!