Posts

Showing posts from March, 2012

Visual Basic Online Course - Excel 2003 Part 6

Image
بسم الله الرحمن الرحيم VB6 Excel فى الدرس السابق تعلمنا كيفية طباعة الـ Excel. درس اليوم ان شاء الله تعالى يتناول موضوع هام و هو التنسيق و لكن ليس كما نعرفه "بدون الأكواد" و كيفية ربط الـ Excel الفيجوال بيزك و حفظ التغييرات عليه و عرضه فى الفيجوال بيزك 6 الجـــــــــزء السادس - موضوعات هامه الموضوع الأول : التنسيق سنقوم بالتطبيق على المثال السابق و المطلوب هو : 1) عمل اطار للفاتورة 2) تكبير خط الـ Heading للفاتورة 3) جعل الأرقام مقربه لأقرب رقمين عشريين 4) تلوين عنوان الفاتورة بلون مخالف و الجسم الفاتورة بلون اخر 5) توسيع حجم الخلايا . و فى النهايه ستظهر الفاتورة كما بالشكل التالى : vb6 Excel و سنبدأ الأن ببرمجه المشروع لاضافة أكواد تمكننا من العمل على الـ Excel ليظهر بهذا الشكل من داخل الـ Visual Basic 6.0 مع العلم أنه يمكن عمل ذلك مباشرة من داخل الـ Excel و لا يزال ضمن البرنامج و لكن اذا كنت لا تريد أن يفتح أى شخص ملف الـ Excel التابع للبرنامج و تغيير تنسيقه و قمت بحمايته فاضافة أكواد لتنسيق الـ Excel من داخل البرنامج هو الحل

Visual Basic Online Course - Excel 2003 Part 5

بسم الله الرحمن الرحيم VB6 Excel فى الدرس السابق تعلمنا كيفية استيراد البيانات من الـ Excel. درس اليوم ان شاء الله تعالى يتناول كيفية طباعة الإكسل . الجـــــــــزء الخامس - طباعة الإكسل و لطباعة محتويات ملف Excel يجب ان نقوم : 1) تحديد مكانه 2) فتحه 3) تعيين الـ Sheet المراد طباعته 4) تحديد المدى Range المراد طباعته 5) تنفيذ عملية الطباعه و بالتطبيق على المثال السابق "حساب فاتورة" نضيف الى الفورم مفتاح بعنوان "طباعة فاتورة" باسم Command3 و المطلوب هو طباعة الفاتورة الحاليه و يوجد طريقتين : أ) تحديد الطباعه من الإكسل نفسه ب) تحديد الطباعه من الفيجوال بيزك و سنعتمد الطريقه الأولى الأن حيث سنفتح ملف الإكسل و سنحدد الفاتورة بالكامل و من File نختار Print Area ثم Set Print Area ثم نغلق الإكسل و نحفظ التغييرات . نفتح الـ VB 6.0 و فى الحدث Command3_Click نكتب الكود التالى : oXL.Workbooks.Open App.Path & "/ExcelFile.Xls", True, True Set oSheet = oXL.ActiveSheet oXL.DisplayAlerts = False oSheet.PageSetup.Orien

Visual Basic Online Course - Excel 2003 Part 4

بسم الله الرحمن الرحيم فى الدرس السابق تعلمنا كيفية استيراد البيانات من الـ Excel. درس اليوم ان شاء الله تعالى يتناول كيفية تصدير Export البيانات الى Excel 2003. الجـــــــــزء الرابع - تصدير البيانات الى Excel بعد ان عالجنا كيفية استيراد البيانات فى الجزء السابق, نتعامل الان مع موضوع شبيه و هو تصدير البيانات الى الـ Excel مما يجعل التعامل مع الـ Excel مفيد الى حد كبير و سنقوم بالتطبيق على المثال السابق, لذا قم بتحميله من الدرس السابق. بداية سنقوم باضافة مفتاح على الفورم بعنوان "تصدير الى الاكسيل" باسم Command2 و المطلوب هو تحديث الجدول الموجود فى الاكسل الذى قمنا باستيراده فى الجزء السابق. و فى البداية سنقوم باستيراد البيانات أولا عن طريق Command1 و عندما يقوم البرنامج بعرض البيانات سنقوم بتحديث البيانات المعروضه . فى الحدث Command1_Click سنكتب الكود التالى : و ما قمنا به هنا هو كالتالى : - فتح الاكسل تمهيدا لتصدير البيانات اليه حيث أول معامل هو امتداد+اسم ملف الـ Excel و المعامل الثانى UpdateLinks و المعامل الثالث ReadOnly = False لأ

Visual Basic Online Course - Excel 2003 Part 3

Image
بسم الله الرحمن الرحيم فى الدرس السابق تناولنا دراسة فتح و تعديل و حفظ ملف اكسل موضوع اليوم ان شاء الله تعالى يتناول استيراد البيانات من الأكسل الجـــــــــزء الثالث - استيراد البيانات من Excel لكى يتم استيراد البيانات من الـ Excel بطريقة سليمه و مفيده دعونا نسترجع طريقة العمل مع الـ Access 2003 حيث نختار قاعدة البيانات و تحديد مكانها و فتحها ثم فتح الجدول و تحديد السجل ثم الحقل و فى النهايه نقوم باستيراد البيانات الى الـ Form عن طريق مثلا ADO 2.8 او DAO 3.5 . و الميزه الكبيره من استيراد البيانات من الـ Excel فى أغلب الاوقات تعود الى وجود كميات من البيانات المطلوب معالجتها فى مكان واحد بطرق مختلفة خارج الـ Excel اما لأهميتها أو لصعوبة تطبيق تلك المعالجه من خلال الـ Excel ففى النهاية كون الـ Excel جزء من مجموعة الـ Microsoft Office فان ذلك يجعله Shared فى معظم الأوقات حتى فى حالة وجود Password فان فك الـ Password أصبح فى متناول الجميع أى انه غير أمن . وظيفة الـ Visual Basic هنا هى الاعتماد على الـ Excel فى عرض ثم معالجة البيانات . فى المثال السابق قمنا بعمل ملف

Visual Basic Online Course - Excel 2003 Part 2

Image
بسم الله الرحمن الرحيم فى الموضوع السابق تناولنا دراسة انشاء ملف اكسل جديد و حفظه موضوع اليوم ان شاء الله تعالى يتناول فتح و تعديل و حفظ ملف اكسل الجـــــــــزء الثانى - فتح و تعديل و حفظ ملف اكسل باذن الله تعالى سنستخدام مشروع المثال السابق و الذى سيتم رفعه فى نهاية الأجزاء ان شاء الله تعالى , حيث سنقوم بالضغط على New لانشاء ملف Excel جديد حيث سيفتح ملف الـ Excel على الشاشة ثم نقوم بحفظه فارغ بدون تعديل عليه باسم ExcelFile من مفتاح Save As الموجود على الفورم ثم نغلق الـ Excel الذى نلاحظ أنه بالفعل تغير اسمه فى شريد عنوان الـ Excel و نغلق البرنامج و نتأكد من وجوده فى المجلد الموجود به المشروع أو اذا كنت تقوم بنفس مثالى ستجده فى المجلد Excel كما بالصورة التاليه : شكل المجلد المفروض أننا نقوم الأن بالتعديل على ملف الـ Excel باستخدام الكود من داخل الـ Visual Basic و هنا نفرق بين أمرين : 1) التعديل على ملف الـ Excel الموجود به بيانات مسبقا و حفظ التغييرات . 2) بداية الكتابه فى ملف الـ Excel . الان نقوم بفتح الاكسل ExcelFile عن طريق البرنامج كالتالى :

Visual Basic Online Course - Blackboard example

Image
بسم الله الرحمن الرحيم فى الدرس السابق درسنا حركة الماوس و تحدثنا عن مشروع سبوره Blackboard كمثال على الرسم باستخدام الماوس و شكل فولدر المشروع كالتالى : Folder - BlackBoard.VBp و شكل التصميم للمشروع كالتالى : Form Design  و بعد الانتهاء من تصميم المشروع يجب حفظة و اغلاقة و اعادة فتحه مره أخرى الأن .......  المطلوب : و المطلوب هنا عباره عن 1) ملأ الـ Labels بالألوان "8 الوان" و عن الضغط على أى Label نختار لونه و نقوم بالرسم عن طريقه على الفورم . 2) بعد الانتهاء من الرسم نتوجه الى القائمه ة نختار New لمسح جميع محتويات PicDraw من الرسم الموجود عليها و البدء من جديد . الطريقه  : يجب ان نحدد ما اذا كان الماوس فى وضع الرسم أم لا و يتم ذلك عن طريق تعرف متغير Boolean و هو DrawOn فى منطقة General Declaration كالتالى : Option Explicit Dim DrawOn As Boolean ثم ملأ الـ Labels بالألــــــــوان كالتالى فى الحدث Form_Load : لاحظ أن (I+8) معناها ألوان واضحه و زاهيه و يمكنك حذف الـ 8 و ستجد الألوان قاتمه فى كل مره تغير الرقم .

Visual Basic Online Course - Mouse Cursor Events

بسم الله الرحمن الرحيم التعامل مع الماوس Mouse Events In Visual Basic 6.0 و هو موضوع مرتبط ارتباطا كبيرا بالتعامل مع الـ Graphics الا اننى لا أعتبره بقيه للدرس السابق Mouse Events In Visual Basic 6.0 و الـ Mouse هو أداه لصناعة الـ Graphics اكثر من أى اداه اخرى للمستخدم و نحن نستخدم الـ Mouse لعمل Click و DblClick على الكائنات Objects لخاصة بالـ VB 6.0 . و هنا فى هذا الدرس نتعلم كيفية ستخدام باقى أحداث الـ Mouse للرسم Draw على الـ Form و Picture Boxes فى بيئة الـ Visual Basic 6.0 . MouseDown Event حدث الـ MouseDown : حيث يصبح الحدث فعال أو قيد التنفيذ عند الضغط على زر الماوس و مؤشر الماوس فوق الـ Object المراد تنفيذ الحدث عليه و شكل هذا الاجراء يكون بالنسبه للـ Form كالتالى : Sub ObjectName_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) . . End Sub المعاملات السابقه تدل على : Button : أى زر من أزرار الماوس تم الضغط عليه Shift : يفيد حالة الضغط على مفتاح Shift - Ctrl - Alt X,Y : احداثيات مؤشر الماوس عند ال