AccessTr.neT

Tam Versiyon: Richtextboxa Resim Ekleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
Bildiğim Kadarıyla Öncelikle Resmin Transparan Olması Gerkmektedir.

Ama Ben Öyle Bir Sorun Göremedim Omur.

Biliyorum Çok Çok  Geç Kaldım  Lol
Ama Kusura Bakma. :Img-grin

[Resim: 9NWnAQ.png]