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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Picturebox A Yazı Ekleme Ve Kaydetme - Yazar: drummers - 03/07/2017, 16:08
Task