RichtextBox içine Resim ekleme Kodu=
Private Sub ResimEkleMn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResimEkleMn.Click, tbrResmEkle.Click
OpenFileDialog1.Title = "RTE - Resim Dosyası Ekle"
OpenFileDialog1.DefaultExt = "rtf"
OpenFileDialog1.Filter = "Resim Dosyaları|*.png;*.bmp;*.jpg;*.gif|PNG Dosyası|*.png|Bitmap Dosyası|*.bmp|JPEG Dosyası|*.jpg|GIF Dosyası|*.gif"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.FileName = ""
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Try
Dim strResimYolu As String = OpenFileDialog1.FileName
Dim img As Image
img = Drawing.Image.FromFile(strResimYolu)
Clipboard.SetDataObject(img)
Dim df As DataFormats.Format
df = DataFormats.GetFormat(DataFormats.Bitmap)
If Me.rtbDoc.CanPaste(df) Then
Me.rtbDoc.Paste(df)
End If
Catch ex As Exception
MessageBox.Show("Seçili Görüntü formatı eklemek için açılamıyor.", "RTE - Yapıştır", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub