VB6 & MS Access 2003 | Classic Development, Tutorials & Legacy Programming

بعد أن انتهينا من أكواد شاشة frmTranspForm أكواد شاشة frmShapedForm تعريف متغير mChildFormRegion نوعه Long - أكواد الحدث Form_Load :    تعريف المتغير i    تحديد خصية WindowState للفورم كى تكون vbNormal    قيمة الـ TextBox .   جملة شرط ..... mShape هو متغير عرفناه فى الموديول سابقا Integer و تحدد قيمته فى الفورم الاولى frmTranspForm فى الـ Command4 حيث يعبر عن قيمة شكل الفورم ... و هنا جملة الشرط : - اذا كان mShape = صفر .... اى اذا كان الزر المضغوط عليه هو Index = 0 للـ Command4 باسم Shape1 - نفذ على التوالى الاتى ... (x,y) هما الجزء العلوى على اليسار و هما الجزء السفلى على اليمين و حذف الطول و العرض !! - المتغير mChildFormRegion الذى تم تعريفه فى General Declaration لهذه الفورم و نوعه Long يساوى قيمة الداله CreateRoundRectRgn و هى داله تم شرحها فى الموديول  و وظيفتها عمل منطقة مستطيله دائرية الاطراف و معاملاتها هى نفس معاملات الداله CreateRectRgn التى تم شرحها فى الفورم الأولى ... حيث :    - الركن ال...

بعد ان انتهينا من كود الموديول ....... لاحظ أننا لم نتكلم عن تصميم الفورم بعد حيث ان التصميم سيكون عادى جدا و لكن النتيجه ستكون مختلفه تماما لذا لن ندخل فى تفاصيل التصميم و لكن هذه هى صورة الفورم فى بيئة IDE او وضع التصميم فى Visual Basic 0.6 يمكنك رسمها ببساطه . Visual Basic Online Course - Rounded and Transparent Form Example frmTranspForm - IDE frmTranspForm - Codes Option Explicit ما هى Option Explicit ؟ كما نعرف وظيفتها التأكد من أن جميع المتغيرات المستخدمه تم نعريفها مسبقا قبل استخدامها, بمعنى انك اذا كتبت كود مثل (i = 2) ثم (MsgBox i) على حدث (Form_Load) مثلا, فان عند تشغيل الفورم (تظهر رساله مكتوب بها (2) و لكن اذا اضفت فى منطقة التصريحات العامه الكود (Option Explicit) فان عند تشغيل الفورم (تظهر رساله خطأ من الفيجوال بيزك تفيد Variable Not Defined) أى أن المتغير i غير معرف فى المشروع أو البرنامج و ستضطر الى (تعريف المتغير i سواء فى منطقة التصريحات العامه أو فى الحدث Form_Load كالتالى) : Dim i As Integer أو Dim i As String كما تشاء و ...

بسم الله الرحمن الرحيم  الموضوع عن : ربط الكمبو بقاعدة بيانات أكسس 2003 + مشروع عملى المشروع العملى : عباره عن قاعدة بيانات بسيطه تحتوى على جدول واحد حيث اسم قاعدة البيانات هو (data.mdb) اسم الجدول هو (Info) يحتوى الجدول على 4 حقول هى (ID Text 10 - Sname Text 20 - Saddress Text 50 - Smobile Text 16) 1) نبدأ بتصميم مشروع جديد Windows Application 2) نقوم بحفظة فى أى مجلد و ليكن D:/myCombo 3) شكل الفولدر يكون كما بالشكل (1) Visual Basic Online Course - Populate ComboBox with MS-Access 2003 4) شكل البرنامج النهائى كما بالشكل رقم (2) Visual Basic Online Course - Populate ComboBox with MS-Access 2003 5) فكرة البرنامج اضافة البيانات الى قاعدة البيانات عن طريق الأكسس و البحث عنها من خلال الكمبو بوكس . 6) نقوم بالعمل من خلال مكتبة Ado 2.8 حيث يتم اضافتها من Reference الفيجوال بيزك الى المشروع كما بالصورة رقم (3) Visual Basic Online Course - Populate ComboBox with MS-Access 2003 7) البرنامج بالأكواد مرفوع على MediaFire.com شكرا ♥ Visual Basic ...

بسم الله الرحمن الرحيم توقفنا فى الجزء الرابع السابق   عند خواص الـ Node و موضوع اليوم ان شاء الله عن ربط الـ Tree-view بقاعدة بيانات MS Access 2003 " اذا لم تكن قد قمت بتحميل المشروع " TreeView & MS Access2003 Database  و المثال سيكون عباره عن : لدينا قاعدة بيانات Access 2003 سنقوم بعرض اسماء الجداول على شكل Root و اسماء الحقول على شكل Child و البيانات فى Text-boxes قابل للتعديل ( اضافة و حذف ) . أى أننا سنقوم بعمل برنامج يقوم باستدعاء أى قاعدة بيانات Access 2003 و تعديلها كما نحب , و سنبدأ بمشروع جديد . حيث سيكون شكل البرنامج النهائى كما بالشكل رقم (1) . شكل البرنامج النهائى 1) قاعدة البيانات : قم بتصميم أى قاعدة بيانات Access 2003 , فى المثال قاعدة البيانات باسم (Employees.mdb) تحتوى على جدولين (Info - Salary) حيث Info عبارة عن 4 حقول هى (ID P.Key Text 50 - Name Text 50 - Age Text 50 - Section Text 50) و Salary عبارة عن 5 حقول هى (ID P.Key Text 50 - Total Number Double - Cuts Number Double - Net Number Double - Month Date/Time) ...

بسم الله الرحمن الرحيم توقفنا فى الجزء الثالث السابق عند خاصية Style . و موضوع اليوم ان شاء الله عن خواص الـ Nodes . " اذا لم تكن قد قمت بتحميل المشروع " Nodes Properties - خواص الـ Nodes تعريف الـ Node : هى كائن Object من كائنات اداة Control الـ TreeView بينما الـ Nodes هى مجموعه Collection من الـ Nodes .... و الفرق كما ذكرنا أن الـ Nodes مرتبطه ببعضها البعض و كلها معا تمثل TreeView واحده و يميز الـ Node عن الاخرى الـ Index و الـ Key و كلاهما مميز بينما الـ Node بمفردها هى Object مستقل له Index و Key و لها خصائص للتعامل معها و لكن التعامل معها يكون عن طريق الـ TreeView حيث : الاكواد : TreeView.Nodes - تمثل مجموعة الـ Nodes داخل TreeView واحده . TeeView.Nodes.Index - تمثل الـ Node المميزه برقم الـ Index المميز لها . الخصائص : Bold Property (Windows Common Controls) Checked Property (Windows Common Controls)   Child Property (Node Object) Children Property   Count Property (ActiveX Controls)   Expanded Property   ExpandedImage Property ...