بالفجوال : التعامل مع المــلفات

الكاتب : alhammady   المشاهدات : 1,286   الردود : 12    ‏2004-05-13
      مشاركة رقم : 1    ‏2004-05-13
  1. alhammady

    alhammady عضو

    التسجيل :
    ‏2003-07-09
    المشاركات:
    119
    الإعجاب :
    0
    بسم الله الرحمن الرحيم

    السلام عليكم ورحمة الله وبركاته

    سأبدأ اليوم إن شاء الله التحدث عن التعامل مع الملفات والتي سأبدؤها بمقدمة عن أداة CommonDialog والتي سنستخدمها كثيراً في وقت لاحق فعلى بركة الله نبدأ ...

    بداية يجب إضافة الأداة المعنية ويتم إضافتها من قائمة Project ثم Components أو بالضغط على Ctrl+T من لوحة المفاتيح .



    عندها ستظهر النافذة التالية .. اختر منها Microsoft Common Dialog Control 6.0 .



    عندها سيدرج الرمز الخاص بها في صندوق الأدوات وتكون بالشكل التالي :



    قم بإدراج الأداة على الـ Form وذلك بالنقر المزدوج عليها أو بالنقر لمرة واحدة ورسم الأداة على الـ Form .

    قم بإدراج CommandButton بنفس الأسلوب السابق والذي سنستخدمه لتنفيذ أوامر الأداة .

    يتم استدعاء مربعات الحوار بإحدى الطريقتين التاليتين :

    1- بالاعتماد على الخاصية Action ويتم ذلك حسب ما يلي :

    [align=left]'الخيار التالي لفتح ملف
    CommonDialog1.Action = 1
    'الخيار التالي لحفظ ملف
    CommonDialog1.Action = 2
    'الخيار التالي لاختيار اللون
    CommonDialog1.Action = 3
    'الخيار التالي لاختيار الخط
    CommonDialog1.Action = 4
    'الخيار التالي لخيارات الطباعة
    CommonDialog1.Action = 5
    'الخيار التالي لاستدعاء التعليمات
    CommonDialog1.Action = 6

    وهذا هو الأسلوب القديم ...

    2- بالاعتماد على الخصائص Show ويتم ذلك حسب ما يلي :

    [align=left]'الخيار التالي لفتح ملف
    CommonDialog1.ShowOpen
    'الخيار التالي لحفظ ملف
    CommonDialog1.ShowSave
    'الخيار التالي لاختيار اللون
    CommonDialog1.ShowColor
    'الخيار التالي لاختيار الخط
    CommonDialog1.ShowFont
    'الخيار التالي لخيارات الطباعة
    CommonDialog1.ShowPrinter
    'الخيار التالي لاستدعاء التعليمات
    CommonDialog1.ShowHelp

    طبعا ولا شك الأسلوب الثاني هو الأفضل

    خاصية أخرى من خصائص مربعات الحوار هي خاصية DialogTitle والتي تحدد عنوان مربع الحوار الذي ستظهره لاحقاً ، وهي إختيارية لك أن تختارها أو لا .

    أيضا يوجد خاصية جميلة وهي CancelError والتي تقوم بإصدار خطأ إذا قام المستخدم بالضغط على زر Cancel ورقم هذا الخطأ هو 32755 ولعل البعض يتساءل ما الفائدة من هذه الخاصية والجواب هو معرفة هل يكمل البرنامج عمله أم لا .

    هناك خاصية الـ Filter وهي واحدة من الخصائص الخاصة بمربعي حوار الفتح والحفظ وهي تحدد نوع الملفات التي تود عرضها في مربع الحوار مثل ملفات (txt) وتكتب بهذا الشكل :

    'السطر التالي يجعل لك خيارين للفلتر وهي ملفات النصوص وكل الملفات
    CommonDialog1.Filter = "Text Files|*.txt|All Files|*.*"

    خاصية أخرى من الخصائص الخاصة بمربعي حوار الفتح والحفظ وهي InitDir والي تحدد المجلد (الدليل) الذي سيعرضه مربع الحوار عند ظهوره ويكون استخدام هذه الخاصية بالشكل :


    [align=left]CommonDialog1.InitDir = "C:\Windows"


    أيضا لمربعي حوار الفتح والحفظ خاصيتي هما FileName و FileTitle والفرق بينهما أن الأولى تعرض المسار الكامل للملف في حين أن الأخرى لا تعرض سوى اسم الملف

    [align=left]'سيحتوي المتغير التالي على قيمة تشابه
    'C:\Windows\Win.ini
    MyFile = CommonDialog1.FileName
    'سيحتوي المتغير التالي على قيمة تشابه
    'Win.ini
    MyFile = CommonDialog1.FileTitle

    يقابل هذه الخاصية في مربع اختيار اللون خاصية Color وللتعامل مع هذه الخاصية اكتب شيئاً كهذا :

    'بهذا تغير لون الـ Form1

    [align=left]Form1.BackColor = CommonDialog1.Color

    ويقابها في مربع اختيار الخط مجموعة الخصائص Font وللتعامل مها نكتب :
    'أسود عريض


    [align=left]Label1.FontBold = CommonDialog1.FontBold
    'مائل
    Label1.FontItalic = CommonDialog1.FontItalic
    'نوع الخط
    Label1.FontName = CommonDialog1.FontName
    'حجم الخط
    Label1.FontSize = CommonDialog1.FontSize
    'يتوسطه خط
    Label1.FontStrikethru = CommonDialog1.FontStrikethru
    'تحته خط
    Label1.FontUnderline = CommonDialog1.FontUnderline

    أو

    [align=left]'أسود عريض
    Label1.Font.Bold = CommonDialog1.FontBold
    'مائل
    Label1.Font.Italic = CommonDialog1.FontItalic
    'نوع الخط
    Label1.Font.Name = CommonDialog1.FontName
    'حجم الخط
    Label1.Font.Size = CommonDialog1.FontSize
    'يتوسطه خط
    Label1.Font.Strikethrough = CommonDialog1.FontStrikethru
    'تحته خط
    Label1.Font.Underline = CommonDialog1.FontUnderline

    ويقابلها في مربع حوار خيارات الطباعة مجموعة من الخصائص هي :



    [align=left]'تعيين عدد النسخ
    NumberOfCopies = CommonDialog1.Copies
    'من الصفحة
    StartFromPage = CommonDialog1.FromPage
    'إلى الصفحة
    StopOnPage = CommonDialog1.ToPage

    خاصية جديدة من الخصائص وهي Flags وهي من الخصائص المهمة جداً والتي تستخدم مع كل مربعات الحوار ويستفاد منها في تعيين بعض الخيارات الأساسية لمربع الحوار ...

    مربعي الحوار الفتح والحفظ

    [align=left]'يجب أن يكون الملف موجوداً وإلا تعرض رسالة خطأ
    CommonDialog1.Flags = &H1000&
    'يعرض مربع الحوار رسالة تحذير إذا اختار المستخدم ملف موجود للحفظ فوقه
    CommonDialog1.Flags = &H2&
    'يجب أن يكون مسار الملف موجوداً
    CommonDialog1.Flags = &H800&


    وإذا أردت الجمع بين عدة خيارات فيجب أن تفصل بينها بـ Or كأن تكتب مثلاً :

    [align=left]CommonDialog1.Flags = &H1000& Or &H2& Or &H800&

    مربع حوار اللون


    [align=left]'فتح المربع كاملا بما في ذلك الجزء الخاص بتحديد ألوان جديدة
    CommonDialog1.Flags = &H2&
    'تعطيل الزر الذي يقوم بفتح الجزء الخاص بتعيين ألوان جديدة
    CommonDialog1.Flags = &H4&

    [align=right]مربع حوار اختيار الخط

    'يعرض مربع الحوار خطوط الشاشة فقط
    CommonDialog1.Flags = &H2&
    'يعرض مربع الحوار خطوط الطابعة فقط
    CommonDialog1.Flags = &H4&
    'يعرض مربع الحوار خطوط الشاشة والطابعة معاً
    CommonDialog1.Flags = &H2&


    أتمنى للجميع التوفيق

    اخوكم : الحمادي
     
  2.   مشاركة رقم : 2    ‏2004-05-13
  3. العمراوي

    العمراوي مشرف سابق

    التسجيل :
    ‏2002-11-24
    المشاركات:
    7,510
    الإعجاب :
    4
    مواضيع رائعة .,.,.,.,


    وجهد مبدع .,.,.,., استمر دائما بإتحافنا بالمزيد .,.,.,.,
     
  4.   مشاركة رقم : 3    ‏2004-05-14
  5. alhammady

    alhammady عضو

    التسجيل :
    ‏2003-07-09
    المشاركات:
    119
    الإعجاب :
    0
    مشكور على مرورك الطيب يا مشرف .,.,.,.,.

    اخوك : الحمادي
     
  6.   مشاركة رقم : 4    ‏2004-05-16
  7. الصيني

    الصيني عضو فعّال

    التسجيل :
    ‏2003-01-07
    المشاركات:
    849
    الإعجاب :
    0
    رائع جدا جدا جدا
    تصور انني كنت من زمان اريد معرفة هذه المعلومات
    جزاك الله خير وبارك الله فيك وياريت تستمر في الدروس
    لكي نستفيد من ما عندك
    بارك الله فيك ورزقك من الطيبات
     
  8.   مشاركة رقم : 5    ‏2004-05-19
  9. alhammady

    alhammady عضو

    التسجيل :
    ‏2003-07-09
    المشاركات:
    119
    الإعجاب :
    0
    اشكرك

    وهذا يعطيني حافز للمواصلة

    اشكرك مرة اخري اخي (الصيني) اتمنى اعرف اسمك

    اخوك : الحمادي
     
  10.   مشاركة رقم : 6    ‏2004-05-23
  11. صدى الحرمان

    صدى الحرمان عضو متميّز

    التسجيل :
    ‏2004-01-15
    المشاركات:
    1,519
    الإعجاب :
    0
    مشكور









    درس روعة
     
  12.   مشاركة رقم : 7    ‏2004-08-13
  13. العميد صخر

    العميد صخر عضو

    التسجيل :
    ‏2004-08-13
    المشاركات:
    11
    الإعجاب :
    0
    شكر للحمادي

    السلام عليكم ورحمة الله وبركاته

    يا حمادي ارجو منك اعطاء معلومات جديدة وفي كل وقت واذا استطعت ان ترسلها على بريدي فجزاك الله الف خير
    البريد الإلكتروني sak7117@.hotmil.com
     
  14.   مشاركة رقم : 8    ‏2004-08-13
  15. hope

    hope قلم فضي

    التسجيل :
    ‏2004-04-18
    المشاركات:
    2,521
    الإعجاب :
    0
    مجهود عظيم

    تسلم اخي الحمادي على الموضوع الهم والمفيد جدا

    ومتظرين ابداعاتك وكرمك

    شكر وتقدير ,,,,,,,,
     
  16.   مشاركة رقم : 9    ‏2004-08-14
  17. yemen_ghost

    yemen_ghost عضو متميّز

    التسجيل :
    ‏2004-07-03
    المشاركات:
    1,456
    الإعجاب :
    0
    صدى الحرمان

    العميد صخر

    هوب


    مشكورين للتفاعل



    اخوكم القديم الجديد

    :::يمن جوست:::
     
  18.   مشاركة رقم : 10    ‏2004-08-14
  19. hope

    hope قلم فضي

    التسجيل :
    ‏2004-04-18
    المشاركات:
    2,521
    الإعجاب :
    0
    يمن جوست , alhammady< هل انت ايضا الحمادي

    ممكن نتعرف عليك !!
     

مشاركة هذه الصفحة