| 投稿日 | ： 2007/02/15(Thu) 23:43 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: RichTextBoxへのビットマップの貼り付け |
> 複数のビットマップを貼るために
>
> RichTextBox1.OLEObjects.Add , , , "Picture.bmp"
実際には、こんな事していませんよね。
ここへ掲載する場合は、間違いのないように実際に使っているコードをコピー＆ペースト
して掲載して下さい。
> RichTextBoxにビットマップの貼り付けを行う場合、このやり方は間違っているのでしょうか？
> 正しい方法があれば教えてください。
今のままでも間違いではありませんが、使い方が間違っているかと思います。
リンク貼り付けをしたら当然そのようになります。
単に表示したいだけなら、クリップボード経由で貼り付けるとかすればいいのでは。
下記のコードを試して見て下さい。
Option Explicit
Private Sub Command1_Click()
Set Picture1.Picture = LoadPicture("c:\test.bmp")
Clipboard.Clear
Clipboard.SetData Picture1.Picture
DoEvents
RichTextBox1.SetFocus
SendKeys "^V"
End Sub
Private Sub Form_Load()
With Picture1
.AutoRedraw = True
.ScaleMode = vbPixels
.AutoSize = True
.Visible = False
End With
End Sub