+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Picturebox A Yazı Ekleme Ve Kaydetme (/konu-picturebox-a-yazi-ekleme-ve-kaydetme.html)
Picturebox A Yazı Ekleme Ve Kaydetme - drummers - 03/07/2017
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 IfEkleme yapıyorum fakat kayıtta hata veriyor.
Teşekkürler
Cvp: Picturebox A Yazı Ekleme Ve Kaydetme - alpeki99 - 03/07/2017
Açıkçası ne yapmak istediğinizi tam olarak anlayamadım. Bilgileri resim olarak mı yazdırmak istiyorsunuz?
Cvp: Picturebox A Yazı Ekleme Ve Kaydetme - drummers - 04/07/2017
(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.
Cvp: Picturebox A Yazı Ekleme Ve Kaydetme - drummers - 04/07/2017
(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.
Cvp: Picturebox A Yazı Ekleme Ve Kaydetme - alpeki99 - 04/07/2017
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)Cvp: Picturebox A Yazı Ekleme Ve Kaydetme - drummers - 04/07/2017
(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.