AccessTr.neT
Aktif Kaydın Bilgilerini Resme Yazdirma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: Aktif Kaydın Bilgilerini Resme Yazdirma (/konu-aktif-kaydin-bilgilerini-resme-yazdirma.html)



Aktif Kaydın Bilgilerini Resme Yazdirma - OgulcanErdinc - 22/02/2018

merhaba arkadaşlar.
   Dim getir As OleDb.OleDbDataReader
        Dim komut As New OleDbCommand("Select * from Kisi", conn)
        Static a
dim b
        getir = komut.ExecuteReader
        dt = New DataTable
        bs = New BindingSource
        dt.Clear()
        DataGridView1.DataSource = ds

        dt.Columns.AddRange({New DataColumn("K_ad"),
                            New DataColumn("K_soy"),
                            New DataColumn("K_foto"),
                            New DataColumn("G_adi"),
                            New DataColumn("Y_adi")})
     
        Static ad, soyad, foto, yetki, gorev, izin As String
        Dim barcode As BusinessRefinery.Barcode.QRCode
        barcode = New BusinessRefinery.Barcode.QRCode
       
        While getir.Read
            Dim save = New SaveFileDialog()
            Dim bmp As New Bitmap(PictureBox1.Image)
            Dim g As Graphics = Graphics.FromImage(bmp)
            a += 1
b+=1
            dt.Rows.Add(
                    getir("K_ad"),
                    getir("K_soy"),
                 getir("K_foto"))
            bs.DataSource = dt
            BindingSource1.DataSource = bs
            DataGridView1.DataSource = bs
            bs.Position = a
            soyad = bs.Current("K_soy")
            ad = bs.Current("K_ad")
foto=bs.Current("K_foto")
PictureBox3.Image=New Bitmap(foto)

            g.DrawString(soyad, New Font("Arial", 14), Brushes.Black, 270, 150)
            g.DrawString(ad, New Font("Arial", 14), Brushes.Black, 120, 150)
            g.DrawImage(PictureBox3.Image, 15, 260, 67, 69) 
     save.InitialDirectory = "C:\WindowsApplication4\WindowsApplication4\bin\Debug"
            save.FileName = b & "*.jpg"
            bmp.Save(b & ".jpg")
 end while
Sorun düzeldi