リッチテキストボックスで画像が張り付かない (ID:102462)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>魔界の仮面弁士さん
いろいろありがとうございます。
試行錯誤の結果クリップボードからの貼り付け(Getdata)ができないため、クリップボードへ取得したデータを(ctrl + v) にて貼り付けるようにしました（と思ったら魔界の仮面弁士さんの返信が来ていたため、もう一度考えます…）。
魔界の仮面弁士さまが書いてくださったコードでどのような属性で取得されるのか確認しましたところ、こちらはBitmap属性（デバイスに依存しない属性でもありました）となっておりました。
今日はいろいろ勉強になりました。不明点はまだありますが、また調べていきたいと思います。
以下失敗コードです…
①
Private Sub Command1_Click()

Dim Imgpath As String
   Call Rt1.LoadFile(Imgpath)  '文字化けして画像は表示されません

End Sub

②
Private Sub Command1_Click()

Dim Imgpath As String

Imgpath = App.Path & "\test.bmp"
    Clipboard.Clear
    Clipboard.SetData LoadPicture(Imgpath)
    Rt1 = Clipboard.GetData    '毎回違う数値が画面に表示されてしまう（画像は表示されない）

Debug.Print "----------------"
    Debug.Print "File", Clipboard.GetFormat(vbCFFiles)         'File          False
    Debug.Print "TXT", Clipboard.GetFormat(vbCFText)           'TXT           False
    Debug.Print "RTF", Clipboard.GetFormat(vbCFRTF)            'RTF           False
    Debug.Print "BMP", Clipboard.GetFormat(vbCFBitmap)         'BMP           True
    Debug.Print "DIB", Clipboard.GetFormat(vbCFDIB)            'DIB           True
    Debug.Print "WMF", Clipboard.GetFormat(vbCFMetafile)       'WMF           False
    Debug.Print "EMF", Clipboard.GetFormat(vbCFEMetafile)      'EMF           False
    '以上から、クリップボード自体には画像データが入っていたため、クリップボードからの出力は
    'ctrl + c  キーで行うこととしました。
End Sub

③こちらで行くことにしました
Private Sub Command1_Click()

Dim Imgpath As String

Imgpath = App.Path & "\test.bmp"
    Clipboard.Clear
    Clipboard.SetData LoadPicture(Imgpath)

End Sub

返信が来ていたのも気づかずに書き込もうと思っていたため、中途半端な解決策となってしまいました。
教えていただいたことをよく調べて、実践していきたいと思います。
とりあえず、解決とさせていただきます。
ありがとうございました。

←解決時は質問者本人がここをチェックしてください。

戻る