Hallo Jan,
mir ist unverständlich, was das Ganze bewirken soll. Wieso soll ein DropDown geschlossen werden, anstatt aufgeklappt? Faktisch widerspricht das der Menülogik - die seit Windows 95 (oder früher) gültig ist:
Menüs werden durch Klick auf ein anderes Element oder über die Escape Taste geschlossen bzw. durch F10 / Alt-Taste das Fenstermenü aktiviert.
Ein anderes Verhalten ist so ohne weiteres gar nicht zu bewerkstelligen. Denn während sich das Formular im "Menü-Modus" befindet, wird ein Meldungsfilter aktiviert, der Maus und Tastatur an die Menüelemente weiterleitet.
Die ToolStripManager Klasse enthält dazu einige Methoden, die durchweg intern sind - von außen nicht zugänglich; so z. B. eine ExitMenuMode Methode.
ToolStrip kennt die geschützte
RestoreFocus-Methode, das nämliche Methode neben anderen aufruft. Um sie zu nutzen müsste man eine eigene Klasse ableiten.
Einige kurze Versuche, die Methoden über Reflection aufzurufen hatten nicht den gewünschten Erfolg; wobei ich nicht weiß - siehe Eingangsabsatz -, wann das genau passieren soll.
Kleiner Nachtrag:
Über ein DoubleClick-Ereignis realisiert, funktioniert es in tieferen Ebenen, wenn man übergeordneten Ebenen schliesst:
Private Sub mainMenuMenuItem_DoubleClick(sender As System.Object, e As System.EventArgs) _
Handles mainMenu1ToolStripMenuItem.DoubleClick, _
mainMenu12ToolStripMenuItem.DoubleClick
' Testhalber für 1. und 2. Ebene mit aktiviertem Doppelklick
Dim menuItem = DirectCast(sender, ToolStripMenuItem)
menuItem.HideDropDown()
menuItem = DirectCast(menuItem.OwnerItem, ToolStripMenuItem)
While menuItem IsNot Nothing
menuItem.HideDropDown()
menuItem = DirectCast(menuItem.OwnerItem, ToolStripMenuItem)
End While
End Sub
Gruß Elmar
