Bild von Picturebox nach Klick in Textbox

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Bild von Picturebox nach Klick in Textbox

    Hallo Leute,
    Ich bin derzeit ein wenig mit TCP/IP am spielen.
    Ich will mir einen Chat zusammenbasteln (bin auch soweit fertig) in dem ich Smylies einbauen will.

    Nun stelle sich aber die Frage:
    Wie bekomme ich das Bild aus der Picturebox in eine textbox ??

    Oder gibt es da eine andere "Variante" die vielleicht Eleganter ist als die Picturebox ?

    MFG
    Patrick

    Den link hatte ich auch schon gehabt bin mit dem Übersetzen von VB6 auf 2010 nich so ganz klar gekommen

    Probier mal dies hier (nicht getestet)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    5. <DllImport("kernel32.dll")> _
    6. Public Shared Sub Sleep(ByVal dwMilliseconds As Integer)
    7. End Sub
    9. <DllImport("user32.dll", CharSet:=CharSet.Unicode)> _
    10. Public Shared Function SendMessage(ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    11. End Function
    13. Private Const WM_PASTE = &H302
    15. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    17. End Sub
    19. ' Bild per Quellcode einfügen
    20. Private Sub CopyPictureToRTF(ByVal RTF As RichTextBox, ByVal Bild As Image)
    21. Dim Buf As Image = Nothing
    22. Dim Text As String = ""
    24. If Clipboard.ContainsText Then
    25. ' Wenn in der Zwischenablage Text ist,
    26. ' wird er in einem String gespeichert
    27. Text = Clipboard.GetText
    28. ElseIf Clipboard.ContainsImage Then
    29. ' ansonsten in einer Variant Variable
    30. Buf = Clipboard.GetImage
    31. End If
    33. ' Zwischenablage löschen und Bild kopieren
    34. Clipboard.Clear()
    35. Clipboard.SetImage(Bild)
    36. Application.DoEvents()
    38. ' Bild per SendMessage in RTF-Box einfügen
    39. SendMessage(RTF.Handle, WM_PASTE, IntPtr.Zero, IntPtr.Zero)
    40. Application.DoEvents()
    41. Sleep(3000) ' zur Sicherheit kurz warten
    43. ' Zwischenablage wieder löschen, da das Bild
    44. ' sonst in der Zwischenablage bleibt
    45. Clipboard.Clear()
    47. ' Falls vor dem Kopieren des Bildes ein Text oder
    48. ' sonstiger Inhalt in der Zwischenablage war, schreiben wir
    49. ' diesen wieder zurück in die Zwischenablage
    50. If Text <> "" Then
    51. Clipboard.SetText(Text)
    52. Else
    53. Clipboard.SetImage(Buf)
    54. End If
    55. End Sub
    56. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende