[الشاكي لله]

سعود كتب :اخي الشاكي ممكن ايضاح الفرق بين الكود الذي اضفته وبين كود

كود :

[color=blue]my[/color].computer.screen.workingarea

حسب موقع mdsn :

إقتباس :gets the working area of the display. The working area is the desktop area of the display, excluding taskbars, docked windows, and docked tool bars.

الترجمة :

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

فأنا قمت بتنقيص ارتفاع الشاشة بارتفاع منطقة العمل

وكما وضحت سابقا - منطقة العمل هي المنطقة التي بدون شريط المهام

فناتج التنقيص بكون ارتفاع شريط المهام

[سعود]

بارك الله فيك .. لقد اوضحت شيء مهم بالنسبة لي ..
هل الكود التالي يعمل بكل الشاشات
ضمن حدث Move للفورم المراد تحريكه

كود :

Dim TaskBarHeight As Integer = Screen.PrimaryScreen.Bounds.Height - Screen.PrimaryScreen.WorkingArea.Height



        If Me.Top <= Screen.PrimaryScreen.Bounds.Height - Me.Height - TaskBarHeight Then
            Form1.btnup.Enabled = False
            Form1.btndown.Enabled = True
            Form1.Timer1.Stop()
        ElseIf Me.Top >= Screen.PrimaryScreen.Bounds.Height Then
            Form1.btnup.Enabled = True
            Form1.btndown.Enabled = False
            Form1.Timer2.Stop()
        End If

[الشاكي لله]

سعود كتب :بارك الله فيك .. لقد اوضحت شيء مهم بالنسبة لي ..
هل الكود التالي يعمل بكل الشاشات
ضمن حدث Move للفورم المراد تحريكه

كود :

Dim TaskBarHeight As Integer = Screen.PrimaryScreen.Bounds.Height - Screen.PrimaryScreen.WorkingArea.Height



        If Me.Top <= Screen.PrimaryScreen.Bounds.Height - Me.Height - TaskBarHeight Then
            Form1.btnup.Enabled = False
            Form1.btndown.Enabled = True
            Form1.Timer1.Stop()
        ElseIf Me.Top >= Screen.PrimaryScreen.Bounds.Height Then
            Form1.btnup.Enabled = True
            Form1.btndown.Enabled = False
            Form1.Timer2.Stop()
        End If

الخاصية PrimaryScreen تعني "الشاشة الرئيسية"

مثلا لو قمت انا بتوصيل الجهاز بشاشة حجمها 5030 * 3020

لما قمت بطلب الخاصية PrimaryScreenPrimaryScreen.Bounds.Width

مارح بطلع ليي عرض الشاشة الموصلة (5030)

بل سيظهر لي حجم شاشة الجهاز الرئيسي مثلا عندي في جهازي عرض شاشتي (730)


هناك خاصية تسمى AllScreen تقوم بجلب جميع الشاشات الموصلة بالجهاز

ولمعرفة ذلك قم بالذهاب الى المسار التالي :

Control Panel\Appearance and Personalization\Display\Screen Resolution

وستعرف كم شاشة موصلة في جهازك وايضا شاشتك الرئيسية




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

ملاحظة : كل الي ذكرته من جيبي فأنا لم اجرب هذه الامور