تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ضبط دقة الشاشة على جميع الأحجام
#1
السلام عليكم و رحمة الله و بركاته
اخواني الاكارم هل توجد طريقة مجربة و فعالة لضبط دقة الشاشة على جميع الأجهزة .. جربت العديد من أكواد ال resize لكن لم أجد النتيجة المرجوّة..تقريبا الأكواد الموجودة بالمنتدى قمت بتجربتها لكنها لم تجدِ نفعًا.
لدي جهازين و كلما أشغل مشروع على الاول و اجرب بالكود و أشغله على الثاني الاكبر حجما .. دوما أجد ما لا يسرُّ الناظرين كأنْ تختفي بعض أجزاء الفورم مثلا أو يظهر فقط نصفها أو ربعها ..
بارك الله فيكم و لكم و جزاكم خير الجزاء مقدما
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة:
#2
نعم اخي توجد طريقة جربتها وناجحه وهي التعرف على حجم الشاشة واستخدام عبارة الشرط if في الاحجام وتوسعة الادوات 

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


هاذي طريقتي في ضبط الشاشة طويلة قليلا ولاكن مناسبة
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#3
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أخي الكريم " dasktop " على المساعدة
لو تتكرّم أخي الغالي .. فضل و إحسان منك .. بملف تطبيقي فقط لتجربة ذلك على جهازي
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة:
#4
وعليكم السلام ورحمة الله وبركاته ،،


افضل طريقة من وجهة نظري هي :

عند تشغيل البرنامج تخزن دقة الشاشة مثلاً (1024×768) في متغير

وتعمل تغيير لدقة الشاشة لنفس الدقة التي تم تصميم التطبيق عليها .

وعند إغلاق التطبيق تعمل استرجاع للدقة .
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#5
تفضل

ضع هاذا التعريف فوق الفروم لود


كود :
Dim ProportionsArray() As CtrlProportions



وفي الفروم لود ضع هاذا الكود


كود :
    Informload()

  End Sub
  Private Structure CtrlProportions
      Dim HeightProportions As Single
      Dim WidthProportions As Single
      Dim TopProportions As Single
      Dim LeftProportions As Single
  End Structure
  Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

      Resizeform()

  End Sub


  Sub Informload()

      On Error Resume Next

      Application.DoEvents()

      ReDim ProportionsArray(0 To Controls.Count - 1)

      For I As Integer = 0 To Controls.Count - 1

          With ProportionsArray(I)
              .HeightProportions = Controls(I).Height / Height
              .WidthProportions = Controls(I).Width / Width
              .TopProportions = Controls(I).Top / Height
              .LeftProportions = Controls(I).Left / Width

          End With
      Next

  End Sub

  Public Sub Resizeform()

      On Error Resume Next

      For I As Integer = 0 To Controls.Count - 1

          Controls(I).Left = ProportionsArray(I).LeftProportions * Me.Width
          Controls(I).Top = ProportionsArray(I).TopProportions * Me.Height
          Controls(I).Width = ProportionsArray(I).WidthProportions * Me.Width
          Controls(I).Height = ProportionsArray(I).HeightProportions * Me.Height
      Next



سوف تكون مرتبة الادوات فقط ماعدى النصوص سااعمل لك مثال على ذالك
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#6
(19-11-18, 04:34 PM)حريف برمجة كتب : وعليكم السلام ورحمة الله وبركاته ،،


افضل طريقة من وجهة نظري هي :

عند تشغيل البرنامج تخزن دقة الشاشة مثلاً (1024×768) في متغير

وتعمل تغيير لدقة الشاشة لنفس الدقة التي تم تصميم التطبيق عليها .

وعند إغلاق التطبيق تعمل استرجاع للدقة .

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أستاذنا الكريم " حرّيف برمجة "
وجهة نظرك مسموع لها أخي الغالي ..
لو سمحت كيف يتم عمل هذا المتغيّر علمًا أنّ دقّة شاشة الجهاز الذي أفضّل العمل عليه هي : 768 - 1366
طبعا قما بجلب هذه الدقذة كما تعلم أكيد :

كود :
  Dim height1 As Integer = My.Computer.Screen.Bounds.Height
   Dim width1 As Integer = My.Computer.Screen.Bounds.Width
 TextBox1.Text = width1 & " - " & height1
بارك الله فيك و لك و بصالح أعمالك ليوم الدّين
كما لا يفوتني تهنئتك بذكر مولد النبي المصطفى عليه و على آله و صحبه أفضل السّلام

تحياتي

السلام عليكم و رحمة الله و بركاته
تسلم أخي الكريم " daskttop " و سلم يمينك و دينك
سأجرب و أخبرك بالنتيجة ان شاء الله
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة:
#7
لا انصح طريقة الاخر حريف برمجة مع كل التقدير بالاحترام له على الفكرة
لان هذه الطريقة تسبب مشكلة لاصحاب من يقوم بترتيب ايقونات 
سطح المكتبه يمين ويسار واعلى واسفل الشاشة
فعند تغيير المقاسات ستسبب فى ترتيب الملفات بشكل 
عشوائي بسبب صغر وتكبير مقاس الشاشة

افضل طريقة انصح بها دائماً هو التعامل مع خيارات 
PHP كود :
Dock و Anchor 

تلك الخيارت هى خلاصة واختصار المطلوب

للتوضيح اكثر قام الاخ khodor1985
بشرح  طريقة بكل سهولة وبساطة توضح كيفية جعل الفورم اكثر تناسق

كما يمكنك مراجعة الرابط التالى والتى تتبع الشرح بها الى الاخ silverlight

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#8
ممكن اح الافاضل  يضع حل امثل ومجرب  نتبعة في استخدامنا
شكرا لكم
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#9
السّلام عليكم و رحمة الله و بركاته
ألف شكر و بارك الله فيك و لك أخي و استاذي الكريم الغالي " elgokr " على مشاركتنا الموضوع .. رأيك محترم و يحترم .. سأحاول تجربة ما تطرّق إليه أستاذنا الكريم " khodor " بارك الله فيه
و من جهة أخرى و كرأي قرأته ذات مرّة بأحد المشاركات و هو التّصميم على حسب شاشة العميل ..!!؟؟
الفكرة تقبّلها فكري علميًّا و برمجيًّا .. لكن هذا يتطلّب أنّ كل عميل يعطيك شاشته لتشتغل عليها .. أو توفّر لديك في البيت معظم الشاشات و الإشتغال حسب الطّلب .. !!
ما يحيّرني برامج عالميّة مثل الفوتوشوب مثلاً .. و لا مرّة سمعت أنّه حدثت مشكلة بدقة الشاشة .. و هذا يعني أنّ هناك حل برمجي
كيف ؟؟
الله أعلم
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة:
#10
(20-11-18, 06:46 AM)khodor1985 كتب : السلام عليكم إخواني الأعزاء ورحمة الله وبركاته،
من وحي الخبرة في مجال تصميم النوافذ والواجهات لقد لستخدمت في كل البرامج التي صممتها أداة الـ TableLayoutPanel، ولم أواجه أي مشكلة عند أي زبون بخصوص دقة الشاشة، لذا أنصح باستخدامها.

السّلام عليكم و رحمة الله  و بركاته
أنا فعلا أتابع و أحاول فهم ما تمّ ذكره من سيادتك أستاذنا الكريم .. بارك الله فيك و لك و جزاك خير الجزاء
تحياتي و إحتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: khodor1985 , khodor1985 , elgokr , مححمد يوسف حافظ


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تحميل جميع الماسحات الضوئية المتصلة بالجهاز في كومبوبوكس جيولوجي مبتدئ 2 202 22-02-24, 07:10 PM
آخر رد: جيولوجي مبتدئ
Star دقة الشاشة 1080 waataanys 1 222 05-01-24, 12:45 AM
آخر رد: HALIM ELEULMA
  [VB.NET] كيف يمكن إخفاء ظهور الشاشة السوداء فى الـــ console AmeenRashed 2 316 15-11-23, 03:51 PM
آخر رد: justforit
  [VB.NET] احتاج كود يغلق جميع الفورم ويبقي فقط الفورم Home Ali_hassn 4 545 15-08-23, 06:43 PM
آخر رد: Alexander Max2
  سؤال حول اغلاق جميع النوافذالمفتوحة maherhaddaf 3 455 20-07-23, 08:48 AM
آخر رد: maherhaddaf
  أريد كود لغلق جميع النوافذ عند تسجيل الخروج Emam emam 2 502 10-07-23, 02:12 AM
آخر رد: Emam emam
Exclamation [سؤال] كيف اشغل برنامجي على جميع الفريموروك mudz 41 47,790 20-12-22, 01:20 AM
آخر رد: kebboud
  [VB.NET] هل يوجد طريقة لجعل البرنامج يظهر فوق جميع البرامج mohamedahmed1 3 787 31-10-22, 01:26 AM
آخر رد: mohamedahmed1
  مسح جميع أدوات النص دفعة واحدة sads 8 3,663 29-10-22, 04:04 PM
آخر رد: خالد العصاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم