الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه besso في 28 سبتمبر 2005 · 40 رد · 5,256 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#26

السلام عليكم و رحمة الله و بركاته:

لا أدري ماذا أقول ... لكن فعلا إذا حضر الماء بطل التيمم ..... بوجود كل الأخوة الرائعين gaf58 و net_code أعتقد أنه لا ضرورة لوجودي بين هؤلاء الرائعين ....

بصراحة ليس هناك أروع من هذا الذي أرى ... و أخي الفاضل gaf58 بسم الله ما شاء اله عليك و تقولي بهلوس ؟؟ أنا اللي بهلوس دلوقتي ...

عموما أنا نظرت نظرة سريعة على الكود الجميل الذي أرفقته و هو رائع فعلا لكن سأتفحصه على مهل مرة أخرى و سأحاول أن أضع لك حلولا أخرى في القريب العاجل إن شاء الله...

لكن بالمناسبة أحب أن أذكركم أن السائل أصلا أراد أن يطبع هذه الصورة داخل تكست لكي تظهر كأنها مطبوعة كملف word أو أكسل و يحتوي على الرسومات البيانية..

تم تعديل هذه المشاركة بواسطة Alaa Awaad في 3 أكتوبر 2005 في 22:46

____________________________________________________________________________

{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)

____________________________________________________________________________

In a world without walls and fences, who needs Windows and Gates

مدونتي

#27

يآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآه

أخيرا حنيت علينا ،،،،،، وحشتني جدا يا سيدى ،،،،،،،،، يظهر اني ادمنتك

ماء ايه و تيمم ايه اولا سبب اشتراكي في الموضوع اساسا شكل الفورم بتاعك وابديت هذه الملاحظه في حينه فانا لست من المهتمين اوى بالداتا بيز و الرسم البياني

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

علاوة علي اني ليس عندى و لا مثال عن ال MSChart وهذا المثال اضافة لمكتبتي

انضمام صديق جديد من التقال اخونا net_cod بالطبع مثير للخيال

بصراحة باحب اللعب مع الكبار

اقتباس
لكن سأتفحصه على مهل مرة أخرى و سأحاول أن أضع لك حلولا أخرى في القريب العاجل إن شاء الله...

كده اللعب يحلو

اقتباس
لكن بالمناسبة أحب أن أذكركم أن السائل أصلا أراد أن يطبع هذه الصورة داخل تكست لكي تظهر كأنها مطبوعة كملف word أو أكسل و يحتوي على الرسومات البيانية..

اخونا العزيز besso قال أولا

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

مما حدا بنا للبحث عن طريقة لحفظ صورة الشارت سواء انا او صديقنا net_cod

اما ان طريقة عرض السؤال كانت غامضة او اننا اسأنا الفهم ،،،،،،،،، في كل الاحوال كسبنا ثلاثة امثلة علي ما اعتقد ان فيهم اضافة كويسة

طالما دخلنا في هذا الطريق و لو بالخطأ ،،، وجب ان نكمله جنبا الي جنب مع السؤال الجديد وهو كيغية الحفظ في الوورد او الاكسل الخ ...............

يظهر اني هوست كتيييييييييير

السلام عليكم و رحمة الله و بركاته

وكل عام وانتم بخير

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#28

يا باشا إنت واحشني أكتر و على فكرة انا بعتلك إمبارح على الخاص

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

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

معلش يا باشا كدة إنت محتاج نضارة جديدة :lol:

عموما زي ما إنت قلت بالظبط

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

و إن شاء الله نستفيد بشكل جيد من الأمثلة...

تم تعديل هذه المشاركة بواسطة Alaa Awaad في 4 أكتوبر 2005 في 00:42

____________________________________________________________________________

{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)

____________________________________________________________________________

In a world without walls and fences, who needs Windows and Gates

مدونتي

#29

كده اللعب هيحلو

بدخول الأخ الكريم الرائع Alaa Awaad

و أنا أغيب 3 أو 4 ساعات بس ألاقى كل ده حصل

وبصراحه المثال بعد تعديله أصبح أكثر من رائع الله ينور عليك أخى gaf58

و أنت عدلت مشكله كنت ناوى أقولك عليها و هى أن savemschart كانت بتتطلع مع الصوره و لكنك تجاوزتها

و أى مساعده أنا جاهز على قد معرفتى

لا تراجع و لا إستسلام

#30

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

سعيد جدا بصحبتكم

انا بحب اللمة

ربنا يديم المعرف

تحياتي

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#31

السلام عليكم و رحمة الله و بركته

اخواني الكرام عايزين نكمل المثال

ناقص الطباعة ان لم يكن هناك ملاحظات علي الشغل السابق

مرفق مثال جيد لطباعة مربع الصورة

لكن مطلوب تحويره

علي فرض ان ال printer not installed

يظهر المربعات التالية كما مع ACDSEE3

post-29951-1128455392_thumb.gif

post-29951-1128455463_thumb.gif

post-29951-1128455515_thumb.gif

post-29951-1128455567_thumb.gif

howto_print_picture_large.zip

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#32

you can save the chart to the harddisk simply

To save the chart to the harddisk do the following

1-under command button write the following code

mschart1.editcopy
savepicture clipboard.Getdata(VBCFDIB), path

path : is the location where you want the chart to be saved

تم تعديل هذه المشاركة بواسطة mostafazidani في 5 أكتوبر 2005 في 08:40

*************************************************

**************************************************

مصطفى زيداني

#33

مثال الطبع كويس

وده علشان طبع الصوره كبيره

بس لاحظ أن المطلوب فى المثال الأساسى أنه هيطبعه ضمن ملف وورد

أخى mostafazidani

رائع جدا

و بصراحه دى أول مره أشوف الخاصيه editcopy

بس المثال بتاعنا ينفع مع أى أداة حيث يمكن أستخدامه لأخذ صوره لأى أداة على الفورم

لا تراجع و لا إستسلام

#34

اخي العزيز net_code

عن طريق سوء الفهم قمنا بعمل شئ موش بطال ، ننجزه ام نتركه لانه جميل بس جاء عن طريق الخطأ ؟

جزثية طباعة الصورة ضمن ملف وورد اعتقد انه لازم استخدام ال OLE والله اعلم فانا ليس لي سابق خبرة

تحياتي

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#35
mostafazidani كتب:
you  can save the chart to the harddisk simply 

To save the chart  to the harddisk do the following 

1-under command button write the following code

mschart1.editcopy
savepicture clipboard.Getdata(VBCFDIB), path

path : is the location where you want the chart to be saved

مرحبا بك اخونا الكريم mostafazidani

فعلا جميل جدا الكود الذى ارفقته

و اعتقد انه يمكن عمله مع اى كونترول

اسمحلي سوف اضيف ال PATH للسهولة لمن يريد تجربة الكود لمن لا يعرف الي ان تضبف COMMONDIALOG

Private Sub Command1_Click()
MSChart1.EditCopy
SavePicture Clipboard.GetData(vbCFDIB), App.Path + "\GAF.BMP"
End Sub

تحياتي

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#36

أخى العزيز gaf58

المثال هنكمله يعنى هنكمله

بس أنا عايز بس أعرف هو أنشأ الملف rtf و لا doc

لأن بصراحه مش عارف إزاى أنا ممكن أعمل ملف doc من richtext هه :lol:

المهم علشان لو هو بيستعمل الأداة richtextbox

يبقى أحنا ممكن نضيف الصوره

عن طريق نسخها للحافظه ثم لصقها فى الrichtextbox

richtextbox1.selrtf = clipboard.getdata

ثم طبع ال richtextbox كله

richtextbox1.selprint(printer.hdc)

ولو حد يعرف طريقه أسهل ياريت يقول

هذا ما لدى الآن

و شكرا

لا تراجع و لا إستسلام

#37

حبيب قلبي

والنبي كود الطباعة موش عارف احوره عشان ياخد الشكل الاحترافي لو ان مافيش برنتر عند المستخدم

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#38

أخوتي الأحباء:

أعذروني لعدم تمكني من متابعة التطورات المذهلة التي حققتموها جميعا ..

عموما أرفقت مثال قمت بتحضيره سريع (تصبيرة يعني (h) ) يقوم بكل ما هو مطلوب من البرنامج من أخذ صورة للأداة بإستخدام الكود الذي أرفقه الأخ الفاضل mostafazidani و فكرة الـ ole التي ذكرها الأخ الحبيب gaf58 لكن طبعا داخل أداة الـ Richtextbox بإستخدام الأمر :

Richtextbox1.oleobject.Add

بالإضافة لأمر الطباعة الذي ذكره الأخ الحبيب net_code ,,,

ثم في النهاية حفظ الملف كملف word ..

و ما قمت إلا بتوفيق هذه الأكواد فقط .....

و لكن هناك المزيد من التحسينات في الأداء و الكود أيضا , فالعمل لم ينتهي بعد ........

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

ms chart.rar

تم تعديل هذه المشاركة بواسطة Alaa Awaad في 6 أكتوبر 2005 في 01:38

____________________________________________________________________________

{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)

____________________________________________________________________________

In a world without walls and fences, who needs Windows and Gates

مدونتي

#39

الموضوع جميل جدااااااا

انا كنت فى حاجة للاسئلة بالضبط والأجوبة

شكرااااااا

#40

إخواني الاعزاء بما أننا استطعنا أن نحصل على صورة من الاداة و حفظها

فلما لا نطبعها باستخدام الـ DataReport سيكون أجمل و أحلى

إليكم المثال بعد التعديل

أتمنى لكم التوفيق .

ms_chart.rar

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#41

يعطيكم العافية

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…