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

Microsoft Visual Basic 6.0 trick Change Visual Basic 0.6 Style Hello, evry1 We all are tired and bored using VB0.6 coz of its strict and hard style which makes you feel that you still working with Windows 98 .... Well ..... Here is a way to change that : 1) Open Notepad 2) Copy and Paste the following Lines Note :  The line ( name="CompanyName.ProductName.YourAppName") is free writing, means you provide your own company name and product name ... while installing VB0.6 you provide the installation proccess with (Company Name) well, this is it .... product name could be VB 0.6 3) Save as ... vb6 .exe.manifest in the same folder where vb6.exe rests in peace (you can find that by "Right-click on cv0.6 shortcut then properties then Find Target") as shown in the photo . 4) Start VB0.6 Project  any project and from Components look for Microsoft Windows Common Controls 6 - or simpley add a Button and you will see the difference . Google Me For ...

الحفظ باستخدام DialogBox قبل تنفيذ المشروع الحالى الرجاء قراءة الدرس السابق جيدا ( التعامل مع الملفات فى الفيجوال بيزك 6 ) . الان, المشروع عبارة عن تطبيق باستخدام Visual Basic 0.6 الهدف منه توضيح كيفية حفظ ملف نوعه TxT باستخدام CommonDialog Control . 1) فتح برنامج فيجوال بيزك 6 و انشاء مشروع جديد Standard Application 2) نقوم بحفظ المشروع على DeskTop مثلا باسم MyTxtFile 3) يكون شكل الفولدر كما بالصورة رقم (1) . صورة رقم 1 4) نقوم باضافة CommonDilaog على الفورم Form1 عن طريق الضغط على Ctrl+T أو Right-Click على شريط الادوات و اختيار Component ثم اختيار Microsoft Common Dialog Control Sp6 ثم Ok كما بالصورة رقم 2 صورة رقم 2 5) نقوم برسم TextBox عدد (2) CommandButton و اضافة CommonDialog على الفورم ز نضغط Save أو Ctrl+S و يكون شكل الفورم بعدها كما بالصورة (3) . صورة رقم 3 6) عمل البرنامج : عند الكتابه فى TextBox ثم الضغط على Save As يتم فتح Dialog Box نقوم من خلالة بتحديد اسم الملف و حفظه بامتداد Txt لأنه ملف نصى و لا تنسى جعل خاصية MultiLine فى ال Text...

Microsoft Visual Basic 6.0 with MS-Access 2003 Track your Database path from anywhere This Open-source is Free to Distribute and use, you can download it from ( MediaFire ) this is an example of how to design a simple app to track down and hunt your MS Access database whenever it's lost or path's changed. VB6 Track your Database Path from anywhere you won't have to worry anymore about database path. you can always set database as default as if it were originally designed to be. there is also the software packed and ready to try as a separate software, download from ( MediaFire ) just to make sure it is what you are looking for . 1) Design : Check the Open-source-code 2) Files : Check the Open-source-code 3) Logic : you need to always detect your MS Access database whenever changes its path, for example (you designed a software and the database path changed by the user for some reason , what would you do then?) ... the answer is that you will have to r...

Microsoft Visual Basic 6.0  Datagrid control trick Say, we've DataGrid control called (DG) Connected to a database table, and we want to make the Header Columns' width equal to each other and equal the DataGrid width at the same time ............. Private Sub DGHeader() For Each Column In DG.Columns     Column.Width = Me.Width / DG.Columns.Count Next End Sub Note: Not likely suggested applicable to many columns DataGrid. 💌Visual Basic 6.0 Lessons, Tricks, Tutorials and help links : - Automate MS-Access Database in Visual Basic 6.0 though a net work - Visual Basic 6.0 Analog Clock - Vi sual Basic 6.0 Temperature Convertor - Visual Basic 6.0 , MS-Access 2003 and Crystal Reports - Phone book - Visual Basic 6.0 , MS-Access 2003 Database and DataGrid - Visual Basic 6 .0  FTP full application source code - Visual Basic 6.0 Color Picker tool source code 

بسم الله الرحمن الرحيم (الدرس لكافة المستويات) درس اليوم عن (عمل نسخه احتياطية لقاعدة بيانات من نوع اكسس فى الفيجوال بيزك باستخدام الكود) عمل نسخه احتياطية لقاعدة بيانات الاكسس باستخدام الفيجوال بيزك   Back up your Database in Visual Basic 6.0 using code بداية يجب ان نعرف سبب عمل الـــ Back Up ..... عندما تقوم بتصميم قاعدة بيانات على الرغم من كل الاحتياطات التى تتخذها لحماية قاعدة البيانات فهى فى النهاية على الــ Hard Desk أى انها عرضة للفيرس و الحذف لذا يجب دائما عمل نسخه احتياطية فى نهاية العمل على البرنامج و تحديثها فى كل مرة ينتهى المستخدم من البرنامج يقوم البرنامج بتحديث النسخه الاحتياطية حتى اذا حدث حذف او اى خلل فى الــ Hard Desk فان البيانات تكون محفوظة بسلام اما على USB Flash أو على Drive اخر أو على CD.... و بصفه عامه اذا أردت عمل Back Up لقاعدة بيانات أكسس 2003 من خلال الفيجوال بيزك فالأمر يحتاج الى تفكير للوصول الى الخطوات السليمه و لذا يجب توافر منطق سليم . بداية ... لماذا تريد عمل Back Up ؟؟ فى هذا المثال سيكون السبب هو "فى حالة حدوث تلف ل...

بسم الله الرحمن الرحيم كيف نضيف اداة تحكم الى الفورم ؟ الاجابه بسيطة ... كل ما علينا فعله هو الذهاب بالماوس على قائمة الادوات يسار الفورم أو يسار الفيجوال بيزك و اختيار اى أداه و الضغط عليها ثم رسمها على الفورم أو الضغط عليها مرتين حتى تظهر على الفـــــــــــــورم .............. و لكن ما الجديد ؟؟؟!!!  الجديد هو أننا سنتعلم كيف نضيف اداة تحكم على الفورم بدون استخدام الماوس ( أى بدون استخدام واجهة التصميم أو كما يسمونها بيئة الــــــــــ GUI و هى اختصار لــــ Graphical User Interface أو الواجهة الرسومية باللغه العربية الفصحه أو IDE وهى اختصار برمجى بمعنى Integrated Design Enviroment أى بيئة الرسم المتكامل ) و بالتالى ستكون الاضافة فى بيئة RunTime أو بيئة زمن الحدوث أى بعد عمل البرنامج نفسه . تخيل أن الفورم فارغه و عندما تقوم بعمل Run تمتلأ بالازرار و مربعات الكتابه فالمكان الذى تريدة .. أو يكون بالفورم عدد معين من الازار و تقوم و انت تعمل بالبرنامج بعملية اضافة زر جديد يؤدى وظيفة جديده . الطريقة الأولــى : نفتح الفيجوال بيز...

فى الدرس الثانى لموضوع صناعة ادوات ActiveX لم نتطرق لعمل الايقونات ... و قد حائنى العديد من التساؤلات عن كيفية عمل أيقون مستقل لكل أداة ActiveX .... و الطريقة كالتالى : - قم بفتح Microsoft Paint برنامج الرسام (من قائمة ابدأ) و قم بجعل صورة الرسم بمساحة 16 طول و 16 عرض عن طريق الضغط على Ctrl+E و اصنع الايقونه و احفظها مثلا (Icon1.bmp) داخل نفس مجلد المشروع . 16 Color Bitmap (*.bmp) - ثم من داخل الفيجوال بيزك أثناء تصميم أداة ActiveX توجه الى (انظر شكل1) خصائص ActiveX و اختر خاصية ToolBoxBitMap و اختر الايقونه السابقة ثم انتهى من عملك و أكوادك ... شكل رقم 1 - ستلاحظ انه عند اختيار الاداه CTRL+T من اليجوال بيزك (أى مشروع أخر) أن شكل الايقونه ظهر كما قمنا بتصميمة .... شكل رقم 2 شكل رقم 2 - ايضا يمكنك تغيير الاسم الذى يعرض به ActiveX Control الخاص بك فى قائمة المكونات CTRL+T عن طريق كتابة الاسم المراد اثناء العمل على الاداه اغلق اى نافذة اخرى ثم ..... اكتب التفصيل المراد ظهور الاداه به : Project => Project Properties => General=> Project Descrip...

الخطوه الخامسة : اختبار و استخدام أداة ActiveX :- لكى تتأكد من الاداة أنشأت بنجاح ستلاحظ ان الاداه اصبحت فعالة و يمكنك الضغط عليها بالماوس و أنها اصبحت نشطه مثل الادوات الاخرى فى شريط الادوات .... رقم 1 شكل 1 شكل 1 شكل 2 الان قم باضافة الاداة الجديده الى Form1 بالمشروع الاول كما تضيف أى أداه أخرى ... شكل رقم 2 ... قم بتجربة البرنامج بالضغط على F5 و حرك الاسهم الى الاعلى و الاسفل و شاهد النتيجة ..... و انتظرونا فى الجزء الثالث لصناعة ActiveX Control متطور أكثر فأكثر .....  مع تحياتى Evry1falls Visual Basic 6.0 Lessons, Tricks, Tutorials and help links : - Automate MS-Access Database in Visual Basic 6.0 though a net work - Visual Basic 6.0 Analog Clock - Vi sual Basic 6.0 Temperature Convertor - Visual Basic 6.0 , MS-Access 2003 and Crystal Reports - Phone book - Visual Basic 6.0 , MS-Access 2003 Database and DataGrid - Visual Basic 6 .0  FTP full application source code - Visual Basic 6.0 Color Picker tool source code 

بسم الله الرحمن الرحيم الموضوع :  صناعة ActiveX للمبتدئين . (يجب أن تكون مبرمج فيجوال بيزك 6 مستوى متوسط حتى تستطيع فهم الموضوع) ما هو A c t i v e X ؟؟؟ هى برامج مساعده وظيفتها تحسين أداء البرامج الكبيره و هذا هو التعريف عندما نتحدث عن الــ ActiveX الخاص بالبرمجه و خصوصا فى الفيجوال بيزك 0.6 اذا الـــ ActiveX هو أداه من الادوات نقوم بصناعتها سنقوم بتجربة مثال عملى لتبسيط الشرح (هذا المثال هو ترجمة للمثال الرسمى لموضوع صناعة الــ ActiveX على موقع ميكروسوفت MSDN) و اتمنى ان يزال موجودا حيث ان ميكروسوفت لم تعد تدعم بيئة الفيجوال بيزك 0.6 . Spinner Control (أداة العداد) شكل (أ) المثال سيكون صناعة أداة (العداد) Spinner كما بالشكل (أ) و الان نحن على دراية بالنتيجة النهائية . الخطوه الأولى : عمل مشروع مثال قم بفتح الفيجوال بيزك 6 و اختر من القائمة (مشروع تنفيذى جديد) .... شكل (1) شكل (1) الخطوه الثانية:  اضافة مشروع ActiveX فارغ قم بفتح الفيجوال بيزك 6 و اختر من القائمة (مشروع AxtiveX جديد) .... شكل (2),(3) شكل (2) شكل (3) الان...