この記事を書いた当時は語句の先頭を小文字にしてもエラーは出なかったのですが、2023年8月より「大文字にしなきゃダメじゃん」とお叱りを受けるようになりました。書き直すのが面倒なので直しませんけど、参考にされるときはご留意ください。 画像ファイルを読み込んでリッチテキストボックスに埋め込む |
一旦クリップボードに読み込んでから貼り付けます。 |
|
Dim pic As Image = Nothing Dim cFileOpen As New OpenFileDialog cFileOpen.Filter = "画像ファイル(*.PNG;*.JPG;*.GIF;*.BMP)|*.PNG;*.JPG;*.GIF;*.BMP|全てのファイル(*.*)|*.*" cFileOpen.Multiselect = False If cFileOpen.ShowDialog = DialogResult.OK Then Try pic = Image.FromFile(cFileOpen.FileName) Catch ex As Exception MessageBox.Show("ファイルが開けませんでした。" & vbCrLf & cFileOpen.FileName, APPNAME, MessageBoxButtons.OK, MessageBoxIcon.Asterisk) Exit Sub End Try Else Exit Sub End If Clipboard.SetImage(pic) cRich.Paste() 2018/12/17追記 クリップボードの内容が変わってしまうのが問題になる場合は、こちらの記事を参考にして一旦退避してから作業後に戻してください。 |
コメント