PDA

View Full Version : سوال: کاربرد CodeJock ChartBuilder



ali190
شنبه 22 بهمن 1390, 13:19 عصر
باسلام و عرض خسته نباشید
میخواستم بپرسم از دوستان کسی در مورد کاربرد ChartBuilder tool از مجموعه کدجاک اطلاعی داره؟
ممنونم
یاعلی

محسن واژدی
شنبه 22 بهمن 1390, 14:14 عصر
سلام
ابزار Chart Builder به ما امکان طراحی بصری نمودار و ذخیره آن در قالب XML و نمایش آن در کامپوننت Chart است، برای بارگذاری xml ذخیره شده هم از دستور زیر استفاده میکنیم:

Private Sub Command1_Click()
Dim pPEx As PropExchange
With pPEx
Set pPEx = ChartControlGlobalSettings.CreatePropExchange
pPEx.CreateAsXML True, "Content"
pPEx.LoadFromFile ("D:\Untitled.xml")
ChartControl1.Content.DoPropExchange pPEx
End With
End Sub


موفق باشید

ali190
شنبه 22 بهمن 1390, 14:37 عصر
یعنی این ابزار برای چارتهایی که در برناممنون داریم Theme درست میکنه

محسن واژدی
شنبه 22 بهمن 1390, 15:53 عصر
خیر فقط میتوانیم چارتهایی را در این ابزار طراحی و در فرمت xml در کنترل chart نمایش دهیم
برای طراحی تم سفارشی هم ابزار دیگری در کدجاک بنام Skin Builder وجود دارد

موفق باشید

ali190
شنبه 22 بهمن 1390, 16:53 عصر
ممنون از توضیحاتتون
یعنی نمیشه اعدادی که در چارت ثبت شده رو تغییر داد؟
یعنی یک چارت قابل تغییر نیست؟

محسن واژدی
شنبه 22 بهمن 1390, 20:29 عصر
چرا، اعداد چارت بارگذاری شده را همانند چارتی که در زمان اجرا چاپ میکنیم میتوانیم تغییر دهیم

موفق دهیم

ali190
شنبه 22 بهمن 1390, 22:10 عصر
سلام
ممنونم محسن جان
شرمنده ام امکانش هست در این مورد یک مثال بیاری(نمونه پروژه)
تو Samle های خود Codejock همه خواص با کد تعیین شده
ممنون میشم از لطفت
یاعلی

محسن واژدی
شنبه 22 بهمن 1390, 22:40 عصر
سلام
این نمونه را بررسی کنید

موفق باشید

ali190
یک شنبه 23 بهمن 1390, 00:17 صبح
سلام
ممنون از نمونه پروژه
یه سئوال دیگه هم داشتم
ظاهراً در این tools میشه Appearance یک نمودار رو هم طراحی کرد
چطور میتونم Appearance رو هم مثل روش بالا برای نمودار set کنم؟
ممنونم
یاعلی

محسن واژدی
دوشنبه 24 بهمن 1390, 17:37 عصر
سلام
امکانات زیادی ندارد، به عنوان مثال سه مقدار زیر رنگ ظاهری چارت را تغییر میدهد:

ChartControl1.Content.Appearance.SetAppearance "Black"
ChartControl1.Content.Appearance.SetAppearance "Nature"
ChartControl1.Content.Appearance.SetAppearance "Gray"


یا تغییر استیل اشاره گرها:
Dim sPS As New ChartPointSeriesStyle
Set ChartControl1.Content.Series(0).Style = sPS
sPS.Marker.Type = xtpChartMarkerCircle