23-09-15, 12:14 PM (آخر تعديل لهذه المشاركة : 23-09-15, 12:23 PM {2} بواسطة أبو عمر.)
غير كود الفورم الاول بالكامل الى هذا
PHP كود :
Imports Microsoft.Reporting.WinForms
Public Class frmParcode Dim Br As New BarCode Private Sub btn_Prnit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Prnit.Click frmPrint.ReportViewer1.LocalReport.EnableExternalImages = True Dim h As String = Application.StartupPath & "\1.bmp" PictureBox1.Image = Br.Code128(txtNumberEx1.Text, "B") SaveImage("1.bmp", PictureBox1.Image) Dim Pimg1 As New ReportParameter("Pimg1", "file:\\\" & h) frmPrint.ReportViewer1.LocalReport.SetParameters(Pimg1) 'هنا توجد المشكلة frmPrint.ReportViewer1.RefreshReport() frmPrint.Show() End Sub
Public Sub SaveImage(ByVal filename As String, ByVal image As Image)
Dim path As String = System.IO.Path.Combine(Application.StartupPath, filename) Dim mySource As New Bitmap(image.Width, image.Height) Dim grfx As Graphics = Graphics.FromImage(mySource) grfx.DrawImageUnscaled(image, Point.Empty) grfx.Dispose() mySource.Save(filename, System.Drawing.Imaging.ImageFormat.Png) mySource.Dispose() End Sub
Private Sub btn_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Exit.Click End End Sub End Class
جرب لان عندي 2010 - 2015
فحتى لو رفعت لك المثال ماراح تستفيد
وبالنسبة للمشاركة اللي قبل ذي حذفتها
بالتوفيق
سبحان الله والحمدللهولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات