لود كردن يه تصوير در شي ايميج در ديتاريپورت در زمان اجرا

[فاطمه وطن دوست]

سلام
==========
ميخوام تو ديتاريپورت يه عكس رو لود كنم ( در زمان اجرا ) امتحان كردم نشد .
اصلا اين كار با ديتاريپورت امكان پذيره ؟
تو سايت جستجو كردم ولي دوستان به نتيجه نرسيده بودند !!!!

[RezaS_1354]

ميشه اينكار را در زمان اجرا انجام داد ولي اگر در صورتي كه شما به ديتا بيس متصل باشيد در هر لحظه مثل تكست هاي ديتا ريپورت نميتوانيد همه عكسها را در (section(Detail لود كنيد ولي در ديگر section ها يك عكس را در هر لحظه هم بوسيله كنترل image ديتا ريپورت ميتوانيد نشان دهيد نميدانم منظورم را متوجه شديد يانه
اگر باز توضيح خواستي بگو يك نمونه واست بگذارم در هر حال با اكتيو ريپورت يا كريستال ريپورت اينكار راحتتر است هر چند كه انها هم مشكلات مربوط به خود را دارند

[فاطمه وطن دوست]

سلام
من از اين دستور استفاده ميكنم ولي اجرا نميشه !!!





With Myreport.Sections("Section2").Controls
.Item("image1").Picture = LoadPicture("pathpic")
End With




درست شد ، با توجه به اين مثال ها !!!!


http://www.xtremevbtalk.com/archive/index.php/t-200960.html

فقط كلمه set رو گذاشتم درست شد .

[r0ot$harp]

خانم وطن دوست از این کد استفاده کنید حتما کار می کند .



Private Sub DataReport_Initialize()
Set Me.Sections.Item("Section1").Controls.Item("Image1").Picture = LoadPicture("C:\a.jpg")

End Sub





باتشکر احسان

[RezaS_1354]

جهت لود تصوير در ديتا ريپورت از كلمه كليدي (Set) استفاده كن
در نوع اول از مسير مشخص كه بايد حتما فرمت عكس در انتهاي نام آن قيد شود در اين مثال فرمت عكس مثلا (JPG) است و ميتواند فرمتهاي ديگري هم باشد مثل (,...,BMP,JPEG,TIF) در صورت قيد نكردن فرمت خطاي منطقي رخ ميدهد


With Myreport
Set .Sections("Section2").Controls("image1").Picture = LoadPicture("pathpic.JPG")
End With


يا نوع دوم نمايش عكس از طريق كنترل (Image) در روي فرم قبلي بنام (Image1) به كنترل تصوير در ديتا ريپورت بنام (Image1)




With Myreport
Set .Sections("Section2").Controls("image1").Picture = Image1.Picture
End With