هــــدية : تغيير دقة الشاشة ChangeAndGetScreenResolution

[Shivan Rekany]

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

اريد ان اهدى هذه الهدية الى من يحتاج له
الى كل اساتذي في المنتدى

الى كل عضو

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

اي بإمكان ان نغير سكرين ريليشن عند فتح النموذج الاول من البرامج 
وعند اغلاق البرامج يرجع سكرين ريليشن اي دقة الشاشة الى وضعه الطبيعي

لا اريد ان اطول عليكم

اتفضلوا مع القاعدة

 

 

ChangeAndGetScreenResolution.rar

ChangeAndGetScreenResolution2003.rar

تم تعديل أبريل 14, 2017 بواسطه Shivan Rekany
تم تغير القاعدة وتم رفع قاعدة باصدار 2003 ايضا

[Shivan Rekany]

25 دقائق مضت, sandanet said:

هدية اكثر من رائعة تسلم ايدك كنت ابحث عنها من زمان 

شکرا لک صدیقی

الحمد لله 

الان اللی ترید  بین یدیک

تحیاتی

تم تعديل أبريل 13, 2017 بواسطه Shivan Rekany

[Shivan Rekany]

منذ ساعه, حسين العربى said:

عمل فوق الممتاذ استاذي Shivan Rekany دائما مبدع

شكرا لك صديقي

منذ ساعه, wael_rafat said:

مبدع دائما استاذنا وحبيبنا 

وايضا شكرا لك صديقي

[Shivan Rekany]

7 ساعات مضت, محمد ابوعبد الله said:

بارك الله فيك اخي الكريم

ووفقك الله لما يحب ويرضى

تحياتي

بارك الله فيك وفينا اجمعين

شكرا لك

4 ساعات مضت, figo82eg said:

ممكن المثال بصيغه 2003

نعم ممكن
اتفضل
تم ارفاق القاعدة باصدار 2003 ايضا

تقبل تحياتي

تم تعديل أبريل 14, 2017 بواسطه Shivan Rekany

[Shivan Rekany]

4 ساعات مضت, ابو الآء said:

بارك الله فيك استاذى 

عمل رائع ونحتاج اليه بكثره

سوف احاول تطبيقه فى ملفاتى ان شاء الله

بارک الله فیک وفینا اجمعین

2 ساعات مضت, أواب said:

المثال 2003 لا يعمل عندي  تطلع رسالة!

ممکن ترفق صورة من الرسالة
لان عندي بيعمل كلا من نسختين

وما بها مشكلة
استاذنا @ابو خليل هل من الممكن ان تعمل تجربه 
اذا ما لك ازعاج

تقبل تحياتي

تم تعديل أبريل 14, 2017 بواسطه Shivan Rekany

[Shivan Rekany]

9 دقائق مضت, ابو زاهر said:

بارك الله فيك اخي@Shivan Rekany ربنا يا يرحمنا من ابداعتك

تحياتي ليك

بارک الله فیک وفینا اجمعین

[jjafferr]

شكرا أخي شفان على الهدية

 

حاولت اغير دقة الشاشة الى دقة اخرى ، او حتى اختار من قائمة السرد ، ولكن لم يفلح الامر

وكذلك ، ياريت يكون فيه قائمة بالدقة المسموح بها في كمبيوتري ، بدل القائمة الافتراضية

 

جعفر

[Shivan Rekany]

في ١٥‏/٤‏/٢٠١٧ at 00:11, ابو الآء said:

استفسار بسيط استاذى 

هل يمكن عكس الفكره

اى تغيير حجم الفور ليناسب حجم الشاشة

 

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

في ١٥‏/٤‏/٢٠١٧ at 02:21, figo82eg said:

مبدع جزاك الله خير

وحزاك الله كل خير .. شكرا لك

14 ساعات مضت, abosherif1 said:

جزاك الله عنا خير الجزاء. وجعله الله فى ميزان حسناتك اللهم امين.

وجزاك الله الفردوس الاعلى 

6 ساعات مضت, jjafferr said:

1 / شكرا أخي شفان على الهدية

 

2/ حاولت اغير دقة الشاشة الى دقة اخرى ، او حتى اختار من قائمة السرد ، ولكن لم يفلح الامر

3 / وكذلك ، ياريت يكون فيه قائمة بالدقة المسموح بها في كمبيوتري ، بدل القائمة الافتراضية

 

جعفر

1 / لا داعي للشكر سيدي علواجب

2 / هل اختارت دقة الشاشة اللي في جهازك ام اختارت دقة اخرى . وماذا ظهر عندك اي انفجر شي 

3 / الله يستر عليك .. في الحقيقة انا لا اعرف ان اعمل لك المطلوب ولكن ساحاول ... "خلي بيكون بيننا هل تعرف شي عن ذلك اعلمني  

تقبل تحياتي

[jjafferr]

12 ساعات مضت, Shivan Rekany said:

2 / هل اختارت دقة الشاشة اللي في جهازك ام اختارت دقة اخرى . وماذا ظهر عندك اي انفجر شي 

3 / الله يستر عليك .. في الحقيقة انا لا اعرف ان اعمل لك المطلوب ولكن ساحاول ... "خلي بيكون بيننا هل تعرف شي عن ذلك اعلمني  

 

2. لا ، وانما ما صار شيء ، والحمدلله

3. تفضل ، وبدون الجدول اللي فيه سجلات سابقة عشوائية

 

جعفر

 

ChangeAndGetScreenResolution.zip

تم تعديل أبريل 29, 2017 بواسطه jjafferr
تم تغيير المرفق حسب ملاحظة الاخ شفان

[Shivan Rekany]

2 ساعات مضت, jjafferr said:

هلا والله

آسف ما فهمت قصدك بالتعديلات؟

 

جعفر

قصدي 

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

 

تم تعديل أبريل 29, 2017 بواسطه Shivan Rekany

[jjafferr]

السلام عليكم

 

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

me.combo.rowsource = me.combo.rowsource & "," & "1200 x 1024"

والتي اضيف فاصلة بين البيانات ، وهذه الطريقة تشتغل تمام للكمبيوترات ذات التنصيب الانجليزي ، ولكن الكمبيوترات ذات التنصيب العربي تستعمل الفاصلة المنقوطة!!

اما الآن فقد تم استعمال طريقة AddItem. الان

me.combo.AddItem "1200 x 1024"

 

وقد قمت بتغيير المرفق في مشاركتي السابقة 

 

جعفر

[Shivan Rekany]

ما اروعك اخي واستاذي الحبيب

شكرا لك
نزلت مرفقك وهو فوق الممتاز
شكرا لك على مداخلتك 

جزاك الله الفردوس الاعلى

تقبل تحياتي

اخوك ( الصغير  )
شفان ريكاني

[صالح حمادي]

فكرة حلوة من أساتذة حلوين أخي @jjafferr و @Shivan Rekany

شكرا جزيلا و جزاكم الله خير الجزاء

[Shivan Rekany]

غائب غائب غائب
يا حلو وينك

اهلا بك في منتداك من جديد

[صالح حمادي]

أهلين أخي لقد شغلتني الأعمال المنزلية عن الدخول لبعض الوقت

[jjafferr]

حياك الله

هلا والله أخوي صالح

هذه الثغرة Bug اللي الى اليوم ما لقوا لها حل

 

جعفر

[صالح حمادي]

ههههه نحن نحتاج إلى أعظم من مبرمج محترف لحل هذه المشكلة.

خليني أحكيلك حكاية صارت معي في الأيام السابقة:

كانت بنتي الصغير "غفران" تبكي كثيرا خاصة في الليل

قال لي أبي : "صالح إعمل لها برنامج يسكتها"

لذلك أنا محتاجك في هذا البرنامج

[jjafferr]

لوسمحت تشرح لي الموضوع بالتفصيل ، وتعطيني مجموعة امثلة ، وشو الطريقة اللي تريد فيها حل المشكلة ، ومافي داعي ارفاق المشكلة ، وان شاء الله نلقى لها حل

الله ان شاء الله يخليكم لبعض ، وتتربى في عزك ان شاء الله

 

جعفر