Wußten Sie, wie man ein Bild in eine RTF-Textbox einfügen kann? ' zunächst die benötigten Deklarationen Private Declare Sub Sleep Lib "kernel32" ( _ ByVal dwMilliseconds As Long) Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Const WM_PASTE = &H302 ' Bild per Quellcode einfügen Private Sub CopyPictureToRTF(RTF As Control, Bild As Picture) Dim Buf As Variant Dim Text As String If Clipboard.GetFormat(vbCFText) = True Then ' Wenn in der Zwischenablage Text ist, ' wird er in einem String gespeichert Text = Clipboard.GetText Else ' ansonsten in einer Variant Variable Buf = Clipboard.GetData End If ' Zwischenablage löschen und Bild kopieren Clipboard.Clear Clipboard.SetData Picture1.Picture DoEvents ' Bild per SendMessage in RTF-Box einfügen SendMessage RTF.hwnd, WM_PASTE, 0, 0 DoEvents Sleep 3000 ' zur Sicherheit kurz warten ' Zwischenablage wieder löschen, da das Bild ' sonst in der Zwischenablage bleibt Clipboard.Clear ' Falls vor dem Kopieren des Bildes ein Text oder ' sonstiger Inhalt in der Zwischenablage war, schreiben wir ' diesen wieder zurück in die Zwischenablage If Text <> "" Then Clipboard.SetText Text Else Clipboard.SetData Buf End If End Sub Ein kleines Beispiel: ' Bild einfügen Private Sub Command1_Click() CopyPictureToRTF RTFTextBox1, Picture1.Picture End Sub Dieser Tipp wurde bereits 39.681 mal aufgerufen.
Anzeige
![]() ![]() ![]() (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 ![]() Dieter Otter Beliebige Zeichen am Anfang und Ende eines Strings entfernen Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen. TOP Entwickler-Paket ![]() TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |