Visual Basic 6.0 translation

Sunday, March 25, 2012

Visual Basic Online Course - Excel 2003 Part 6

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


فى الدرس السابق تعلمنا كيفية طباعة الـ Excel.
درس اليوم ان شاء الله تعالى يتناول موضوع هام و هو التنسيق و لكن ليس كما نعرفه "بدون الأكواد" و كيفية ربط الـ Excel الفيجوال بيزك و حفظ التغييرات عليه و عرضه فى الفيجوال بيزك 6
الجـــــــــزء السادس - موضوعات هامه

الموضوع الأول : التنسيق

سنقوم بالتطبيق على المثال السابق و المطلوب هو :
1) عمل اطار للفاتورة
2) تكبير خط الـ Heading للفاتورة
3) جعل الأرقام مقربه لأقرب رقمين عشريين
4) تلوين عنوان الفاتورة بلون مخالف و الجسم الفاتورة بلون اخر
5) توسيع حجم الخلايا .

و فى النهايه ستظهر الفاتورة كما بالشكل التالى :


و سنبدأ الأن ببرمجه المشروع لاضافة أكواد تمكننا من العمل على الـ Excel ليظهر بهذا الشكل من داخل الـ Visual Basic 6.0 مع العلم أنه يمكن عمل ذلك مباشرة من داخل الـ Excel و لا يزال ضمن البرنامج و لكن اذا كنت لا تريد أن يفتح أى شخص ملف الـ Excel التابع للبرنامج و تغيير تنسيقه و قمت بحمايته فاضافة أكواد لتنسيق الـ Excel من داخل البرنامج هو الحل الأمثل .

- نفتح المشروع و نضيف Form جديده تكون بهذا الشكل :
Display Excel
و الـ Form عليها أداه تسمى : Microsoft Office XP Web Components تجدها فى الـ Component Ctrl+T قم باضافتها الى شريط الأدوات ثم ادراج SpreadSheet1 على الفورم كما فى الصورة و هذه الأداه غير أداة الـ OLE حيث أنه كان من الصعب التعامل مع تطبيقات الـ Office باداة الـ OLE ....

المطلوب منا عند فتح الـ Form1 لتنسيق الفاتورة الخاصه بنا أن نجدها فى الأداة و بالتالى فى الحدث Form_Load نكتب الكود التالى :





حيث قمنا بـ :
- تنسيق مكان الأداه على الفورم
- فتح الفاتورة الموجوده بالـ Excel بدون اظهار الـ Excel
- تعيين Sheet العمل
- نسخ خلايا الـ Sheet
- لصق خلايا الـ Sheet فى الأداه SpreadSheet1

الخطوه الثانيه هى مفتاح حفظ التغيرات التى تطرأ على الـ SpreadSheet فى ملف الـ Excel الذى به الفاتورة حيث نضع Command1 على الـ Form بعنوان Save To Excel و فى الحدث Command1_Click نكتب الكود التالى :
و ما قمنا بعمله هنا هو :






- تحديد مدى الخلايا المراد حفظها من A1 الى L70 و وضعنا فى الاعتبار أن الفاتورة سيضاف عليها بيانات .
- نسخ الخلايا فى المدى
- لصق الخلايا فى المدى المقابل فى ملف الـ Excel .
- حفظ التغييرات على ملف الاكسل بدون اظهار رسائل تنبيه منه .

خطوه أخيره لكى نتأكد من أن تم حفظ التغييرات و هى الحدث Form_Unload عند اغلاق الشاشة تظهر رساله "هل تريد الحفظ؟" كالتالى :



لاحظ :
يمكنك الان تنسيق SpreadSheet بالضغط Right-Click عليه حيث تظهر قائمه يمكنك من خلالها تنسيقه مثل الـ Excel و حفظ هذه التغيرات كما فعلنا فى الأعلى .
"حسب Microsoft فانه من غير الممكن ربط الاكسل بالفيجوال بيزك مباشرة" ... لذا يعتبر هذا المثال أقرب طريقه الى عمل .
يمكنك الان عمل (اضافه - حذف - تعديل - بحث) فى الاكسل باستخدام الاداه ...... !
- رابط المثال بالتحديث الأخير MediaFire
- مساعدات خارجيه External Links
1) MSDN
2) SpreadSheet Web Components - MSDN


بهذا الجزء نكون قد قمنا بتغطية أغلب النقاط المرتبطه بالتعامل مع الـ Excel و هناك العديد من النقاط سنقوم ان شاء الله تعالى بتغطيتها فى الجزء الأخير القادم فى المثال العملى ..... تابعونا !


7 comments:

  1. With havin so much content and articles do you ever run into any issues of plagorism or copyright violation? My
    website has a lot of exclusive content I've either created myself or
    outsourced but it appears a lot of it is popping
    it up all over the internet without my agreement.
    Do you know any techniques to help stop content from being ripped off?
    I'd really appreciate it.

    my web page: LyndiaGEldredge

    ReplyDelete
  2. Way cool! Some extremely valid points! I appreciate you writing this post and also
    the rest of the website is also really good.

    Here is my page DeeFIngvolostad

    ReplyDelete
  3. Good day I am so excited I found your website, I really found
    you by mistake, while I was searching on Yahoo for something else,
    Anyways I am here now and would just like to say thank you for a
    incredible post and a all round interesting blog (I also love the theme/design), I don’t have time to read
    it all at the minute but I have bookmarked it and also included your RSS feeds, so when I have time I
    will be back to read a lot more, Please do keep up the awesome work.


    Also visit my site ... PhyliciaAAlvez

    ReplyDelete
  4. I could not resist commenting. Perfectly written!

    Also visit my web-site; CaryHWineberg

    ReplyDelete
  5. Very nice post. I just stumbled upon your weblog and wanted to
    mention that I have really loved surfing around your
    blog posts. In any case I'll be subscribing on your feed and
    I'm hoping you write again very soon!

    Here is my web-site: ElseSHarshberger

    ReplyDelete
  6. Have you ever considered writing an ebook or guest authoring on other sites?
    I have a blog based upon on the same information you discuss and
    would love to have you share some stories/information.
    I know my viewers would appreciate your work. If you're even remotely interested,
    feel free to send me an e mail.

    Feel free to visit my web page: RosauraWHendrixson

    ReplyDelete
  7. I know this web page provides quality dependent content and extra stuff,
    is there any other site which provides these data in quality?


    my page ... KayleenMVanhecke

    ReplyDelete

visual basic 6 source code says (Hi)

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)