Skip to main content

AccessTr.neT


Richtextboxa Resim Ekleme

Richtextboxa Resim Ekleme

#1
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.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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]
Eğer forumda yeni isen Buraya Tıklayarak Kuralları Okuyabilirsin.
Gizlilik Bilgilerinide Buraya Tıklayarak Okuyabilirsin.
En iyisi AccessTr.neT .
Son Düzenleme: 18/08/2018, 17:55, Düzenleyen: xNexus.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da