سؤال عن الرسم البيانى

أخي الحبيب:

إذهب إلى قائمة Project ثم إلى Components و غختر منها Microsoft Chart Control و قم بعد ذلك برسم الأداة على الفورم لديك لتحصل على كل الأشكال البيانية التي تريدها , كما يمكن ربطها بقواعد البيانات...

و لك مني جزيل الشكر,,, (h)

اخونا العزيز علاء

كمل جميلك واتحفنا بمثال كما هو عهدنا بك دائما

معلهش بنتفل عليك شويتين

شكراً جزيلاً يا أخى على الرد ولكن سؤالى هل يمكن حفظ هذا الشكل البيانى أو الرسم فى ملف بأى امتداد حتى يمكن طباعته بعد ذلك... ولك جزيل الشكر.

أخي الحبيب gaf58:

لك ما طلبت , إليك مثال كامل عن إستعمال هذه الأداة , طبعا يمكنك التعديل كما تريد و يمكنك أيضا أن تقوم بربطها بقاعدة بيانات إذا أردت.

أخي besso:

لا أعتقد انه يمكن حفظ الشكل الناتج لكن يمكنك طباعة الفورم بالكامل إذا أردت كما يلي:

form1.PrintForm

و اي إستفسار أنا في خدمتك .

و لك مني جزيل الشكر,,, (h)

ms chart.rar

اخونا علاء عواد

ايه الجمــــــــــــــال ده ، ايه الحـلاوة دى ، رآآآآآآآآآآآآآآآآئع جدا

معلش انا ذودتها حبتين لكنك دائما عند حسن الظن ولم تخيب رجاؤنا

تسلم ايدك كمان ذوفك جميل جدا ، بمعني ان اختيارك لتوزيع الادوات والنسب بينها جميل

بالتوفيق دائما

بارك الله فيك اخي الفاضل

اخي الحبيب gaf58:

اقتباس

معلش انا ذودتها حبتين

عيب عليك ما تقولش كدة إحنا إخوة و أي مسألة انا في خدمتك, و شكرا على الكلمات الرقيقة....

و لك مني جزيل الشكر,,, (h)

استدراك

اقتباس

لا أعتقد انه يمكن حفظ الشكل الناتج لكن يمكنك طباعة الفورم بالكامل

اقتراح لا ادرى مدى امكانية تحقيقه

لو وضعنا ال Chart Control داخل picture box

1_طباعة مربع الصورة افضل من طباعة الفورم بالكامل حيث اننا لن نطبع الازرار و التكست الخ

هل الكلام السابق منطقي ام انني عدت للهلوسة ؟؟

شكراً جزيلاً يا أخ علاء على المساعدة وعلى مجهودك الرائع وشكراً يا أخ gaf58 على مجهودك ولكن أحب أن أوضح أنه لن يمكن طباعة الـ picture box وحده دون طباعة باقى الفورم وهذا على حد معرفتى وشكراً لكم جميعاً.

أخي الحبيب Mohamed Abbas:

يمكنك أن تقوم فعلا بطباعة الـ Picturebox وحدها و سوف تجد الكثير من الأمثلة هنا في المنتدى تتحدث عن هذا الموضوع.

أخي الحبيب gaf58:

اقتباس

هل الكلام السابق منطقي ام انني عدت للهلوسة ؟؟

كلامك منطقي 100% و لا أثر للهلوسة بعد... :lol:

و لك مني جزيل الشكر,,, (h)

اخي العزيز جدا علاء

انت طلعتلي منين !!

مش عارف اهلوس منك !!

بارك الله فيك دائما بترفع من معنوياتي

علي فكرة منذ اخر رد وانا ابحث عن كيفية How to capture msChart and save as picture

لكني لم اتوصل لحل حتي الان

شكرا جزيلا عزيزى

طيب لو عايزين تطبعوها مهى طريقة أن تكون الmschart داخل picture ثم طبع picture طريقه جميله

و لكن يمكنك ألتقاط صوره لجزء معين فى الشاشه

فيمكنك ألتقاط صوره للجزء الذى توجد فيه mschart و من ثم حفظه

و لكن يجب أن تعلم مكانها بالضبط y x و width و height

أما إذا كنتم تريدو حفظ mschart و أستدعائها من داخل برنامجك فمن الممكن حفظ قيم الmschart فى ملف ثم أستدعائها بنفس ترتيب التخزين و تطبيق القيم على mschart لعرضها

اهلا بك اخونا net_code

اقتباس

فيمكنك ألتقاط صوره للجزء الذى توجد فيه mschart و من ثم حفظه

و لكن يجب أن تعلم مكانها بالضبط y x و width و height

هذه الابعاد معروفة سواء ابعاد ال Picture box OR msChart لانها محددة بواسطة المبرمج At design-Time

يبقي كيفية نقل صورة ال msChart to pictureBox

كيف ؟؟؟

فيما عن حفظ بيانات ال msChart المفروض انها محفوظة مسبقا بقاعدة البيانات ووظيفة ال msChart هو ترجمتها لشكل بياني سهل وسريع لعقد مقارنة سريعة بين البيانات

تحياتي

شكراً لجميع الأخوة ولكنى لم أكن أعنى حفظ بيانات الchart أو كيفية طباعته. فأنا أقرأ بيانات ال chart من database ومن الممكن أن أعمل فورم أخرى أضع بها ال chart فقط دون أى شئ أخر وأضع اللون المرغوب فيه كخلفية لها وعند الضغط على زرار الطباعة يتم استدعاء هذه الفورم التى تقوم بتنفيذ حدث الطباعة لنفسها (عن طريق me.printform فى حدث form load).

ولكنى لدى ملف word عمله عن طريق أداة richtextformat وهو يتم به حفظ مجموعة من النصوص وكنت أرغب فى حفظ رسمة ال chart بداخله بأى طريقة ممكنة. وهذه هى المشكلة الحقيقية التى تواجهنى وشكراً لكم جميعاً.

أنا آسف ردى جه متأخر شويه بس علشان كنت مشغول

يمكنك ألتقاط صوره للجزء من الفورم الذى يوجد فيه mschart1

أنا أستخدم فانكشن جميله كتبها أعضاء فريق allapi

وهى

hdctopicture

و يمكنك أستخدامها كالآتى

Set Image1.Picture = hDCToPicture(GetDC(Me.hwnd), MSChart1.Left / Screen.TwipsPerPixelX, MSChart1.Top / Screen.TwipsPerPixelY, MSChart1.Width / Screen.TwipsPerPixelX, MSChart1.Height / Screen.TwipsPerPixelY)

طبعا قسمنا القيم على screen.twipsperpixelx و screen.twipsperpixely

لتحويل القيم للبيكسل

و بهذا نحصل على صوره للmschart1

و فى مثال فى المرفقات للطريقه دى و أى سؤال أنا جاهز

و أى خدمه أخى gaf58

و على ما أظن أن كده مشكلتك أتحلت أخى besso

و شكرا

mschart to pic.rar

بارك الله فيك اخي العزيز net_code

والله انا عمال احاول في كود how to get control image و موش عارف قيه حاجة غلط

لو مافيش مانع ياريت تقولولي الخطأ فين ؟

'project ----> microsot chart control 6.0
Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_MENU = &H12
Private Const VK_SNAPSHOT = &H2C
Private Const KEYEVENTF_KEYUP = &H2

Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

' Offset from corner of border to usable form area.
Private m_XOffset As Integer
Private m_YOffset As Integer
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
' Copy the image of this control onto the
' destination PictureBox.
Private Sub CopyControlImage(ByVal destination As PictureBox, ByVal target As Control)
    destination.Width = target.Width + destination.Width - destination.ScaleWidth
    destination.Height = target.Height + destination.Height - destination.ScaleHeight

    destination.PaintPicture _
        picHidden.Picture, 0, 0, _
        target.Width, target.Height, _
        target.Left + m_XOffset, target.Top + m_YOffset, _
        target.Width, target.Height
    destination.Picture = destination.Image
End Sub
' Get the offset from the corner of the border.
Private Sub GetFormOffset()
Dim pt As POINTAPI

    pt.X = 0
    pt.Y = 0
    ClientToScreen Me.hwnd, pt

    m_XOffset = pt.X - ScaleX(Me.Left, vbTwips, vbPixels)
    m_YOffset = pt.Y - ScaleY(Me.Top, vbTwips, vbPixels)
End Sub
' Copythe form's image into picHidden.
Private Function GetFormPicture()
#Const WINDOWS_VERSION = "Windows2000"

Dim alt_key As Long

    ' Capture an image of the form in the clipboard.
    ' Press Alt.
    alt_key = MapVirtualKey(VK_MENU, 0)
    keybd_event VK_MENU, alt_key, 0, 0
    DoEvents

    ' Press Print Scrn.
    #If WINDOWS_VERSION = "Windows2000" Then
        keybd_event VK_SNAPSHOT, 0, 0, 0
    #Else
        keybd_event VK_SNAPSHOT, 1, 0, 0
    #End If
    DoEvents

    ' Release Alt.
    keybd_event VK_MENU, alt_key, KEYEVENTF_KEYUP, 0
    DoEvents

    ' Make picHidden big enough.
    picHidden.BorderStyle = vbBSNone
    picHidden.Width = Me.Width
    picHidden.Height = Me.Height

    ' Paste the image into picHidden.
    picHidden.Picture = Clipboard.GetData(vbCFBitmap)
End Function
Sub GetPictures()
    ' Copy the form's image into picHidden.
    GetFormPicture

    ' Get the offset from our border to the form area.
    GetFormOffset

    ' Clip out the control images.
    CopyControlImage picResult, MSChart1


End Sub

Private Sub Command1_Click()
GetPictures
End Sub

Private Sub Form_Load()
   ' ScaleMode = vbPixels
    picHidden.ScaleMode = vbPixels
    picResult.ScaleMode = vbPixels
    picResult.AutoRedraw = True

Me.Move (Screen.Width - Me.ScaleWidth) / 2, (Screen.Height - Me.ScaleHeight) / 2
picResult.Move 120, 720, 7935, 4815
MSChart1.Move 0, 0, picResult.ScaleWidth, picResult.ScaleHeight

GetPictures
End Sub

Private Sub m2_Click()
GetPictures
'
'Save picture
CM.CancelError = True
On Error GoTo ja
CM.Filter = "Bitmap|*.bmp"
CM.ShowSave
SavePicture picResult.Image, CM.FileName
Exit Sub
ja:
Exit Sub

End Sub

Private Sub MSChart1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu menue

End Sub

بصراحة الموضوع حلو و موش عاوزه يمر هباء

اكرر شكرى

الملف مرفق

SaveMSChart image.zip

شكراً جزيلاً يا أخ net_code على هذه المساعدة المجدية، سوف أقوم بتجربة الملف الذى أرفقته وأتمنى أن أصل لمطلبى .. وأتمنى أن يتسع صدرك للمتابعة حتى إنهاء هذا المثال .. وأعد أننى سوف أضيف المثال الذى أقوم بعمله فور الانتهاء منه لكى يستفيد منه الجميع.

العفو أخوانى أنا فقط أريد المساعده

و بالنسبه للأخ qaf58

تقريبا الخطأ فى GetFormOffset

و لكنى غير متأكد لأنى لم أفحص المثال بدقه

أعتذر عن ذلك ولكنى مشغول سأفحصه و سأخبرك بالنتيجه

و لكن يمكنك أستعمال المثال الذى وضعته فهو يؤدى الغرض

و شكرا

net_code كتب:

العفو أخوانى أنا فقط أريد المساعده

و بالنسبه للأخ qaf58

تقريبا الخطأ فى GetFormOffset

و لكنى غير متأكد لأنى لم أفحص المثال بدقه

أعتذر عن ذلك ولكنى مشغول سأفحصه و سأخبرك بالنتيجه

و لكن يمكنك أستعمال المثال الذى وضعته فهو يؤدى الغرض

و شكرا

←

شكرا جزيلا اخي العزيز net_code علي الاهتمام

بلا شك مثالك رآئع وأنا محتفظ به بالطبع في مكتبتي

لكن لاني هاوى فانا احب التنوع ولست متعجل بالطبع علي الرد ولكني فقط مستهويني ان اعرف اخطائى و اتعلم منها

اكرر شكرى وامتناني

اقتباس

تقريبا الخطأ فى GetFormOffset

بالفعل اخي العزيز

بتعديل

pt.X = 0
   pt.Y = 0
   ClientToScreen Me.hwnd, pt

لتصبح

    pt.X = 0
    pt.Y = 0
    ClientToScreen picResult.hwnd, pt

والحمد لله عرفت غلطتي و ارتاح بالي اخيرا

شكرا جزيلا لكل الاخوة الاعزاء الذين ساهموا في هذا الموضوع

وجزاهم الله عني خير الجزاء

الشغل مرحلة ما قبل التشطيب

How to get and save control image

بأذن الله سوف ادمج هذا المثال مع مثال اخونا الكريم علاء عواد

بمجرد الانتهاء سوف ارفع المثال المدمج باذن الله

تحياتي

Copy of SaveMSChart image.zip

gaf58 كتب:

بالفعل اخي العزيز

بتعديل

pt.X = 0
   pt.Y = 0
   ClientToScreen Me.hwnd, pt

لتصبح

    pt.X = 0
    pt.Y = 0
    ClientToScreen picResult.hwnd, pt

←

نعم , هذا هو الخطأ

أهنئك على معرفته

و على فكره فكرتك فى المثال ده رائعه و مستنيين المثال الكامل

اقتباس

و على فكره فكرتك فى المثال ده رائعه و مستنيين المثال الكامل

شكرا جزيلا اخي الكريم net_code

بالطبع ليست فكرتي لكنه مثال قمت بتحميله واجراء تحويرات طفيفة ليناسب موضوعنا و سوف تجده في المرفقات

howto_get_control_image.zip

المثال المدمج

للفحص والتمحيص ( موش عارف ايه تمحيص دى) و التحقيق وتصحيح الاخطاء

أين اخونا علاء عواد ؟؟

أوعي نكون زعلان مني !!

يبقي كود طباعة الصورة ، حتي الآن لم اجد الكود المناسب عندى اكواد طباعة ماتملاش العين ، فالصو يعني

MSChart_semiFinal.zip