Hallo,
weiss jemand wie ich ein Bild in eine Textbox einfügen kann?
Zweck ist: Eine Textbox (Multiline) wo Texte ausgegeben werden. Ab und wann muss hinter ein Text ein Smiley. Weiss jemamnd ob ich das mit einer TExtbox realisieren kann oder wie sonst?
VLG Alex
Hallo.
Zweck ist: Eine Textbox (Multiline) wo Texte ausgegeben
werden. Ab und wann muss hinter ein Text ein Smiley. Weiss
jemamnd ob ich das mit einer TExtbox realisieren kann oder wie
sonst?
Also, in die Textbox selbst bekommst Du nur solche
oder :*\
oder E-[
Bitmaps u.dgl. musst Du über ein Objektfeld anzeigen lassen …
Gruß kw
Hallo KW,
danke für die rasche antwort 
das ich sie nur in der Form :-S reinbekomme war mir klar.
Wie stelle ich das denn am dümmsten an, mit dem object erzeugen? Es muesste dann ja in einer Textbox erzeugt werden. Geht das überhaupt?
Kann ich das nicht ansonsten über ein Bild machen?
LG Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo!
Also, Du brauchst auf jeden Fall ein RichText-Feld. Mit der ‚normalen‘ Textbox hast Du keine Chance.
Zum Einfügen geht man dann meistens übers Clipboard. D.h. Bild laden, ins Clipboard kopieren und dann in der RichTextBox einfügen.
Das Einfügen entweder über die Win32 Nachricht WM_PASTE oder auch per SendKeys:
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
' Copy the picture into the clipboard.
Clipboard.Clear
Clipboard.SetData LoadPicture("c:\myImageToInsert.bmp"), vbCFBitmap
' paste into the RichTextBox control
RichTextBox1.SetFocus
RichTextBox1.SelStart = Len(RichTextBox1) ' append image
SendMessage RichTextBox1.hwnd, WM\_PASTE, 0, 0
oder
SendKeys "^v", True
Gruß,
Martin
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]