Code: Alles auswählen

Private Sub mnuPicture_Click()
    Dim strZielDatei As String
    CommonDialog1.CancelError = True
    On Error GoTo errh
   
    CommonDialog1.Filter = "Alle Dateien (*.*)|*.*|Bildateien (*.jpg|*.jpg|Bitmap (*.bmp)|*.bmp|"
    CommonDialog1.FilterIndex = 3
    CommonDialog1.ShowOpen
    strZielDatei = CommonDialog1.FileName
    strDatei = strZielDatei
    strDateiArt = Right(strDatei, 3)
    RichTextBox1.LoadFile strZielDatei
    Me.Caption = strProdukt & strZielDatei
    Exit Sub
   
errh:
End Sub

Code: Alles auswählen

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


Private Const WM_PASTE = &H302

       
Private Const WM_UNDO = &H304
Private Sub Command1_Click()
    Dim tclsPicture As StdPicture

    On Error Resume Next

    With CommonDialog1
        .Filter = "Alle Dateien (*.*)|*.*|JPEGs (*.jpg)|*.jpg|Bitmaps (*.bmp)|*.bmp"
        .FilterIndex = 1

        .CancelError = True

        Call .ShowOpen
        If (Err.Number > 0) Then Exit Sub

        Set tclsPicture = LoadPicture(.FileName)
        If (Err.Number > 0) Then
            Call MsgBox("Kein gültiges Bild.")
            Exit Sub
        End If
    End With

    On Error GoTo 0

    With Clipboard
        Call .Clear
        .SetData tclsPicture
    End With

    Call SendMessage(RichTextBox1.hwnd, WM_PASTE, 0, 0)
End Sub

Dieses Code stammt von body1989 (Win-Tuning-Portal Forum Techniker)

Was man zusätzlich brauch:

Commondialg1
Richtextbox1
Commandbutton1

Code:
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


Private Const WM_PASTE = &H302


Private Const WM_UNDO = &H304
Private Sub Command1_Click()
Dim tclsPicture As StdPicture

On Error Resume Next

With CommonDialog1
.Filter = "Alle Dateien (*.*)|*.*|JPEGs (*.jpg)|*.jpg|Bitmaps (*.bmp)|*.bmp"
.FilterIndex = 1

marsupilami hat geschrieben:ich hab es halt hier rein nochmal kopiert... so haben noch mehr Leute davon etwas !
Es dient nicht als Werbung !
Das war seine Idee ... und außerdem sind wir hier nicht im Gerichtssaal... wenn das so wäre, wäre dieser fall schon geklärt.... also bitte Leute....
Mfg, Marcus