Skip to main content

AccessTr.neT


Picturebox A Yazı Ekleme Ve Kaydetme

Picturebox A Yazı Ekleme Ve Kaydetme

Çözüldü #1
3 Adet textbox ve 1 adet Picturebox ım var

Textboxlardaki verileri alt alt ve formatları ile birlikte (Font boyutu rengi vs..vs..) pictureboxa aktarıp sonrada jpg veya bmp şeklinde kaydetmek istiyorum.

Amacım firma isim ve adreslerinden KAŞE oluşturmak
Textbox1.Text= Ali Veli Hasan
Textbox2.Text= 123 Sokak No :25 İzmir
Textbox3.Text= Hasan Tahsin Vd / 1234567890

Picturebox Sonucu Şu Olmalı:
Ali Veli Hasan
123 Sokak No :25 İzmir
Hasan Tahsin Vd / 1234567890

EKLE

 Dim grafik As Graphics = PictureBox1.CreateGraphics
       Dim style As FontStyle = FontStyle.Bold
       Dim fonts As Font = New Font(New FontFamily("Arial"), 14, style)

       grafik.DrawString(DRichTextBox1.Text, DRichTextBox1.Font, Brushes.Red, 30, 10)

       grafik.DrawString(TextBox1.Text, fonts, Brushes.Red, 10, 10)
       grafik.DrawString(TextBox2.Text, fonts, Brushes.Red, 10, 30)

KAYDET:
Dim dlg As New SaveFileDialog
       dlg.Filter = "Bitmap|*.jpg"
       If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
           PictureBox1.Image.Save(dlg.FileName)
       End If

Ekleme yapıyorum fakat kayıtta hata veriyor.
Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Açıkçası ne yapmak istediğinizi tam olarak anlayamadım. Bilgileri resim olarak mı yazdırmak istiyorsunuz?
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#3
(03/07/2017, 23:39)alpeki99 yazdı: Açıkçası ne yapmak istediğinizi tam olarak anlayamadım. Bilgileri resim olarak mı yazdırmak istiyorsunuz?

textbox1 = firmanın adı ve soyadı
textbox2 = firmanın adresi

bunları textboxlardaki formatları ile (ortalanmış, koyu, sağa yatık vs.vs..vs) pictureboxa aktarmak ve bunu jpg veya bmp şeklinde boyutlandırarak (20 ye 50, 40 a 60 şeklinde) backround olmadan kaydetme istiyorum.

Amacım: Richtexboxda dilekçe yazar iken "kaşe getir" deyip kayıtlı olan bilgileri dilekçenin altına resim olarak eklemek.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
(03/07/2017, 23:39)alpeki99 yazdı: Açıkçası ne yapmak istediğinizi tam olarak anlayamadım. Bilgileri resim olarak mı yazdırmak istiyorsunuz?

Örnek dosya ektedir.
.rar Kase.rar (Dosya Boyutu: 143,88 KB | İndirme Sayısı: 11)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#5
Resim kaydetme işleminizi Jpg olarak değil Png olarak kaydedin. Jpg zaten transparan zemin vermez ancak Png ile zemin rengi olmadan kaydedebilirsiniz.


Kod:
' saveFileDialog1.Filter = "jpegs|*.jpg|gifs|*.gif|Bitmaps|*.bmp"
saveFileDialog1.Filter = "PNG resim türü|*.png"


Yukarıdaki ilk satır sizin ikinci benim düzenlediğim. Ayrıca resim kaydettiğiniz satırlar şu şekilde olsun:


Kod:
'MyPicture.Save(saveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
MyPicture.Save(saveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Png)

AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#6
(04/07/2017, 12:29)alpeki99 yazdı: Resim kaydetme işleminizi Jpg olarak değil Png olarak kaydedin. Jpg zaten transparan zemin vermez ancak Png ile zemin rengi olmadan kaydedebilirsiniz.


Kod:
' saveFileDialog1.Filter = "jpegs|*.jpg|gifs|*.gif|Bitmaps|*.bmp"
saveFileDialog1.Filter = "PNG resim türü|*.png"


Yukarıdaki ilk satır sizin ikinci benim düzenlediğim. Ayrıca resim kaydettiğiniz satırlar şu şekilde olsun:


Kod:
'MyPicture.Save(saveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
MyPicture.Save(saveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Png)


Teşekkürler.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task