السؤال الأسبوعي

هذا المثال الأول

FreeHand.rar

عظيم يا حسن، الله يعطيك العافية، انا ظننت بأن سؤالي بايخ ولن يحاول أحد بأن يجبر بخاطري ويحاول حله..

(المثال الذي وضعه الزميل حسن هو ال Solution الكامل) لمن أراد الإطلاع على الكود

بعد أن إطلعت على الكود الذي كتبته يا حسن لاحظت ما يلي:

الكود الذي كتبته أبسط من الكود الذي كتبته أنا وبالتالي أفضل، ولكن يوجد ملاحظة صغيرة عليه وهي أنك عندما تكتب أو ترسم خطاً فإنه يوجد تقطّع فيه (سيتضح لك الأمر عندما تكبر حجم الخط)...

وبإنتظار حل المسألة الثانية قبل نهاية الإسبوع يا أعضاء المنتدى

هاهي ال Solution الذي كتبتها أنا.

freehand.zip

مهلا أخي هارون لننهي الأولى قبل البدأ بالثانيه

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

أمر طبيعي (وهي تحدث أيضاً إن قمت بتغطية الفورم بفورم آخر وليس فقط عندما تعمل تصغير)، أظنك تفتقد خاصية AutoRedraw في الفيجوال بيسك 6 ؟

في ال NET يجب أن تضع الرسم في حدث Paint للفورم إن أردت إعادة رسمها بعد التصغير.

وهذا مثال بسيط يا حسن وهو لتوضيح كيفية التغلب على هذه المشكلة... قم برسم خط على الفورم ثم قم بتصغيره أو تغطيته بفورم آخر.

redraw.zip

اقتباس

انا ظننت بأن سؤالي بايخ ولن يحاول أحد بأن يجبر بخاطري ويحاول حله..

الجواب مضمن الجواب 1 و 2

Selection.rar

رائع يا هشام، رائـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــع.

الله يعطيك العافية.

وهكذا نكون قد إنتهينا من سؤال هذا الإسبوع، سنترك الحلول لمدة أيام حتى يطلع عليها الأخوة قبل وضع سؤال الإسبوع الثاني.

السلام عليكم

صديقي هارون

أرحوا ان لا يكون العمل هنا مجرد كود فقط

نريد أن نقوم بالشرح و معرفة أسباب تفضيل كود عن أخر

و شرح الإسلوب و طريقة التفكير

يا حسن، الأكواد بسيطة ولا تحتاج لشرح ولو قام أحد الأعضاء بطرح نقطة على كلمة في الكود لأبهجنا الرد (بإفتراض بأنهم فعلاً قرأوا هذه الأكواد)... كما يبدو فإنه لا حياة لمن تنادي، كان أمنيتي أن أجد تفاعل ونقوم بالتحيل والشرح وعقد المقارنات والإستفادة من خبرات بعضنا البعض، ولكن بعض الأمنيات لا تتحقق.... أمر محبط حقاً

يا عم هارون إن شاء الله نستمر

و ضع هذه الأسأله في الأرشيف الخالي

و الأعضاء إحتمال ياخدوا بالهم معانا

طيب يا حسن، اطرح سؤال هذا الأسبوع أنت، قم بكتابته بمشاركة جديدة وضع رابط الأسبوع الأول فيها.

هذا بالطبع إن كنا إنتهينا من الأسبوع الأول (أعتقد ذلك).

طيب، سأطرح سؤال الأسبوع الثاني وسأجعله بايخ حتى يتفاعل معنا شبيبة المنتدى. :angry:

كيف أستطيع أن أجعل OpenFileDialog يتعرف على فايل واحد بعينه ، نحن نستطيع أن نجعله يتعرف عن نوع معين فقط من الفايلات، فمثلاً لو أردنا له أن يظهر فقط فايلات ال Text أي الفايلات التي إمتدادها txt فإننا نكتب الكود التالي:

OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt"

ولكنني أريد أن أجعله يتعرف على فايل بعينه، في المثال المرفق لا يستطيع ذلك الكنترول التعرف على أي فايل سوى فايل Text أسميته Haroon، لن يفتح أي فايل Text آخر....

والشق الثاني للسؤال هو: لماذا نحتاج مثل هذا التحديد؟ يوجد بعض التطبيقات لدينا نريدها أن تفتح لنا فايل محدد فما هي برأيك تلك التطبيقات.

أتمنى على أحد الزملاء المشرفين بتغيير عنوان هذه المشاركة الى:

سؤال الأسبوع الثاني

كيف أجعل OpenFileDialog يفتح فايل واحد لا غير

Second_Week.zip

السلام عليكم

أخي البرنامج الذي بعته غير محمي بالكامل ضد كل الملفات حيث إذا كتبت في مكان اسم الملف *.* ستظهر كل الملفات وستستطيع فتحها كلها

أرجو من الإخوة الأعضاء المشاركة في دعم "سؤال الأسبوع"

السلام عليكم

أخي هارون الكود مرفق و لكن كلام الأخ Hesham.Net سليم

المفروض نجد حل لتلك المشكله

secWeek.rar

كلامكما صحيح، وكذلك لو كان عندك ملف Text وقمت بنسخه أسمه مع إسم مساره

فإنك تستطيع فتحه.

اقتباس

المفروض نجد حل لتلك المشكله

لا اعتقد بأنه يوجد حل سوى أن تعمل dialog بنفسك، اي أن تبنيه من الصفر، ولاحظوا بأن فتح ملف واحد ب OpenFileDialog هو مبدأ مضحك، فنحن نستطيع أن نفتح الملف في هذه الحالة مباشرة دون الإستعانة بهذا الكنترول :rolleyes: .

أنا مش عارف ليه الأعضاء لا يشاركون في هذه الأسأله

لماذا لا نستعمل الطريقة

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        If OpenFileDialog1.FileName.EndsWith("Haroon.txt") Then
        End If
    End Sub

وهكذا لايفتح إلا هذا الملف

أما السؤال 2

أعتقد أن برامج الsetup هي التي تحتاج لمثل هذه الأمور اي عندما يكون ملف مفقود تبحث عن الملف بعينه

Second_week.rar

حسناً يا هارون، لقد قمت بتغيير العنوان مع تعديل بسيط به لأن السؤال لا يظهر كله :(

اقتباس

  If OpenFileDialog1.FileName.EndsWith("Haroon.txt") Then

كلامك صحيح، ولكن ليس هذا قصدي عندما قلت بأنه يجب أن تبني Dialog منذ البداية، قصدي كيف أمنع المستخدم من رؤية أي فايل غير الفايل الذي أريده في OpenFileDialog (أي أنه لا يستطيع رؤية أي فايل غير الفايل المحدد حتى ولو كتب *.*)... في هذه الحالة يوجد إحتمالين، ان تبني Class تقوم بوراثة الفئة FileDialog ثم تجري التعديلات المطلوبة، أو تبني Dialog على شكل فورم، وفي كلا الحالتين تحتاج الى جهد ووقت ضخمين.

بالنسبة للجزء الثاني من السؤال، أنا لا أعلم سوى إستخدام وحيد وهو عندما تعمل كراك لأحد البرامج.

اقتباس

حسناً يا هارون، لقد قمت بتغيير العنوان مع تعديل بسيط به لأن السؤال لا يظهر كله

أشكرك أيها الحبيب

اقتباس

ان تبني Class تقوم بوراثة الفئة FileDialog

للأسف لا يمكننا ذلك لأن FileDialog - حسب ملفات الـ MSDN - لا نستتطيع وراثته NonInheritable Class :

Quote from MSDN:
FileDialog is an abstract class, and cannot be instantiated directly. Additionally, you cannot inherit from this class.

سوف تضطر الى أن تبني الكلاس من الاف الى الياء :wacko:

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

و كانت هذه الفكرة هي ان أنواع الملفات المراد فتحها بالـ OpenFileDialog تكون ملونة بلون أحمر أو أي لون يشد الانتباه، و لكني لم أكمل الموضوع لأنه سيأخذ وقتاً كثيراً B)

أشكرك يا محمد على هذه المعلومة التي كنت أجهلها.

والآن هل يستطيع أحد الأخوة أن يضع سؤال الأسبوع الثالث؟؟؟ نريد سؤالاً يجعلنا مشغولين لمدة يومين، فهل من مستجيب؟ بالطبع يجب أن يكون السؤال خفيف لطيف لا يتطلب جهداً كبيراً (أقصد جهد كتابة أكواد طويلة مملة، بل كود قصير يشغل الدماغ).

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

دة مثال عبارة عن لعبة كان احد الاخوة حطها فى منتدى

نجرب كدة

HaHa.rar