Nachfolgendes Beispiel zeigt, wie man das Bild einer PictureBox via Drag & Drop in eine andere Anwendung schieben kann (bspw. Word, Corel Photopaint etc.). Erstellen Sie ein neues Projekt und platzieren auf die Form eine PictureBox (PictureBox1). Laden Sie über den Eigenschaften-Dialog ein beliebiges Bild in die PictureBox. Fügen Sie jetzt folgenden Code in den Codeteil der Form ein: Imports System.IO Imports System.Drawing.Imaging Public Class Form1 Private Sub PictureBox1_MouseDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown ' Drag & Drop einleiten Me.DragPictureBoxContentTo(Me.PictureBox1) End Sub ''' <summary> ''' Drag + Drop von PictureBox nach MS Word / Corel Photo Paint o.ä. ''' </summary> Private Sub DragPictureBoxContentTo(ByVal pb As PictureBox) Const INDEPENDENT_BITMAP As String = "DeviceIndependentBitmap" Dim save As New MemoryStream Dim write As New MemoryStream Const OFFSET As Integer = 14 Try Dim dt As New DataObject If pb IsNot Nothing Then ' Inhalt der PictureBox in MemoryStream speichern pb.Image.Save(save, ImageFormat.Bmp) ' Memory-Stream als Byte-Array Dim content As Byte() = save.GetBuffer() ' die ersten 14 Bytes abschneiden und in neues ' MemoryStream-Objekt speichern write.Write(content, OFFSET, CInt(save.Length - OFFSET)) save.Position = 0 ' MemoryStream dem DataObject zuweisen ' Format: DeviceIndependentBitmap dt.SetData(INDEPENDENT_BITMAP, write) ' Daten des DataObjekts für den Drag&Drop Kopiervorgang verwenden pb.DoDragDrop(dt, DragDropEffects.Copy) End If Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") Finally ' Objekte wieder freigeben If save IsNot Nothing Then save.Dispose() If write IsNot Nothing Then write.Dispose() End Try End Sub End Class Dieser Tipp wurde bereits 13.744 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevZIP40 Pro DLL Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |