Common Dialog
تستخدم هذه الاداه في كثير من الاشياء, ولكنني سأشرح القليل منها الآن..
اولا: اظهار لوحة الالوان:
[COLOR="DarkOrchid"]نستطيع من خلال Common Dialog فتح قائمة الالوان لتغيير لون الفورم او شكل.. الخ[/COLOR
و اعتقد ان الجميع يعرفها...
لأستخدام Common Dialog في اظهار هذه اللوحة نقوم بالآتي:
1) وضع Common Dialog في الفورم.
2) وضع الزر الذي عند الضغط عليه تظهر اللوحة.
3) وضع الكائن المراد تغيير لونه.
4) كتابة الكود التالي في الزر:
Private Sub Command1_Click()
CommonDialog1.Flags = &H1&
CommonDialog1.ShowColor
Element.Action = CommonDialog1.Color
End Sub
الشرح:
عند كتابة الامر CommmonDialog1.ShowColor يقوم البرنامج باظهار صندوق الالوان, اما Element.Action فأن Element هي الكائن المراد تغيير لونه مثل Label1 او Form1 اما Action فهي اما ForeColor اي لون مقدمة الكائن او BackColor و هي خلفيته او BorderColor و هو لون الاطار الخارجي و يكون في الاشكال فقط, و CommonDialog1.Color هي ان لون ما اخترت تغييره سيكون اللون المختار من صندوق الالوان..
ثانيا: فتح ملفات الصور:
نستطيع من خلال Common Dialog فتح ملف صورة bmp او jpg او gif, ذلك عن طريق اتباع الآتي:
1) وضع Common Dialog في الفورم.
2) وضع الزر الذي عند الضغط عليه يظهر صندوق الفتح.
3) وضع Image او Picture.
4) كتابة الكود التالي في الزر:
Private Sub Command1_Click()
CommonDialog1.Filter = "Bitmaps (*.bmp)|Jpeg (*.jpg)”"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Sub
في السطر الاول تمت كتابة نوع الملفات التي يتم اظهارها و ممكن زيادتها, و في الثاني يقوم Common Dialog بفتح نافذة الفتح لاختيار الصورة و وضعها في الصورة...
ثالثا: فتح ملف txt:
نستطيع من خلال Common Dialog فتح ملف نص و ذلك عن طريق اتباع الآتي:
1) وضع Common Dialog في الفورم.
2) وضع الزر الذي عند الضغط عليه يظهر صندوق الفتح.
5) وضع Rich****************Box.
6) كتابة الكود التالي في الزر:
Private Sub Command1_Click()
CommonDialog1.Filter = "**************** (*.txt)"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Rich****************Box1.LoadFile (CommonDialog1.FileName)
End If
End Sub
في السطر الاول تمت كتابة نوع الملفات التي سيتم اظهارها, و في الثاني يقوم Common Dialog بفتح نافذة الفتح و اختيار الملف و وضعه في ****************Box...هذه هي اهم مهام لهذه الاداه واذا اردت معرفة المزيد راجع الجزء الخاص ****************Box..