Bilder in den Editorgadget laden

[bobobo]

Das Editorgadget kann keine RTF-Bilder darstellen (zumindest nicht wenn man die Methode benutzt wie sie im CodeArchiv hinterlegt ist)

Im Übrigen erkennich ich den Screenshots nichts wo ein Bild IM Editorgadget liegt sondern immer nur als Fensterhintergrund. Vermutlich bin ich ja nur blind.

[MJP]

Ich kenne mich nicht so gut mit C++ und VB aus. Hätte jemand ein paar links zu VB Foren?

edit:
Ok ich hab jetzt was gefunden ^^
Könnte mir das einer zu PB abändern?

Code: Alles auswählen

'Dieser Source stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei project1.vbp -------------
' Die Komponente ' (RICHTX32.OCX)' wird benötigt.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command2"
' Steuerelement: Bildfeld-Steuerelement "Picture2"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Bildfeld-Steuerelement "Picture1"
' Steuerelement: RichTextBox "RichTextBox1"

Option Explicit

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
        
Const WM_PASTE = &H302

Private Sub Command1_Click()
    Clipboard.Clear
    Clipboard.SetData Picture1.Picture

    SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub

Private Sub Command2_Click()
  Clipboard.Clear
  Clipboard.SetData Picture2.Picture
    
  SendMessage_(RichTextBox1.hwnd, WM_PASTE, 0, 0)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei project1.vbp --------------

Thx 4 Help MJP

[Leo]

Da passiert nix

Code: Alles auswählen

hwnd = OpenWindow(0,0,0,640,480,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Hello World!") 
CreateGadgetList(hwnd) 
hedit = EditorGadget(0,10,10,620,460) 
file.s = OpenFileRequester("Bild","","*.bmp|*.bmp",0) 
himg.l = LoadImage(0,file) 
If himg And hedit
    ClearClipboard()
    SetClipboardData(#PB_ClipboardImage,himg)
    SendMessage_(hedit,#WM_PASTE,0,0)
EndIf

Repeat 
Until WaitWindowEvent() = #PB_Event_CloseWindow

[MJP]

Also in VB gehts habe den Code eben probieren lassen...
Es muss doch einen Weg geben dort das Bild einzufügen ...

Thx 4 Help MJP

[Hroudtwolf]

Versucht mal den Richtexteditor per API zu machen und den Bildinhalt anschliessend reinzukopieren.

[MJP]

Also ich kenne die Api dafür nicht...
Ich hab die Rich-Lib benutzt aber leider gehts mit der auch net..

Code: Alles auswählen

hwnd = OpenWindow(0,0,0,640,480,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Hello World!")
CreateGadgetList(hwnd)
hedit = OpenRichEdit(hwnd,0,10,10,620,460,"BLUBER")
file.s = OpenFileRequester("Bild","","*.bmp|*.bmp",0)
himg.l = LoadImage(0,file)
If himg And hedit
    ClearClipboard()
    SetClipboardData(#PB_ClipboardImage,himg)
    SendMessage_(hedit,#WM_PASTE,0,0)
EndIf

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow 

Wäre genial wenn Fred hinbekommen würde das man auch Bilder laden kann...
Thx 4 Help MJP