PDA

View Full Version : تغییر فونت و سایز یک پارامتر در حال اجرا در گزارش


VB.NET2005
دوشنبه 29 بهمن 1386, 20:53 عصر
سلام دوستان :
من در حال اجرای برنامه مقدار یک تکست باکس رو به یه پارامتر خاص در گزارشم نسبت دادم .
و حالا سوالم اینه که چه طور میتونم فونت و سایزش رو هم در حال اجرا تغییر بدم .

برای پاس دادن مقدار از کد زیر استفاده میکنم :


paramField4.ParameterFieldName = "Date"
discreteVal4.Value = Now
paramField4.CurrentValues.Add(discreteVal4)
paramFields.Add(paramField4)
VB.NET2005
سه شنبه 30 بهمن 1386, 12:48 عصر
دوستان نظری ندارند ؟ ؟ ؟
komail_sh
سه شنبه 30 بهمن 1386, 13:18 عصر
سلام دوست عزیز
میتونی از دستور زیر در form load و یا قبل از شو کردن فرم ریپورتت استفاده کنی

CrKol.text4.Font="b mitra"
komail_sh
سه شنبه 30 بهمن 1386, 13:25 عصر
البته در کریستال دات نت نیست و من هم نتونستم این کار رو اونجا انجام بدم و گزارشم رو با کریستال 9 و در ویژوال بیسیک 6 نوشتم و از توی برنامم اونو صدا زدم.

اگه شما راهی پیدا کردی ممنون میشم که اونو در اختیار من هم بذاری
VB.NET2005
سه شنبه 30 بهمن 1386, 14:32 عصر
حتما دوست عزیز .
ولی من توی گزارش میخام این کارو بکنم .
komail_sh
سه شنبه 30 بهمن 1386, 15:13 عصر
یعنی بعد از اینکه گزارش به کاربر نشون داده شد؟
VB.NET2005
سه شنبه 30 بهمن 1386, 15:35 عصر
نه دوست عزیز قبل از نمایش گزارش .
komail_sh
سه شنبه 30 بهمن 1386, 15:49 عصر
چیزی که من گفتم برای همینه
من توی دات نت پیداش نکردم ولی توی vb6 با کریستال 9 این کارو کردم و از توی برنامم صداش زدم یعنی اینکه گزارشمو با vb6 نوشتم و دستورات لازم رو توی فرم لود گزاشتم(مثلا از کدوم tabelبخونه ویا فونتها چی باشه)
و باید
اسم فایل کریستال.اسم آبجکت.font=اسم فونت

البته یه فرم تنضیمات هم درست کردم که کاربر اونجا میتونه فونت و سایز و چینش و بولد یا ایتالیک اونو انتخاب کنه
VB.NET2005
سه شنبه 30 بهمن 1386, 16:34 عصر
ولی کده دات نتش . . .
komail_sh
سه شنبه 30 بهمن 1386, 16:44 عصر
کد دات نت چی؟
اگه منظورت تغییر فونتاس منم پیدا نکردم اگه پیدا کردی به من هم بده ممنون میشم
VB.NET2005
سه شنبه 30 بهمن 1386, 19:04 عصر
من در حال اجرای برنامه مقدار یک تکست باکس رو به یه پارامتر خاص در گزارشم نسبت دادم .
و حالا سوالم اینه که چه طور میتونم فونت و سایزش رو هم در حال اجرا قبل از نمایش گزارش تغییر بدم .
komail_sh
چهارشنبه 01 اسفند 1386, 11:27 صبح
dim cr as new crystalform
Dim obj As CrystalDecisions.CrystalReports.Engine.FieldObject
Dim f As Font

obj = cr.Section1.ReportObjects("dat1")

f = New System.Drawing.Font(font, size, FontStyle.Bold)

obj.ApplyFont(f)
komail_sh
چهارشنبه 01 اسفند 1386, 11:30 صبح
تستش کن به منم خبر بده که چی شد. من تست کردم کار کرد
komail_sh
چهارشنبه 01 اسفند 1386, 11:35 صبح
تستش کن به منم خبر بده که چی شد . من تست کردم کار کرد
VB.NET2005
چهارشنبه 01 اسفند 1386, 14:54 عصر
دوسته عزیز واس من که جواب نداد . از ای خط Error میگیره : obj = cr.Section1.ReportObjects("dat1")
البته من به جای dat1 پارامتر خودمو گذاشتم .
komail_sh
چهارشنبه 01 اسفند 1386, 18:15 عصر
میتونی اون قسمت از برنامه رو برام بفرستی؟
komail_sh
چهارشنبه 01 اسفند 1386, 18:22 عصر
به Section دقت کردی که تو کودوم Section هست