Ist es in VB.NET 2003 möglich, die Länge der Scrollbalken unabhängig vom Verhältnis zwischen Container und Inhalt festzulegen?

Question

Ist es in VB.NET 2003 möglich, die Länge der Scrollbalken unabhängig vom Verhältnis zwischen Container und Inhalt festzulegen?

Antwort

Verwandte Fragen

Warum zeigt die TreeView in VB.NET 2003 einen horizontalen Scrollbalken, obwohl alle Einträge mindestens 30 px Abstand vom rechten Rand haben?

Wie ermittelt man in VB.NET 2003 die benötigte Höhe einer TreeView, damit kein Scrollbalken angezeigt wird?

Wie passe ich in VB.NET 2003 einen selbstgebauten Scrollbalken (Panel + PictureBox) programmgesteuert an die jeweilige Situation an?

Kann man in VB.NET 2003 nur den horizontalen Scrollbalken eines Controls ausschalten?

Wie ermittele ich in VB.NET 2003 die Breite von Scrollbalken?

Ist in VB.NET 2003 bei der Umwandlung mit CInt(True) das Ergebnis -1 und bei CInt(False) das Ergebnis 0?

Wie ermittelt man in VB.NET 2003 die TransparentColor beim Extrahieren eines Icons mit SHGetFileInfo?

Wie wählt man in VB.NET 2003 per Code eine KnownColor aus?

Welchen Einfluss haben überflüssig importierte Klassen mittels Imports in VB.NET 2003 auf ein Programm?

Können in VB.NET 2003 außer Icons auch GIF/PNG für ownerdrawn Contextmenüs verwendet werden?

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) ist die Länge der Scrollbalken in Standard-Steuerelementen wie `Panel`, `TextBox`, `ListBox` usw. grundsätzlich vom Verhältnis zwischen Containergröße und Inhalt abhängig. Das Verhalten und die Darstellung der Scrollbalken werden vom Betriebssystem (Windows) und den nativen Steuerelementen bestimmt. Eine direkte Möglichkeit, die Länge der Scrollbalken unabhängig von diesem Verhältnis zu beeinflussen, gibt es in der Standardbibliothek nicht. Die Scrollbar-Größe ist systemweit über die Windows-Systemsteuerung einstellbar, aber nicht individuell pro Steuerelement. **Mögliche Workarounds:** 1. **Eigene Scrollbar-Steuerelemente programmieren:** Du könntest eigene Steuerelemente für Scrollbars erstellen und diese unabhängig vom Inhalt steuern. Das ist allerdings mit erheblichem Aufwand verbunden. 2. **Drittanbieter-Steuerelemente:** Es gibt (auch für ältere .NET-Versionen) Steuerelemente von Drittanbietern, die mehr Kontrolle über das Aussehen und Verhalten der Scrollbars bieten. Beispiele findest du z.B. bei [DevExpress](https://www.devexpress.com/) oder [ComponentOne](https://www.grapecity.com/componentone). 3. **Custom Drawing:** Mit OwnerDraw- oder CustomPaint-Techniken könntest du eigene Scrollbars zeichnen und deren Verhalten selbst bestimmen. Das ist aber in VB.NET 2003 recht aufwendig und erfordert gute Kenntnisse in GDI+. **Fazit:** Mit den Standardmitteln von VB.NET 2003 ist es nicht möglich, die Länge der Scrollbalken unabhängig vom Verhältnis Container/Content zu beeinflussen. Nur mit eigenen oder Drittanbieter-Lösungen kannst du dieses Verhalten erreichen.

Accepted Answer

Das Verhalten, dass in einer `TreeView`-Steuerung unter VB.NET 2003 ein horizontaler Scrollbalken angezeigt wird, obwohl alle Einträge ausreichend Abstand zum rechten Rand haben, kann mehrere Urs... [mehr]

Accepted Answer

Das Verhalten, dass in einer `TreeView`-Steuerung unter VB.NET 2003 ein horizontaler Scrollbalken angezeigt wird, obwohl alle Einträge ausreichend Abstand zum rechten Rand haben, kann mehrere Ursachen haben: 1. **Versteckte oder unsichtbare Knoten**: Auch unsichtbare oder ausgeblendete Knoten (z.B. durch `Node.Collapse()`) können intern noch als breiter berechnet werden, wenn sie einmal angezeigt wurden. 2. **Breitenberechnung der TreeView**: Die TreeView-Steuerung berechnet die notwendige Breite für den Scrollbalken anhand der längsten Zeile, die jemals angezeigt wurde, nicht nur der aktuell sichtbaren. Wenn also ein Knoten mit sehr langem Text hinzugefügt und später entfernt oder gekürzt wurde, kann der Scrollbalken trotzdem bleiben, bis die TreeView neu gezeichnet oder refreshed wird. 3. **Bilder oder Icons**: Wenn du ImageLists verwendest, kann die Breite der Icons zur Gesamtlänge addiert werden, auch wenn der Text selbst kurz ist. 4. **Padding und Margin**: Interne Abstände (Padding/Margin) der TreeView oder der einzelnen Nodes können dazu führen, dass die berechnete Breite größer ist als der sichtbare Inhalt. 5. **Fehler in .NET 1.1**: In älteren .NET-Versionen (wie 1.1, die in VB.NET 2003 verwendet wird) gibt es bekannte Bugs im Zusammenhang mit der TreeView-Steuerung und der Berechnung der Scrollbalken. **Lösungsansätze:** - **TreeView neu zeichnen lassen**: Ein Aufruf von `TreeView1.Refresh()` oder das kurzzeitige Entfernen und erneute Hinzufügen der Nodes kann helfen. - **AutoResize**: Es gibt keinen eingebauten Auto-Resize, aber du kannst die Breite der längsten Zeile selbst berechnen und ggf. die TreeView anpassen. - **Scrollbalken erzwingen/entfernen**: Es gibt keine direkte Eigenschaft, um den horizontalen Scrollbalken zu deaktivieren, aber du kannst mit Win32-API-Aufrufen experimentieren, um das Verhalten zu beeinflussen. **Beispiel für Refresh:** ```vb.net TreeView1.BeginUpdate() TreeView1.EndUpdate() ``` Das erzwingt ein Neuzeichnen und kann das Problem manchmal beheben. **Weitere Infos:** - [Microsoft Docs: TreeView Class](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.treeview) - [Stack Overflow: TreeView horizontal scrollbar issue](https://stackoverflow.com/questions/1097857/treeview-horizontal-scrollbar-issue) Das Verhalten ist also meist ein Nebeneffekt der internen Breitenberechnung und kein Fehler in deinem Code. Ein Neuzeichnen oder das Entfernen und erneute Hinzufügen der Nodes kann oft helfen.

Accepted Answer

Um in VB.NET 2003 zu bestimmen, wie viel Höhe eine `TreeView` benötigt, damit kein vertikaler Scrollbalken angezeigt wird, musst du die Höhe aller sichtbaren Knoten (Nodes) berechnen. D... [mehr]

Accepted Answer

Um in VB.NET 2003 zu bestimmen, wie viel Höhe eine `TreeView` benötigt, damit kein vertikaler Scrollbalken angezeigt wird, musst du die Höhe aller sichtbaren Knoten (Nodes) berechnen. Die TreeView zeigt einen vertikalen Scrollbalken an, wenn die Summe der Knoten-Höhen größer als die aktuelle Höhe des Steuerelements ist. **Vorgehen:** 1. **Ermittle die Anzahl der sichtbaren Knoten** Das sind alle Knoten, die nicht durch einen zugeklappten Elternknoten verborgen sind. 2. **Ermittle die Höhe eines Knotens** Die Eigenschaft `ItemHeight` gibt die Höhe eines Knotens in Pixel an. 3. **Berechne die benötigte Höhe** Multipliziere die Anzahl der sichtbaren Knoten mit der Knoten-Höhe. **Beispielcode:** ```vb ' Funktion, um die Anzahl der sichtbaren Knoten zu zählen Private Function CountVisibleNodes(node As TreeNode) As Integer Dim count As Integer = 1 ' Der aktuelle Knoten ist sichtbar If node.IsExpanded Then For Each child As TreeNode In node.Nodes count += CountVisibleNodes(child) Next End If Return count End Function ' Gesamte sichtbare Knoten im TreeView zählen Private Function GetVisibleNodeCount(tree As TreeView) As Integer Dim count As Integer = 0 For Each node As TreeNode In tree.Nodes count += CountVisibleNodes(node) Next Return count End Function ' Benötigte Höhe berechnen Dim visibleNodes As Integer = GetVisibleNodeCount(Me.TreeView1) Dim neededHeight As Integer = visibleNodes * Me.TreeView1.ItemHeight ' Optional: Padding für Rahmen oder Header hinzufügen neededHeight += 4 ' je nach Design ggf. anpassen ' TreeView auf die berechnete Höhe setzen Me.TreeView1.Height = neededHeight ``` **Hinweise:** - Die Methode berücksichtigt nur die sichtbaren Knoten (also auch, ob Elternknoten eingeklappt sind). - Je nach Windows-Theme und Rahmen kann ein kleiner zusätzlicher Wert (z.B. 2–4 Pixel) nötig sein, damit wirklich kein Scrollbalken erscheint. - Die Eigenschaft `ItemHeight` ist in .NET 1.1 (und damit in VB.NET 2003) verfügbar. **Weitere Infos zur TreeView-Klasse:** [Microsoft Docs: TreeView.ItemHeight Property](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.treeview.itemheight)

Accepted Answer

In VB.NET 2003 gibt es keine eingebaute Funktion, um einen selbstgebauten Scrollbalken (z.B. aus `Panel` und `PictureBox`) automatisch an eine Situation anzupassen. Du musst die Anpassung selbst progr... [mehr]

Accepted Answer

In VB.NET 2003 gibt es keine eingebaute Funktion, um einen selbstgebauten Scrollbalken (z.B. aus `Panel` und `PictureBox`) automatisch an eine Situation anzupassen. Du musst die Anpassung selbst programmieren. Typischerweise bedeutet das: 1. **Berechne die Größe des "Thumbs" (Schiebereglers):** Die Größe hängt vom Verhältnis des sichtbaren Bereichs zum gesamten Inhalt ab. 2. **Setze die Position des "Thumbs":** Die Position entspricht dem aktuellen Scrollwert im Verhältnis zum maximalen Scrollwert. Ein Beispiel für eine vertikale Scrollleiste: ```vb ' Angenommen: ' panelScrollBar = das Panel, das die Scrollleiste enthält ' pictureBoxThumb = das PictureBox-Steuerelement, das den Thumb darstellt ' contentHeight = Höhe des gesamten Inhalts ' viewHeight = Höhe des sichtbaren Bereichs ' scrollValue = aktueller Scrollwert (z.B. Top-Offset des Inhalts) Sub UpdateScrollBar(panelScrollBar As Panel, pictureBoxThumb As PictureBox, contentHeight As Integer, viewHeight As Integer, scrollValue As Integer) If contentHeight <= viewHeight Then pictureBoxThumb.Visible = False Exit Sub End If pictureBoxThumb.Visible = True ' Thumb-Größe berechnen (mindestens 20 Pixel hoch) Dim thumbHeight As Integer = Math.Max(CInt(viewHeight / contentHeight * panelScrollBar.Height), 20) pictureBoxThumb.Height = thumbHeight ' Thumb-Position berechnen Dim maxScroll As Integer = contentHeight - viewHeight Dim maxThumbTop As Integer = panelScrollBar.Height - thumbHeight Dim thumbTop As Integer = CInt(scrollValue / maxScroll * maxThumbTop) pictureBoxThumb.Top = thumbTop End Sub ``` **Hinweise:** - Diese Funktion musst du immer aufrufen, wenn sich Inhalt, Sichtbereich oder Scrollwert ändern. - Für horizontale Scrollleisten musst du die Berechnung entsprechend anpassen. Eine eingebaute Funktion gibt es nicht, aber mit solch einer Methode kannst du deinen selbstgebauten Scrollbalken anpassen.

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es keine universelle Eigenschaft für alle Controls, um gezielt nur den horizontalen oder vertikalen Scrollbalken zu deaktivieren. Es hängt vom j... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) gibt es keine universelle Eigenschaft für alle Controls, um gezielt nur den horizontalen oder vertikalen Scrollbalken zu deaktivieren. Es hängt vom jeweiligen Control ab. **Beispiel: TextBox** Für eine mehrzeilige `TextBox` kannst du mit der Eigenschaft `ScrollBars` steuern, welche Scrollbalken angezeigt werden: ```vb.net TextBox1.Multiline = True TextBox1.ScrollBars = ScrollBars.Vertical ' Nur vertikaler Scrollbalken ``` Mögliche Werte für `ScrollBars` sind: - `ScrollBars.None` - `ScrollBars.Horizontal` - `ScrollBars.Vertical` - `ScrollBars.Both` **Beispiel: Panel** Ein `Panel`-Control hat die Eigenschaften `AutoScroll`, aber keine direkte Möglichkeit, nur einen Scrollbalken zu deaktivieren. Es gibt jedoch einen Trick, um z.B. den horizontalen Scrollbalken zu unterdrücken: ```vb.net Panel1.AutoScroll = True Panel1.HorizontalScroll.Enabled = False Panel1.HorizontalScroll.Visible = False ``` Allerdings sind diese Eigenschaften (`HorizontalScroll.Enabled` und `HorizontalScroll.Visible`) erst ab .NET 2.0 verfügbar, also **nicht in VB.NET 2003**. **Fazit für VB.NET 2003:** - Bei Controls wie `TextBox` kannst du gezielt nur den horizontalen oder vertikalen Scrollbalken anzeigen lassen. - Bei anderen Controls (wie `Panel`) ist das gezielte Deaktivieren eines einzelnen Scrollbalkens in .NET 1.1 nicht direkt vorgesehen. Hier müsstest du ggf. auf eigene Ableitungen oder Workarounds zurückgreifen. **Weitere Infos:** - [Microsoft Docs: TextBox.ScrollBars Property](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.textbox.scrollbars) - [Microsoft Docs: Panel.AutoScroll Property](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.panel.autoscroll) Wenn du ein bestimmtes Control meinst, nenne es bitte, damit die Antwort noch gezielter ausfallen kann.

Accepted Answer

In VB.NET 2003 kannst du die Breite (vertikaler Scrollbalken) bzw. Höhe (horizontaler Scrollbalken) von Scrollbalken mit der Windows-API-Funktion `GetSystemMetrics` ermitteln. Die relevanten Kons... [mehr]

Accepted Answer

In VB.NET 2003 kannst du die Breite (vertikaler Scrollbalken) bzw. Höhe (horizontaler Scrollbalken) von Scrollbalken mit der Windows-API-Funktion `GetSystemMetrics` ermitteln. Die relevanten Konstanten sind: - `SM_CXVSCROLL` für die Breite des vertikalen Scrollbalkens - `SM_CYHSCROLL` für die Höhe des horizontalen Scrollbalkens Hier ein Beispiel, wie du das machen kannst: ```vb.net Imports System.Runtime.InteropServices Public Class Form1 <DllImport("user32.dll")> _ Private Shared Function GetSystemMetrics(ByVal nIndex As Integer) As Integer End Function Private Const SM_CXVSCROLL As Integer = 2 ' Breite des vertikalen Scrollbalkens Private Const SM_CYHSCROLL As Integer = 3 ' Höhe des horizontalen Scrollbalkens Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim vertScrollWidth As Integer = GetSystemMetrics(SM_CXVSCROLL) Dim horzScrollHeight As Integer = GetSystemMetrics(SM_CYHSCROLL) MessageBox.Show("Vertikale Scrollbalken-Breite: " & vertScrollWidth.ToString() & vbCrLf & _ "Horizontale Scrollbalken-Höhe: " & horzScrollHeight.ToString()) End Sub End Class ``` Mit diesem Code erhältst du die Systemwerte für die Scrollbalken-Breite und -Höhe. Diese Werte sind systemweit gültig und ändern sich, wenn der Benutzer die Windows-Design-Einstellungen anpasst.

Accepted Answer

In VB.NET 2003 (also Visual Basic .NET 1.1) gilt Folgendes: - Der Ausdruck `CInt(True)` ergibt **-1**. - Der Ausdruck `CInt(False)` ergibt **0**. Das liegt daran, dass in VB.NET (wie auch in klassis... [mehr]

Accepted Answer

In VB.NET 2003 (also Visual Basic .NET 1.1) gilt Folgendes: - Der Ausdruck `CInt(True)` ergibt **-1**. - Der Ausdruck `CInt(False)` ergibt **0**. Das liegt daran, dass in VB.NET (wie auch in klassischem VB) der Wert von `True` intern als **-1** (alle Bits gesetzt) und `False` als **0** (alle Bits gelöscht) dargestellt wird. **Beispiel:** ```vb Dim a As Integer = CInt(True) ' a = -1 Dim b As Integer = CInt(False) ' b = 0 ``` **Vergleich:** - `CInt(True) = -1` ergibt `True` - `CInt(False) = 0` ergibt `True` **Fazit:** Ja, in VB.NET 2003 ist die Umwandlung `CInt(True) = -1` und `CInt(False) = 0` zulässig und entspricht dem Verhalten der Sprache.

Accepted Answer

In VB.NET 2003 gibt es keine direkte Möglichkeit, die Transparenzfarbe (TransparentColor) eines Icons zu ermitteln, das mit `SHGetFileInfo` extrahiert wurde, da das von `SHGetFileInfo` zurüc... [mehr]

Accepted Answer

In VB.NET 2003 gibt es keine direkte Möglichkeit, die Transparenzfarbe (TransparentColor) eines Icons zu ermitteln, das mit `SHGetFileInfo` extrahiert wurde, da das von `SHGetFileInfo` zurückgegebene Icon-Handle (`hIcon`) keine Information über die Transparenzfarbe enthält. Icons verwenden in der Regel eine Alphamaske oder eine bestimmte Farbe als transparent, aber diese Information ist nicht explizit im Icon-Handle gespeichert. **Typisches Vorgehen:** 1. **Icon extrahieren:** Mit `SHGetFileInfo` erhältst du ein Handle auf das Icon (`hIcon`). 2. **Icon in ein .NET-Icon-Objekt umwandeln:** ```vb.net Dim icon As Icon = Icon.FromHandle(hIcon) ``` 3. **Icon in Bitmap umwandeln:** ```vb.net Dim bmp As Bitmap = icon.ToBitmap() ``` 4. **Transparenzfarbe ermitteln:** Wenn das Icon keine Alphakanal-Transparenz hat, sondern eine bestimmte Farbe als transparent verwendet, ist das meist die Farbe des Pixels an Position (0,0) oder die untere linke Ecke. ```vb.net Dim transparentColor As Color = bmp.GetPixel(0, 0) ``` **Achtung:** - Viele Icons nutzen mittlerweile einen Alphakanal (32-Bit-Icons). In diesem Fall ist die Transparenz im Alphakanal gespeichert, und es gibt keine "Transparenzfarbe" im klassischen Sinn. - Bei älteren 256-Farben-Icons ist oft die Farbe an (0,0) oder (bmp.Width-1, bmp.Height-1) als transparent definiert. **Zusammengefasst:** - Es gibt keine API, die dir direkt die Transparenzfarbe eines Icons liefert. - Du kannst versuchen, die Farbe an einer Ecke des Bitmaps zu nehmen, aber das ist nicht immer zuverlässig. - Bei Icons mit Alphakanal ist die Transparenz im Alpha-Wert der Pixel gespeichert. **Beispielcode:** ```vb.net ' SHGetFileInfo-Aufruf und Icon-Handle erhalten (hIcon) Dim icon As Icon = Icon.FromHandle(hIcon) Dim bmp As Bitmap = icon.ToBitmap() Dim transparentColor As Color = bmp.GetPixel(0, 0) ' transparentColor enthält jetzt die Farbe des Pixels oben links ``` **Weitere Infos:** - [SHGetFileInfo-Dokumentation (Microsoft)](https://learn.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shgetfileinfoa) - [Icon.FromHandle (Microsoft)](https://learn.microsoft.com/en-us/dotnet/api/system.drawing.icon.fromhandle) **Fazit:** Eine sichere Ermittlung der Transparenzfarbe ist nicht möglich, da moderne Icons meist einen Alphakanal nutzen. Bei klassischen Icons kannst du die Farbe an einer Ecke als Annäherung verwenden.

Accepted Answer

In VB.NET 2003 kannst du eine Farbe aus der Aufzählung `KnownColor` auswählen und daraus ein `Color`-Objekt erstellen. Das geht so: ```vb.net Dim meineFarbe As Color meineFarbe = Color.From... [mehr]

Accepted Answer

In VB.NET 2003 kannst du eine Farbe aus der Aufzählung `KnownColor` auswählen und daraus ein `Color`-Objekt erstellen. Das geht so: ```vb.net Dim meineFarbe As Color meineFarbe = Color.FromKnownColor(KnownColor.Red) ``` Hier wird die bekannte Farbe „Red“ ausgewählt. Du kannst jede beliebige Farbe aus der [KnownColor-Enumeration](https://learn.microsoft.com/de-de/dotnet/api/system.drawing.knowncolor) verwenden, z.B. `KnownColor.Blue`, `KnownColor.Green` usw. **Zusammengefasst:** 1. Wähle einen Wert aus `KnownColor` (z.B. `KnownColor.Red`). 2. Erzeuge das `Color`-Objekt mit `Color.FromKnownColor(...)`. Beispiel für die Zuweisung an eine Steuerelement-Eigenschaft: ```vb.net Button1.BackColor = Color.FromKnownColor(KnownColor.LightGreen) ``` So kannst du per Code eine bekannte Farbe auswählen und verwenden.

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) hat das Hinzufügen von Imports-Anweisungen für nicht verwendete Namespaces oder Klassen in der Regel **keinen nennenswerten Einfluss auf die Grö... [mehr]

Accepted Answer

In VB.NET 2003 (also .NET Framework 1.1) hat das Hinzufügen von Imports-Anweisungen für nicht verwendete Namespaces oder Klassen in der Regel **keinen nennenswerten Einfluss auf die Größe oder Performance** des kompilierten Programms. **Begründung:** - Die `Imports`-Anweisung dient nur dazu, den Code lesbarer zu machen, indem du auf Klassen ohne vollständigen Namespace zugreifen kannst. - Beim Kompilieren werden nur die tatsächlich verwendeten Typen und Namespaces in den kompilierten Code aufgenommen. - Nicht verwendete Imports führen **nicht** dazu, dass zusätzliche Bibliotheken oder Klassen in die ausführbare Datei eingebunden werden. - Die einzige Auswirkung ist eine minimale Unübersichtlichkeit im Quellcode und eventuell eine leicht verlängerte Kompilierzeit, da der Compiler mehr Namespaces durchsuchen muss, um Typen aufzulösen. **Fazit:** Überflüssige Imports-Anweisungen in VB.NET 2003 haben praktisch keinen Einfluss auf die Größe oder Laufzeit deines Programms. Sie sind hauptsächlich ein Thema für die Codequalität und Übersichtlichkeit, nicht für die Performance oder Dateigröße.

Accepted Answer

In **VB.NET 2003** (also .NET Framework 1.1) ist die Unterstützung für Bilder in Menüs standardmäßig auf **Icons** (also `.ico`-Dateien) beschränkt. Das betrifft sowohl... [mehr]

Accepted Answer

In **VB.NET 2003** (also .NET Framework 1.1) ist die Unterstützung für Bilder in Menüs standardmäßig auf **Icons** (also `.ico`-Dateien) beschränkt. Das betrifft sowohl normale als auch ownerdrawn-Menüs. Die Standard-API und die Windows Forms-Menüklassen (`MenuItem`, `ContextMenu`) bieten keine direkte Möglichkeit, GIF- oder PNG-Bilder als Menüicons zu verwenden. **ABER:** Wenn du ein **OwnerDraw**-Menü verwendest, hast du die volle Kontrolle über das Zeichnen der Menüeinträge. Das bedeutet, du kannst im `DrawItem`-Event **beliebige Grafiken** zeichnen, also auch PNG oder GIF (inklusive Transparenz). **Vorgehen:** 1. Lade das Bild (PNG, GIF) als `Image`-Objekt (z.B. mit `Image.FromFile`). 2. Im `DrawItem`-Event des Menüeintrags kannst du das Bild mit `e.Graphics.DrawImage` zeichnen. **Beispiel:** ```vb ' Bild laden (z.B. PNG) Dim myImage As Image = Image.FromFile("C:\pfad\bild.png") ' Im DrawItem-Event: Private Sub MenuItem_DrawItem(sender As Object, e As DrawItemEventArgs) ' Bild zeichnen e.Graphics.DrawImage(myImage, e.Bounds.Left, e.Bounds.Top, 16, 16) ' Text daneben zeichnen e.Graphics.DrawString(CType(sender, MenuItem).Text, e.Font, Brushes.Black, e.Bounds.Left + 20, e.Bounds.Top) End Sub ``` **Wichtig:** - Transparenz von PNGs wird unterstützt, GIF-Animationen jedoch nicht (es wird nur das erste Frame angezeigt). - Du musst das OwnerDraw-Flag für den Menüeintrag setzen: `MenuItem.OwnerDraw = True`. **Fazit:** Ja, mit OwnerDraw kannst du in VB.NET 2003 auch PNG- oder GIF-Bilder in ContextMenüs verwenden, aber du musst das Zeichnen selbst übernehmen. Standardmäßig werden nur Icons unterstützt. Weitere Infos zu OwnerDraw-Menüs in .NET findest du z.B. bei Microsoft: [https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.menuitem.ownerdraw](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.menuitem.ownerdraw)