بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته سأبدأ اليوم إن شاء الله التحدث عن التعامل مع الملفات والتي سأبدؤها بمقدمة عن أداة 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[/align] وهذا هو الأسلوب القديم ... 2- بالاعتماد على الخصائص Show ويتم ذلك حسب ما يلي : [align=left]'الخيار التالي لفتح ملف CommonDialog1.ShowOpen 'الخيار التالي لحفظ ملف CommonDialog1.ShowSave 'الخيار التالي لاختيار اللون CommonDialog1.ShowColor 'الخيار التالي لاختيار الخط CommonDialog1.ShowFont 'الخيار التالي لخيارات الطباعة CommonDialog1.ShowPrinter 'الخيار التالي لاستدعاء التعليمات CommonDialog1.ShowHelp[/align] طبعا ولا شك الأسلوب الثاني هو الأفضل خاصية أخرى من خصائص مربعات الحوار هي خاصية DialogTitle والتي تحدد عنوان مربع الحوار الذي ستظهره لاحقاً ، وهي إختيارية لك أن تختارها أو لا . أيضا يوجد خاصية جميلة وهي CancelError والتي تقوم بإصدار خطأ إذا قام المستخدم بالضغط على زر Cancel ورقم هذا الخطأ هو 32755 ولعل البعض يتساءل ما الفائدة من هذه الخاصية والجواب هو معرفة هل يكمل البرنامج عمله أم لا . هناك خاصية الـ Filter وهي واحدة من الخصائص الخاصة بمربعي حوار الفتح والحفظ وهي تحدد نوع الملفات التي تود عرضها في مربع الحوار مثل ملفات (txt) وتكتب بهذا الشكل : 'السطر التالي يجعل لك خيارين للفلتر وهي ملفات النصوص وكل الملفات CommonDialog1.Filter = "Text Files|*.txt|All Files|*.*" خاصية أخرى من الخصائص الخاصة بمربعي حوار الفتح والحفظ وهي InitDir والي تحدد المجلد (الدليل) الذي سيعرضه مربع الحوار عند ظهوره ويكون استخدام هذه الخاصية بالشكل : [align=left]CommonDialog1.InitDir = "C:\Windows[/align]" أيضا لمربعي حوار الفتح والحفظ خاصيتي هما FileName و FileTitle والفرق بينهما أن الأولى تعرض المسار الكامل للملف في حين أن الأخرى لا تعرض سوى اسم الملف [align=left]'سيحتوي المتغير التالي على قيمة تشابه 'C:\Windows\Win.ini MyFile = CommonDialog1.FileName 'سيحتوي المتغير التالي على قيمة تشابه 'Win.ini MyFile = CommonDialog1.FileTitle[/align] يقابل هذه الخاصية في مربع اختيار اللون خاصية Color وللتعامل مع هذه الخاصية اكتب شيئاً كهذا : 'بهذا تغير لون الـ Form1 [align=left]Form1.BackColor = CommonDialog1.Color[/align] ويقابها في مربع اختيار الخط مجموعة الخصائص 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] أو [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] ويقابلها في مربع حوار خيارات الطباعة مجموعة من الخصائص هي : [align=left]'تعيين عدد النسخ NumberOfCopies = CommonDialog1.Copies 'من الصفحة StartFromPage = CommonDialog1.FromPage 'إلى الصفحة StopOnPage = CommonDialog1.ToPage[/align] خاصية جديدة من الخصائص وهي Flags وهي من الخصائص المهمة جداً والتي تستخدم مع كل مربعات الحوار ويستفاد منها في تعيين بعض الخيارات الأساسية لمربع الحوار ... مربعي الحوار الفتح والحفظ [align=left]'يجب أن يكون الملف موجوداً وإلا تعرض رسالة خطأ CommonDialog1.Flags = &H1000& 'يعرض مربع الحوار رسالة تحذير إذا اختار المستخدم ملف موجود للحفظ فوقه CommonDialog1.Flags = &H2& 'يجب أن يكون مسار الملف موجوداً CommonDialog1.Flags = &H800&[/align] وإذا أردت الجمع بين عدة خيارات فيجب أن تفصل بينها بـ Or كأن تكتب مثلاً : [align=left]CommonDialog1.Flags = &H1000& Or &H2& Or &H800&[/align] مربع حوار اللون [align=left]'فتح المربع كاملا بما في ذلك الجزء الخاص بتحديد ألوان جديدة CommonDialog1.Flags = &H2& 'تعطيل الزر الذي يقوم بفتح الجزء الخاص بتعيين ألوان جديدة CommonDialog1.Flags = &H4& [align=right]مربع حوار اختيار الخط [/align] 'يعرض مربع الحوار خطوط الشاشة فقط CommonDialog1.Flags = &H2& 'يعرض مربع الحوار خطوط الطابعة فقط CommonDialog1.Flags = &H4& 'يعرض مربع الحوار خطوط الشاشة والطابعة معاً CommonDialog1.Flags = &H2&[/align] أتمنى للجميع التوفيق اخوكم : الحمادي

مواضيع رائعة .,.,.,., وجهد مبدع .,.,.,., استمر دائما بإتحافنا بالمزيد .,.,.,.,

مشكور على مرورك الطيب يا مشرف .,.,.,.,. اخوك : الحمادي

رائع جدا جدا جدا تصور انني كنت من زمان اريد معرفة هذه المعلومات جزاك الله خير وبارك الله فيك وياريت تستمر في الدروس لكي نستفيد من ما عندك بارك الله فيك ورزقك من الطيبات

اشكرك وهذا يعطيني حافز للمواصلة اشكرك مرة اخري اخي (الصيني) اتمنى اعرف اسمك اخوك : الحمادي

مشكور درس روعة

السلام عليكم ورحمة الله وبركاته يا حمادي ارجو منك اعطاء معلومات جديدة وفي كل وقت واذا استطعت ان ترسلها على بريدي فجزاك الله الف خير البريد الإلكتروني sak7117@.hotmil.com

مجهود عظيم تسلم اخي الحمادي على الموضوع الهم والمفيد جدا ومتظرين ابداعاتك وكرمك شكر وتقدير ,,,,,,,,

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

يمن جوست , alhammady< هل انت ايضا الحمادي ممكن نتعرف عليك !!