بسم الله الرحمن الرحيم
شرح الاداة Common Dialog
من خلال الاداة يمكنك التعامل مع الملفات
وهذا مثال للتعامل مع الاداة
الجزء الأول :
1- قم بفتح project ثم أختار Components وختار منها Microsoft Common Dialog
2- قم بوضع الاداة على الفورم وضع Image وضع زر Command
3- اكتب الكود التالى فى حدث الزر
On Error GoTo saveError
CommonDialog1.Filter = "Gif|*.gif|JPG|*.jpg|Bmp|*.bmp| All File|*.*"
CommonDialog1.DialogTitle = "Open file"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Image1.Picture = LoadPicture(CommonDialog1.FileName)
saveError:
Exit Sub
شرح الكود:
السطر الأول : تشغيل متصيد الأخطاء لمعرفة ان المستخدم ضغط زر الغاء
السطر الثاني : متحول خاص بنوعية الملفات الظاهرة
السطر الثالث : تسمية عنوان مربع الفتح
السطر الرابع : لتسجيل الملفات
السطر الخامس: فى حال لم يتم فتح اسم ملف يتم الخروج من الأجراء
السطر السادس: تحميل الصورة
ولاستخدام الألوان اضف زر واكتب بداخلة
CommonDialog1.ShowColor
If CommonDialog1.Color = 0 Then Exit Sub
Form1.BackColor = CommonDialog1.Color
شرح الكود :
السطر الأول : إظهار ألوان الكمون دايلوك
السطر الثاني : إذا لم يتم تحديد لون ألغي الحدث
السطر الثالث : تلوين الفورم باللون الذي تم تحديده
بذلك تعرفنا على عمل الاداة من هذا الجزء
والسلا م عليكم :D
