Images von Menüeinträgen in ImageList Ein Code-Snippet zum Einspeichern der Imagws aller Menüeinträge eines Programms in eine ImageList
Autor:   Dietrich Herrmann	Bewertung:	Views:  3.276
ohne Homepage	System:  Win7, Win8, Win10, Win11	kein Beispielprojekt

Der Hauptform mit der Menüleiste (MenuStrip) fügt man eine Komponente ImageList zu, bspw. mnuImageList.

Im LoadEvent der Form wendet man dann den folgenden Code an:

' alle Bilder aus den Menüeinträgen in eine ImageList eintragen
mnuImageList.Images.Clear()
Dim menC, misC As ToolStripItemCollection
menC = MenuStrip.Items
For Each mi As ToolStripMenuItem In menC
  misC = mi.DropDownItems
  For i As Short = 0 To misC.Count - 1
    If TypeOf misC.Item(i) Is ToolStripSeparator Then
    Else
      Dim ms As ToolStripMenuItem = misC.Item(i)
      If Not IsNothing(ms.Image) Then
        mnuImageList.Images.Add(ms.Name, ms.Image)
        ' Debug.Print(ms.Name)
      End If
    End If
  Next 
Next 

Danach sind alle Images der Menüeinträge in der ImageList gespeichert für eventuelle spätere Verwendung.

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.