درس تصميم عارض صور بالفيجوال بيسك دوت نت

[MIX]

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

اخواني واخواتي

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

اليوم درسنا بسيط وسهل دجا على المحترف والمبتدىء

الا وهو تصميم برنامج عارض صور

نبدا الدرس بسم الله تعالى

اول شي نصمم مثل الصوره الفورم بالطريقه الي تعجبك سواء مثل الي بالصور مشروحه او بالمزاج الي تبيه

http://www.barqalshamal.com/upload/folder1/elite_j3XbSRJWY.JPG

الخائص تابع الصور

http://www.barqalshamal.com/upload/folder1/elite_2CpW7i8LZc.JPG
http://www.barqalshamal.com/upload/folder1/elite_MbjTq6OT8S.jpg
خصائص PictureBox


http://www.barqalshamal.com/upload/folder1/elite_inrvINXQS4.JPG

خصائص OpenFileDialog



http://www.barqalshamal.com/upload/folder1/elite_dbxGcLykxd.JPG


يعني اضفنا على النموذج ثلاث خصائص زر وصندوق صور وفاتح صندوق الصور

ناتي الحين للزبده :015:
نضغط دبل كلك على زر SelectPicture

يفتح لك محرر الكود(الشيفره ) وتحصل الموشر جاهز لكتابه الكود


' show the open file dialog box.
If ofdSelectPicture.ShowDialog = Windows.Forms.DialogResult.OK Then
' load the picture into the picture box.
picShowPicture.Image = Image.FromFile(ofdSelectPicture.FileName)
' show the name of the file in the form's caption.
Me.Text = "pictureViewer(" & ofdSelectPicture.FileName & ")"


هذاالكود يقوم بستعرااض القرص الصلب بحثا عن ملف الصورة لعرضها في البرنامج

الي لونه اخضر هذا تعليق بس بدينا بعلاه ( ' ) لنخبر البرنامج ان السطر باكمله تعليق وليس بامر برمجه يجب تنفيذهز يتجاهل المترجم Compiler هذه العباره وبالتالي يمكنك كتابه اي نص تريده.

السطر الثاني من البرمجه هو الكود المراد تنفيذ
حيث ان العنصر openFileDialog يتيح لك عرض مربع الحوار ويتيح ايضا للمستخدم اختيار الملف المراد سواء كانت صوره او غيره

ناتي لكود الخروج


' close the window and exit the application
Me.Close()

طبعا ما يحتج شرح

واتمنى اني وصلت ولو جزء بسيط من المعلومات لاخوتي الاعزاء

تحياتي

[المستـشار]

http://www.swahl.com/up/m118/swahlcom_f31d.jpg (http://www.swahl.com/up)


حياك الله مشرفنا

درس جميل


يعطيك العافية على ماتقدمه لنا

جزاك الله خير



-----------
===

[MIX]

المستشار حياك ربي يالغالي

مشكور على مرورك العذب

تحياتي لك

[رعشة هدب]

يعطيك العافيه اخوي ع الجهد الطيـــب ...



تسلم لنا ولا هنـــت ...

[MIX]

شقاوه بدلع

الله يحييك اسعدني تواجدك

تحياتي

[sweety]

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

http://up101.arabsh.com/my/5ff5382.jpg
معلومة اضافية:
لتغير حجم الصورة المنتقاه لتناسب حجم مربع الصورة
اضبط خاصية sizeMode للpictureBox
واختر الخيار strechImage

[صدق المشاعر]

وعليكم السلام ورحمة الله وبركاته أخي MIX (http://www.barqalshamal.com/vb/member.php?u=4075)

ويعطيكـ الإله العافيه ع الدرس الجميل

لاحرمنا المولى جديدكـ

دمت بحفظ الإله

أختك

صدق المشآعر

[MIX]

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

http://up101.arabsh.com/my/5ff5382.jpg



معلومة اضافية:
لتغير حجم الصورة المنتقاه لتناسب حجم مربع الصورة
اضبط خاصية sizeMode للpictureBox

واختر الخيار strechImage


اسعدني والله التطبيق يا اختي الحقيقه كما اسعدني تواجدك


قايل لكم ما نستغني عن مساعدتكم يا اختي

اشكرك والله على اضافه المعلومة القيمة الي بيستفيد منها اول شي انا والمتعلم

تحياتي

[MIX]

اخت صدق المشاعر

الله يحيك ويسعدك

اسعدني تواجدك الحقيقه

تحياتي

[الاميرة الهادئة]

وعليكم السلام ورحمة الله وبركاته
الله يعطيك العافيه اخووي عالشرح الرائع
وهذا تطبيقي

http://www.barqalshamal.com/upload/folder1/elite_TXSd9KIJwK.gif

ولكن يوم بختار الصوره ما تجي ؟؟؟

وبعد يطلع لي هالشي

http://www.barqalshamal.com/upload/folder1/elite_hmTamgnnD.gif

[MIX]

يا هلا ومرحبا باأميرتناااا


منوررره تطبيقك ميه بالميه وليس عندك اي مشكله بس ضعي End IF

بآخر الشرط وليس بعد الكود الاول وهو

If ofdSelectPicture.ShowDialog = Windows.Forms.DialogResult.OK Then

بحيث يكون الكود كذا كما بالصورة
http://www.barqalshamal.com/upload/folder1/elite_DWu5rsVrjU.JPG

لانك حاطه نهاية الشرط بعد بعد السطر الثاني مباشره؟؟ على طول لم تدعي للخصائص الاخرى اي فعل؟؟بختصار عطلتي الباقي لذا عليك ياختي وضع End IFكما في الصورة بدون تغيير اي شي

الله يوفقك ووربي سعيد بتطبيقك يا اميرتنا الله محييك تحياتي



' show the open file dialog box.
If OfdSelectPicture.ShowDialog = Windows.Forms.DialogResult.OK Then
' load the picture into the picture box.
PicShowPicture.Image = Image.FromFile(OfdSelectPicture.FileName)
' show the name of the file in the form's caption.
Me.Text = "pictureViewer(" & OfdSelectPicture.FileName & ")"
EndIf

[الاميرة الهادئة]

مشكور اخووي على التوضيح والله يجزاك جنة الفردوس

طبقت الي قلته بس نفسها المشكله ما تغيرت لان يوم اضغط على زر select picture ينفتح بس ما تطلع لي صور نهائيا ......

وعلى فكره جهازي تفرمت من وحده وبعدها صارت الصور زي كذا ممكن تكون السبب ؟؟؟

http://www.barqalshamal.com/upload/folder1/elite_z7CQPVm2Vc.gif

[MIX]

http://www.barqalshamal.com/upload/folder1/elite_ZSd55oSeHn.JPG


جربي كذا وردي لي خبر


تحياتي

[الاميرة الهادئة]

واخيرا ضبطت معاااي

سويت مثل ما قلت

وهذا التطبيق

http://www.barqalshamal.com/upload/folder1/elite_5pHtigEWFU.gif

والله سهل الفيجوال بس يبغاله تركيز


شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[MIX]

هلا ويا مرحبا بأميرتنااااا


ايوه كذا الكلام والا بلاشش

مثل ما قلتي يا اميرتنا يبي له دقـــــه؟ وتركيـــز

الله يوفقك والله العظيم رغم انك ما درستي الفيجوال بيسك وهو من اللغات المعروفه رايحه تشوفين سهولة التعامل معه دام لك رغبه

الله يوفقك ويسعدك

تحياتي

[نمر الشراري]

مشاء الله تبارك الله

مبدع دوما

وفقك الله