ضبط دقة الشاشة على جميع الأحجام

اخواني الاكارم هل توجد طريقة مجربة و فعالة لضبط دقة الشاشة على جميع الأجهزة .. جربت العديد من أكواد ال resize لكن لم أجد النتيجة المرجوّة..تقريبا الأكواد الموجودة بالمنتدى قمت بتجربتها لكنها لم تجدِ نفعًا.

لدي جهازين و كلما أشغل مشروع على الاول و اجرب بالكود و أشغله على الثاني الاكبر حجما .. دوما أجد ما لا يسرُّ الناظرين كأنْ تختفي بعض أجزاء الفورم مثلا أو يظهر فقط نصفها أو ربعها ..

كود :

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

كود :

  Dim height1 As Integer = My.Computer.Screen.Bounds.Height

    Dim width1 As Integer = My.Computer.Screen.Bounds.Width

  TextBox1.Text = width1 & " - " & height1

PHP كود :

Dock و Anchor

ألف شكر و بارك الله فيك و لك أخي و استاذي الكريم الغالي " elgokr " على مشاركتنا الموضوع .. رأيك محترم و يحترم .. سأحاول تجربة ما تطرّق إليه أستاذنا الكريم " khodor " بارك الله فيه

الفكرة تقبّلها فكري علميًّا و برمجيًّا .. لكن هذا يتطلّب أنّ كل عميل يعطيك شاشته لتشتغل عليها .. أو توفّر لديك في البيت معظم الشاشات و الإشتغال حسب الطّلب .. !!