Wie kopiert man in VB.NET 2003 eine Bitmap oder ein Image ins Clipboard?

**In VB.NET 2003 kopierst du ein `Bitmap` direkt mit `Clipboard.SetDataObject` oder `Clipboard.SetData` ins Clipboard; entscheidend ist, dass du ein echtes `Bitmap`-Objekt übergibst, nicht nur ein `Image`-Handle oder eine Zeichenfläche. Sonst können andere Grafikprogramme das Bild oft nicht korrekt einfügen.** ## So funktioniert es Wenn du bereits ein `Bitmap` hast, reicht im Normalfall: ```vbnet Imports System.Windows.Forms Imports System.Drawing Dim bmp As New Bitmap(200, 200) Dim g As Graphics = Graphics.FromImage(bmp) g.Clear(Color.White) g.FillEllipse(Brushes.Red, 20, 20, 160, 160) g.Dispose() Clipboard.SetDataObject(bmp, True) ``` Das `True` sorgt dafür, dass die Daten im Clipboard erhalten bleiben, auch wenn dein Programm danach weiterläuft oder der Fokus wechselt. ## Wenn du nur ein `Image` hast Viele Editoren erwarten intern ein Bitmap-kompatibles Format. Deshalb ist es oft besser, ein `Image` erst sauber in ein neues `Bitmap` zu kopieren: ```vbnet Imports System.Windows.Forms Imports System.Drawing Dim img As Image = Image.FromFile("C:\test.jpg") Dim bmp As New Bitmap(img.Width, img.Height) Dim g As Graphics = Graphics.FromImage(bmp) g.DrawImage(img, 0, 0, img.Width, img.Height) g.Dispose() Clipboard.SetDataObject(bmp, True) img.Dispose() ``` ## Warum das wichtig ist Der häufigste Fehler ist, ein Bild nur in einer Form zu übergeben, die dein eigenes Programm versteht, aber nicht Paint, Photoshop oder andere Editoren. Ein echtes `Bitmap` im Clipboard ist der robusteste Weg. Ein praktischer Unterschied: - `Clipboard.SetDataObject(bmp, True)` → funktioniert meist direkt in Grafikprogrammen - `Clipboard.SetText(...)` oder eigene Datenformate → für Editoren unbrauchbar - `Image` ohne Umwandlung → kann funktionieren, ist aber in alten .NET-/WinForms-Konstellationen weniger zuverlässig ## Wichtiger Stolperstein bei VB.NET 2003 Der Clipboard-Zugriff braucht einen **STA-Thread**. In einer normalen Windows-Forms-Anwendung ist das meist bereits erfüllt. In anderen Fällen kann sonst eine Ausnahme auftreten. Falls du es explizit setzen musst: ```vbnet <STAThread()> _ Shared Sub Main() Application.Run(New Form1()) End Sub ``` ## Kurz gesagt **Für andere Grafik-Editoren kopierst du am zuverlässigsten ein neu erzeugtes oder vorhandenes `Bitmap` mit `Clipboard.SetDataObject(bmp, True)` ins Clipboard.**