Visual Basic 6.0 translation

Showing posts with label Third lesson. Show all posts
Showing posts with label Third lesson. Show all posts

Friday, January 27, 2012

VB 6.0 Change Visual Basic 0.6 Style

Microsoft Visual Basic 6.0 trick
Change Visual Basic 0.6 Style

Hello,
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 More ( Evry1falls - your issue )


Visual Basic 6.0 Lessons, Tricks, Tutorials and help links :

Wednesday, November 16, 2011

VB 0.6 - Save Files Using DialogBox Control

الحفظ باستخدام DialogBox

قبل تنفيذ المشروع الحالى الرجاء قراءة الدرس السابق جيدا ( التعامل مع الملفات فى الفيجوال بيزك 6 ) .

الان, المشروع عبارة عن تطبيق باستخدام Visual Basic 0.6 الهدف منه توضيح كيفية حفظ ملف نوعه TxT باستخدام CommonDialog Control .

1) فتح برنامج فيجوال بيزك 6 و انشاء مشروع جديد Standard Application
صورة رقم 1
2) نقوم بحفظ المشروع على DeskTop مثلا باسم MyTxtFile
3) يكون شكل الفولدر كما بالصورة رقم (1) .
4) نقوم باضافة CommonDilaog على الفورم Form1 عن طريق الضغط على Ctrl+T أو Right-Click على شريط الادوات و اختيار Component ثم اختيار Microsoft Common Dialog Control Sp6 ثم Ok كما بالصورة رقم 2
صورة رقم 2
صورة رقم 3
5) نقوم برسم TextBox عدد (2) CommandButton و اضافة CommonDialog على الفورم ز نضغط Save أو Ctrl+S و يكون شكل الفورم بعدها كما بالصورة (3) .
6) عمل البرنامج : عند الكتابه فى TextBox ثم الضغط على Save As يتم فتح Dialog Box نقوم من خلالة بتحديد اسم الملف و حفظه بامتداد Txt لأنه ملف نصى و لا تنسى جعل خاصية MultiLine فى ال TextBox = True
7) الاكواد : سنقوم بفتح شاشة الاكواد Form1 و نمسح جميع محتوياتها Ctrl+A ثم BackSpace و نقوم بنسخ الكود التالى Ctrl+C و لصقة فى مكان كود الفورم Ctrl+V .
8) الكــــــــــــــود :
Option Explicit
Private Sub Command1_Click()
Dim strfilenaMe As String
Dim fnum As Integer
    On Error Resume Next
    CMD.ShowSave
    If Err.Number = cdlCancel Then
        ' The user canceled.
        Exit Sub
    ElseIf Err.Number <> 0 Then
        ' Unknown error.
        MsgBox "Error " & Format$(Err.Number) & _
            " Saving file." & vbCrLf & _
            Err.Description
        Exit Sub
    End If
    On Error GoTo 0

    ' Save the file.
    fnum = FreeFile
    strfilenaMe = CMD.FileName
 Open strfilenaMe For Output As fnum
 Print #1, Text1.Text
 Close #1
 End Sub
Private Sub Form_Load()
CMD.InitDir = App.Path
    CMD.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
    CMD.FilterIndex = 1
    CMD.DialogTitle = "Save File"
    CMD.CancelError = True
End Sub


الان قم بعمل Run أو Crtl+F5 لتجربة البرنامج و اكتب سطور عديده و اضغط على Save As تظهر Box نكتب به اسم الملف و نضغط على Save ثم نفتح فولدر المشروع سنجد الملف ان شاء الله

Monday, May 16, 2011

VB 6.0 Track Your MS Access DB Path anywhere

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 re-place it by yourself .
also let say (you have many MS Access databases and you want to connect to one at a time ....)
Or you wanna design a side-App as Admin Screen to manage your database connection at the user's place .....
Or Detect your MS Access Database in Network
- Add References :
Microsoft Scripting Run-time
Microsoft ADO 2.8

you have 5 buttons :
1) Browse : get the database path & name
2) Connect To Database Now : Connects you to the database you choose in the Browse Button
3) Set As My Default Database : Sets the MS Access Database you just choose as the database that will always connect as the program starts up every time .
4) Disconnect From Database : Disconnects you now from the database you are connected to.
5) Set No Database Connection : Remove the connection to the database for Permanent.
- as the project loads, there will be now database connection detected, so you just click on Browse and choose (Mdb File) Ms Access 2003 DataBase File to connect to anyway you like .
- Change the location of the database and notice that it asks you to pick another one,
- pick database from another location and set it as your default one and notice that it becomes your default connection .
- project depends on Filesystem-object - MS ADO 2.8 - Handling Files .

Sunday, May 8, 2011

VB 6.0 - Make DataGrid Header Columns Equal To Each Others

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 to a many columns datagrid .

Visual Basic 6.0 Lessons, Tricks, Tutorials and help links :
- Visual Basic 6.0 Color Picker tool source code 

Saturday, April 9, 2011

VB 0.6 MS Access Back up

بسم الله الرحمن الرحيم


(الدرس لكافة المستويات)
درس اليوم عن (عمل نسخه احتياطية لقاعدة بيانات من نوع اكسس فى الفيجوال بيزك باستخدام الكود)
عمل نسخه احتياطية لقاعدة بيانات الاكسس باستخدام الفيجوال بيزك
 
Back-up your Database using Code in Visual Basic 6.0
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 ؟؟

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

ثانيا ... أين تريد عمل Back Up ؟؟
سيكون الBackUp على نفس الكمبيوتر و لكن فالمكان الذى نختاره .

ثالثا ... هل الـ Back Up سيكون تلقائيا أو باختيار المستخدم ؟
سيكون باختيار المستخدم .
و هكذا نكون انتهينا من الفكره او المنطق ..
المثال العملى مرفوع على MediaFire
--------------------------------------------------
أى سؤال بخصوص الموضوع الرجاء اضافة تعليق
--------------------------------------------------
مع تحيات Evry1falls درس عمل Back Up لقاعدة بيانات Access 2003 من خلال الفيجوال بيزك 6 بالكود

Monday, April 4, 2011

VB 6.0 Add Controls To The Form at Run-time

بسم الله الرحمن الرحيم
كيف نضيف اداة تحكم الى الفورم ؟


الاجابه بسيطة ... كل ما علينا فعله هو الذهاب بالماوس على قائمة الادوات يسار الفورم أو يسار الفيجوال بيزك و اختيار اى أداه و الضغط عليها ثم رسمها على الفورم أو الضغط عليها مرتين حتى تظهر على الفـــــــــــــورم .............. و لكن ما الجديد ؟؟؟!!! 

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

تخيل أن الفورم فارغه و عندما تقوم بعمل Run تمتلأ بالازرار و مربعات الكتابه فالمكان الذى تريدة .. أو يكون بالفورم عدد معين من الازار و تقوم و انت تعمل بالبرنامج بعملية اضافة زر جديد يؤدى وظيفة جديده .

  1. الطريقة الأولــى :
نفتح الفيجوال بيزك الاصدار السادس طبعا و نبدأ باذن الله باختيار
 Standard Exe
ثم نضيف زر تحكم جديد و نغير الاسم عن طريق خاصية Name الى CMD1
و نضيف واحد أخر و نسمية CMD2 و نأتى على الخاصية Index و نضع بالخانة المقابله 0 و سنعرف معناها .
الأن الاكواد ....... اضغط بالماوس مرتين على CMD1 .......... و اكتب الاتى

سنجد الاتى :
كل مرة نضغط على CM1 ينشأ CM2 جديد
كل مرة نضغط على CM2 تظهر رساله مختلفه
و يمكنك :
تغيير عدد الرسائل بعدد الازرار عن طريق Next ....... For و هذا يرجع لمجهودك .
أو تغيير الازرار بمربعات كتابه أو أى اداة أخرى

2.  الطريقة الثانيـــــــــــــة :

ننزيل الازرار تماما من على الفورم و نضغط على الفورم مرتين لتظهر شاشة الكود و نقوم بمسح محتوياتها حتى تكون فارغه تماما .......... و نضيف الكود الاتى :


سنجد الاتى :

بمجرد عمل Run للبرنامج نجد أن الفورم بها عدد 5 ازرار
لكن عند الضغط على أى منهم لا نجد شيئا و هذا هو الفرق بين الطريقتين

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

Saturday, March 19, 2011

VB 6.0 Icon For Your Own ActiveX Controls

فى الدرس الثانى لموضوع صناعة ادوات 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 Description 

و لا تنسى ايضا حفظ الاداه بأى اسم يشير الى عملها .
و لا تنسى تسجيلها على جهازك RegSvr32
يمكنك الان اذا انتهيت من صناعتها أن تحذف جميع ملفات المشروع طبعا ماعدا ملف الاداه و الذى سيكون امتداده Ocx
و شكرا ... 
أى سؤال من فضلك راسلنى على speechless_man@hotmail.com
أو يمكنك الانضمام الى مجموعة البرمجه على الفيسبوك
او البحث عنا فى الجوجل 

Thursday, March 17, 2011

VB 6.0 Creating ActiveX For Dummies (Arabic) - Part2

الخطوه الخامسة : اختبار و استخدام أداة ActiveX :-
لكى تتأكد من الاداة أنشأت بنجاح ستلاحظ ان الاداه اصبحت فعالة و يمكنك الضغط عليها بالماوس و أنها اصبحت نشطه مثل الادوات الاخرى فى شريط الادوات .... رقم 1 شكل 1
شكل 1
شكل 2
الان قم باضافة الاداة الجديده الى Form1 بالمشروع الاول كما تضيف أى أداه أخرى ... شكل رقم 2 ... قم بتجربة البرنامج بالضغط على F5 و حرك الاسهم الى الاعلى و الاسفل و شاهد النتيجة ..... و انتظرونا فى الجزء الثالث لصناعة ActiveX Control متطور أكثر فأكثر ..... 



Monday, March 14, 2011

VB 6.0 Creating ActiveX For Dummies (Arabic)

بسم الله الرحمن الرحيم

الموضوع : صناعة ActiveX للمبتدئين .
(يجب أن تكون مبرمج فيجوال بيزك 6 مستوى متوسط حتى تستطيع فهم الموضوع)

ما هو ActiveX ؟؟؟
هى برامج مساعده وظيفتها تحسين أداء البرامج الكبيره و هذا هو التعريف عندما نتحدث عن الــ ActiveX الخاص بالبرمجه و خصوصا فى الفيجوال بيزك 0.6 اذا الـــ ActiveX هو أداه من الادوات نقوم بصناعتها
سنقوم بتجربة مثال عملى لتبسيط الشرح (هذا المثال هو ترجمة للمثال الرسمى لموضوع صناعة الــ ActiveX على موقع ميكروسوفت MSDN) و اتمنى ان يزال موجودا حيث ان ميكروسوفت لم تعد تدعم بيئة الفيجوال بيزك 0.6 .
Spinner Control

(أداة العداد)
شكل (أ)
المثال سيكون صناعة أداة (العداد) Spinner كما بالشكل (أ)
و الان نحن على دراية بالنتيجة النهائية .

الخطوه الأولى : عمل مشروع مثال
قم بفتح الفيجوال بيزك 6 و اختر من القائمة (مشروع تنفيذى جديد) .... شكل (1)
شكل (1)
الخطوه الثانية: اضافة مشروع ActiveX فارغ
قم بفتح الفيجوال بيزك 6 و اختر من القائمة (مشروع AxtiveX جديد) .... شكل (2),(3)
شكل (2)
شكل (3)
الان يجب أن يكون لديك مشروعان متماثلان فى قالب واحد كما بالشكل (4) ..
شكل (4)
و تلاحظ ظهور New Control أداه جديده فى شريط الادوات و اذا وضعت مؤشر الماوس على الــ New Control ستظهر ToolTip بها اسم الاداه الجديد (UserControl1) و ستكون علامه الاداه الجديده غير متاحه حيث انها غير مفعله بعد ... و صناعة الــ ActiveX Control من خلال الفيجوال بيزك هو نفسه صناعة البرامج EXE العادية التى نصنعها كل يوم حيث بداية تبدأ بالتصميم على الفورم ثم تمكين خصائص الادوات على الفورم ثم كتابة أكواد الاحداث المتعلقه بهذه الادوات و يصبح لديك برنامج كامل ... وهذا ايضا تسلسل صناعة الـــ ActiveX.


الخطوه الثالثة: تصميم أداة الــ ActiveX
سنقوم بالرسم على الفورم بالمشروع الــ EXE حيث سنقوم بوضع أداتى (TextBox - Vertical Scroll) على الفورم و هما الاداتان اللتان سنقوم بعمل الــ Spinner من خلالهما ... الشكل (5)
شكل (5)
حيث : أداة (TextBox) هى رقم 1 و نقوم برسمها على الفورم 
         أداة (VScroll)   هى رقم 2 و نقوم برسمها على الفورم
ثم نقوم بتهيئة حدود الفورم لكى تتماشى مع تقريبا حدود الاداتين (انظر رقم 3 على الصورة) ... الان يجب أن يكون شكل المشروع لديك كما بالشكل (5) ...... تمام ؟؟؟!!



الخطوه الرابعه: كتابة الأكواد - ترتيب الاحداث


الان و بعد أن قمنا بتصميم شكل أداة الــ Spinner سنقوم بكتابة أكواد الاحداث (ماذا نريد من هذه الاداه ... ؟ .... كيف ستعمل .... ؟ ) سيقوم بالاجابه على هذا السؤال  (الأكواد)
شكل (6)
و سنبدأ بالكواد الذى يتعامل مع (تغير قيمة TextBox بناءا على تغير VScroll) حيث يجب عند الضغط على اداة VScroll الى الاعلى ان تتغير القيمة بالــ TextBox الى الزيادة و العكس و بالتالى سنقوم بكتابة الكود فى حدث VScroll_Change (حذث تغير حالة VScroll) .... أوك ؟؟؟ قم بالضغط على أداة VScroll مرتين بالماوس لتظهر شاشة الاكواد الخاصة بهده الاداه و أكتب الكود التالى بالحدث VScroll_Change :
Text1.Text = VScroll1.Value
الان و بعد أن قمنا بكتابة الكود ... قم بإغلاق شاشة الكود و شاشة التصميم .. و اذا كان العمل الذى قمت به صحيح ستلاحظ كما بالشكل (6) أن الاداة الموجوده بشريط الادوات (UserControl1) أصبحت فعاله (رقم 1 على الصورة) .

الخطوه الخامسة: تجربة الأداه ..... انتظروا الجزء الثانى

Friday, January 14, 2011

VB 6.0 Crystal Report With MS-Access 2003 - PassWord Problem

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

حل المشكله :
بسيط جدا و موجود فى موقع الكريستال نفسه لو انت بتقرا .
عندنا قاعدة بيانات اكسس 2003 و فيجوال بيزك 6 مثلا و تقرير كريستال 4.6 مثلا مش لازم الاصدارات دى بالذات يعنى , المهم قاعدة البيانات عليها باسوورد مثلا (ahmed) و لما بنييجى ننفذ كود الطباعه من الفيجوال بيزك بيدى Error ...

تجرية :
قبل كود الطباعه crystalreport1.action = 1
هنكتب
 CrystalReport1.PassWord = chr(10) & "ahmed" and thanx problem solved
و شكرا تم حل المشكلة


لمزيد من الاخبار المثيرة جدا
و دروس الدوت نت مع قاعدة البيانات أكسس

Visual Basic Online Course

vb6 (63) Application Development (45) Visual Basic Online Course (45) Online Visual Basic Course (44) Visual Basic Help (44) Visual Basic Programming (42) IT Jobs (39) VB6 developer (38) Visual Basic Course (38) Visual Basic 6.0 (26) Microsoft Visual Basic 6.0 (25) VB6.0 (24) Visual Basic Programmers (24) vb 6.0 (24) visual basic programming tutorial (19) Third lesson (16) Source code download for Visual Basic 6.0 (14) Source code for Visual Basic 6.0 (10) visual basic tutorial (9) Visual Basic 6 (5) Visual Basic Courses (5) Lesson 3 (4) VB 0.6 - TreeView control (4) VB 0.6 With TreeView Control (4) VB6 Course (3) Create ActiveX (2) How to automate MS-Access from Visual Basic 6.0 (2) Add controls at runtime (1) Back up your Database (1) Change ActiveX icon (1) Change screen resolution (1) Create FTP (1) Crystal Reports 4.6 (1) Crystl32.ocx could not be loaded (1) DataGrid Columns re-size (1) Date Calculation (1) DateAdd Function (1) DateDiff function (1) FTP (1) Marquee Title Bar (1) Marquee VB 6.0 TitleBar (1) Method 'Action' of object 'CrystalCtrl' Failed (1) Microsoft Access with Visual Basic 6.0 (1) OpenSchema method (1) Save File Using CommonDilog (1) Track Database path (1) VB 0.6 - Registry (1) VB 0.6 With Registry Editor (1) VB 6.0 Access (1) VB 6.0 OOP (1) VB6 Access2003 ADO Like % (1) VB6 Add Date (1) VB6 Add Time (1) VB6 Date calculation (1) VB6 Subtract Date (1) Visual Basic Remote (1) Win7 (1) Windows7 (1) ms access networking details (1) remote Visual Basic DB (1) rounded and transparent forms (1) vb 0.6 style (1) vb 6.0 Remote Database (1)