الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تمرير صورة الى التقرير CrystalReport 2005

بدأه saga_mam في 1 أكتوبر 2013 · 6 رد · 1,244 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أنا عظو جديد في هذا المنتدي العريق   وانا في  اخرى اوقاتي لتسليم مشروعي اود من الساده الاعضاء مساعتي  ولكم مني جزيل الشكر ...

السوال * \

لدي صورة  في PictureBox  اريد كود يرسل هذه الصورة التقرير CrystalReport  بدون استخدام الصورة من قاعدة بيانات 

 

مثال * 

هذا الكود يرسل النص من الفورم الى التقرير 

 

Dim Text As CrystalDecisions.CrystalReports.Engine.TextObject = CType(Report.ReportDefinition.ReportObjects.Item("Text1"), CrystalDecisions.CrystalReports.Engine.TextObject)
Text.Text = z1.Text.ToString

 

اريد نفس هذا الكود بس لصورة 

 

بارك الله فيكم ونفع بكم ...

#2

هل مسار الصورة ثابت ؟؟ ام يتم قراءته من قاعدة البيانات ؟؟

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#3

نعم مسار الصورة ثابت  

#4

ارفع مثالك للتعديل .. 

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#5

هذا مثال ولكن فقط يعمل به النص فقط

ولكن وجد بعض المواقع تتحدث عن هذا الموظوع  وكان استخدام الكود بهذا الشكل

 Dim Logo As CrystalDecisions.CrystalReports.Engine.PictureObject
            Logo = Report.ReportDefinition.Sections(0).ReportObjects("")

            Logo.What = Me.PictureBox1.image

 

 

هذا مثال

 Try
            '

            Me.CrystalReportViewer1.ReportSource = Nothing
            Me.CrystalReportViewer1.RefreshReport()
            'هذا لنقل النص الى التقرير
            Dim Report As New CrystalReport1
            Dim gg1 As CrystalDecisions.CrystalReports.Engine.TextObject = CType(Report.ReportDefinition.ReportObjects.Item("Text1"), CrystalDecisions.CrystalReports.Engine.TextObject)
            gg1.Text = Label1.Text.ToString


            'هذا مثال وجده في بعض المواقع ولكن يظهر خطأ في كتابة الكود
            ' وهذا لنقل الصورة الى التقرير
            'Dim Logo As CrystalDecisions.CrystalReports.Engine.PictureObject
            'Logo = Report.ReportDefinition.Sections(0).ReportObjects("")
            'Logo.What = Me.PictureBox1.image
            ' فقط PictureBox1  اريد طباعة الصورة التي في
            Me.CrystalReportViewer1.ReportSource = Report
            Me.CrystalReportViewer1.RefreshReport()



        Catch ex As Exception

        End Try
 

 

 

#6

هل يعقل لا يوجد لها حل تعبت من كثر البحث في محركات البحث ,,, :wacko: :wacko: :wacko:

#7

وانا كذلك .... لاحد الان لم أجد لها طريقة

 

 

للرفع

اذا المشاركة قد نالت على أعجابك .... فارجوا التقييم  rep_up.png

مواضيع مشابهة