نمایش یک دایره در دیتا ریپورت با برنامه نویسی

[star]

سلام
من یه برنامه دارم که یک شرط را چک می کند بعد باید یکی از 40 دایره ای را که دارم در دیتا ریپورت نمایش دهد تا چاپ کنم لطفا مرا راهنمائی کنید

[Neeloofar]

سلام

شما اگه میخوای از خود کنترل Shape دیتاریپورت برای کشیدن دایره استفاده کنید، راهش اینه که ابتدا در هر Section که مایلید یک کنترل rptShape قرار داده و خصیصه Shape اونو برابر rptShpCircle قرار بدید و قبل یا بعد از نمایش ریپورت طول و عرض اون دایره رو تنظیم کنید (اندازه ها بر Twip میباشد:


DataReport1.Sections("Section1").Controls("Shape1").Height = 3000 'Twip
DataReport1.Sections("Section1").Controls("Shape1").Width = 3000 'Twip
'DataReport1.Refresh

خط سوم از خط بالا در صورتی بکاربرده میشه که ریپورت باز باشه و بعداً شما اقدام تغییر اندازه دایره نمایید. اگر هم ریپورت هنوز باز نشده نیاز به خط سوم نیست.

اگر دایره رو بصورت یک تصویر داری یک کنترل rptImage به Section مورد نظر در ریپورت اضافه کن و قبل یا بعد از نمایش ریپورت تصویر رو ست کن:



Set DataReport1.Sections("Section1").Controls("Image1").Picture = Form1.Picture1.Picture
'DataReport1.Refresh


برای تغییر سایز تصویر هم از کد ذیل استفاده نمایید:


DataReport1.Sections("Section1").Controls("Image1").Height = 3000 'Twip
DataReport1.Sections("Section1").Controls("Image1").Width = 3000 'Twip
'DataReport1.Refresh


خط سوم از خط بالا در صورتی بکاربرده میشه که ریپورت باز باشه و بعداً شما اقدام تنظیم تصویر نمایید. اگر هم ریپورت هنوز باز نشده نیاز به خط سوم نیست.

از طریق خصوصیت SizeMode هم میتونید نوع نمایش رو تعیین کنید.


توجه کنید: Section1 برای قسمت Detail هست

موفق باشید!