05/07/2017, 12:25
drummers
Dim Dosya_Ac As New OpenFileDialog()
Dosya_Ac.Title = "dRm_Ofis_Otomasyon_v1 - Resim Dosyası Ekle"
Dosya_Ac.DefaultExt = "rtf"
Dosya_Ac.Filter = "Resim Dosyaları|*.png;*.bmp;*.jpg;*.gif|PNG Dosyası|*.png|Bitmap Dosyası|*.bmp|JPEG Dosyası|*.jpg|GIF Dosyası|*.gif"
Dosya_Ac.FilterIndex = 1
Dosya_Ac.FileName = ""
If Dosya_Ac.ShowDialog() = DialogResult.OK Then
Try
Dim strResimYolu As String = Dosya_Ac.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.DRichTextBox1.CanPaste(df) Then
Me.DRichTextBox1.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
Bu şekilde resim ekliyebiliyorum. Fakat eklenen resimlerin backgroundu gri oluyor ben transparan olmasını nasıl sağlarım.Teşekkürler.