+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : SoftWare Screen Resolution (/showthread.php?tid=19996)
SoftWare Screen Resolution - silverlight - 13-04-17
بسم الله الرحمن الرحيم
مقدمـــــــة :
هذا الموضوع أكتبه إكراما لرجل لما أقابله في الدنيا و عسي الله أن يجمعنا به جميعا في جنات النعيم و الموضوع بمثابة صدقة جارية علي روح هذا الرجل
لذلك أدعوكم جميعا أن تقرأو له الفاتحة و تترحموا عليه و تدعو له بالرحمة
هذا الرجل هو المغفور له أبوليث رحمة الله عليه
الهدف :
الهدف من هذا الموضوع هو توضيح كيفية حساب Resolution الخاصة بشاشة الكمبييوتر ثم استخدام تلك الحسابات في ضبط أبعاد الفورم و أيضا ضبط أبعاد كل شئ موجود علي الفورم مثل الكونترول و الصور و الفونت ليتناسب مع أبعاد شاشة الكمبيوتر
هذا الموضوع يصلح للإستخدام مع كل من الويندوز فورم و أيضا ربما يصلح للإستخدام مع WPF
أولا عزيزي القارئ عليك ان تعلم أن كل شئ يظهر علي شاشة الكمبيوتر يتأثر كليا بشاشة الكمبيوتر و السبب في ذلك هو أن كل شئ علي سطح الكمبيوتر عبارة عن مجموعة من الرسومات التي تم رسمها علي سطح شاشة الكمبيوتر
والقائمة التالية تحتوي علي الأشياء التي تتأثر بشاشة الكمبيوتر
1- الفونت - Font
2- الابعاد , والمقصد هنا Size و SizeF و RectangleF و Rectangle
3- أماكن الصور و الكونترول و ما شابه - و المقصد هنا Point و PointF
4- الصور - Images أو Icons او Bitmap
5- الفورم - Form
6- الكونترول - Control مثل PictureBox او ListBox او أشياء من هذا القبيل
بنظرة سريعة علي القائمة أعلاه ستجد أن جميع هذه الأشياء لها صلة وثيقة و مرتبطة مع بعضها البعض تماما
توضيح :
1- في هذا الموضوع سوف أعتمد بشكل رئيسي و تام علي IntPtr ليكون بمثابة الرابط بين جميع العناصر الموجودة في القائمة أعلاه وكمثال علي ذلك سوف أستخدم IntPtr للحصول علي بيانات عن الفورم و أيضا للحصول علي عدد و كمية و نوعية الكونترول الموجودة علي الفورم. أيضا سوف أستخدم IntPtr للحصول علي معلومات عن شاشة الكمبيوتر Screen Class و أيضا NativeWindow Class
2- هذا الموضوع عبارة عن تجميع لمجموعة من الموضوعات كنت قد كتبتها علي مراحل متفرقة ولكن مع بعض التعديلات و الإضافات
وهذه الموضوعات ستجدونها في قسم المقالات هنا بالموقع
3- سوف أحاول جاهدا و بقدر الإمكان أن اضع جميع الروابط لأي مصادر قد تفيدكم لتوضيح الموضوع بشكل افضل
4- سوف أحاول أن أضع الكثير من الأمثلة لتوضيح الفكرة
5- هذا الموضوع سيتم كتابته علي أجزاء منفصلة لأنه موضوع قد لا ينتهي كلية
6- توضيح اخير ليس الهدف من الموضوع هو صياغة الكود نيابة عن القارئ لكن الهدف هو توضيح بعض المشاكل البرمجية و محاولة إيجاد حلولا لها و يتبقي علي القارئ إن كان مهتما بهذه النوعية من الموضوعات أن يطور أي كود تم كتابته عن هذا الموضوع لأن الهدف الأهم هو تحسين الكود المكتوب من أجل الحصول علي نوعية جيدة من الكود حتي يستفيد الجميع
في النهاية أدعو الله أن يكون الموضوع مفيدا للبعض منكم
و لا تنسونا من صالح دعائكم
غفر الله لنا و لكم ما تقدم من الذنوب و ما تأخر
RE: SoftWare Screen Resolution - sendbad100 - 13-04-17
السلام عليكم
تقبل الله منك
الله يرحمه ويغفر له ويسكنه فسيح جناتة
وجزاك الله الف خير
RE: SoftWare Screen Resolution - silverlight - 14-04-17
الجزء الأول
هناك مجموعة من الدوال من النوع Shared و التي تم توزيعها علي بعض الكلاسات في الدوت نت وجميع هذه الدوال تشترك في شئ واحد ألا وهو إن مررت لها IntPtr أو Handle الخاص بالفورم او بالكونترول بشكل صحيح هنا سوف تحصل علي بعض المعلومات الهامة التي يمكن الاستفادة منها بأشكال عديدة.
وهذه الدوال كالتالي:
1- Control.FromHandle
و هي دالة حين تمرر لها IntPtr أو Handle الخاص بأي كونترول هنا سوف تحصل علي الكونترول الذي يمتلك هذا IntPtr او Handle
2- Screen.FromHandle
وهي دالة حين تمرر لها IntPtr أو Handle الخاص بأي كونترول هنا سوف تحصل علي Screen التي يوجد بها هذا الكونترول
3- NativeWindow.FromHandle
وهي أيضا دالة حين تمرر لها IntPtr أو Handle الخاص بأي كونترول هنا سوف تحصل علي NativeWindow المتصلة بهذا الكونترول
بشكل عام جميع هذه الدوال موجودة في فضاء الاسماء System.Windows.Forms
ولكنها موزعة علي ثلاثة كلاسات هي الكلاس Control و الكلاس Screen و الكلاس NativeWindow
للأسف موقع مايكروسوفت لم يعطي أمثلة توضح كيفية استخدام الدوال أعلاه
لذلك المثال التالي سيوضح كيفية التعامل مع هذه الدوال
وهنا انا استخدم Handle الخاص بالفورم مع جميع الأكواد أدناه
ولتحاول عزيزي القارئ أن تضع باتون علي الفورم و تستخدم Handle الخاص بهذا الباتون بدلا من الفورم و لتري ماذا سيحدث معك
1- الكود التالي يوضح كيفية الحصول علي أي كونترول من Handle الخاص به
يمكن كتابة الكود بالشكل التالي:
PHP كود :
Dim hwnd As IntPtr = Me.Handle
Dim f As Form = TryCast(Control.FromHandle(hwnd), Form)
PHP كود :
Dim hwnd As IntPtr = Me.Handle
Dim scr As Screen = TryCast(Screen.FromHandle(hwnd), Screen)
PHP كود :
Dim hwnd As IntPtr = Me.Handle
Dim f As Form = TryCast(Control.FromHandle(hwnd), Form)
فقط تأكد ان تمرر Index الخاص بالفورم بشكل صحيح
PHP كود :
Dim hwnd As IntPtr = Me.Handle
Dim anyOpenform As Form = TryCast(Control.FromHandle(Application.OpenForms(0).Handle), Form)
أعتقد أنه و بعد الحصول علي Form او الكونترول أو Screen او NativeWindow بهذا الاسلوب سيكون الأمر يسيرا علي القارئ لكي يتعامل مع هذه المتغيرات كما يحلو له وذلك بهدف الحصول علي معلومات اضافية من كل متغير
قد يتساءل البعض و ما الفائدة من كل هذا الكود و الاجابة علي هذا التساؤل هي أننا نبني مكتبة بسيطة للتعامل مع الفورم و الكونترول و شاشة الكمبيوتر و بالتالي سوف نحتاج الي تلك المعلومات لكي نستفيد منها لاحقا
و لأننا نبني مكتبة لذلك من الأفضل كتابة كلاس بسيط بحيث حين نمرر له IntPtr أو Handle نستطيع أن نحصل علي المعلومات التي نحتاجها
و الكود التالي يوضح شكل هذا الكلاس و لقد كتبته علي هيئة Structure
والأمر متروك للقاري لكي يطور الكلاس و يضيف له بعض السمات الإضافية طبقا لرؤية القارئ
PHP كود :
Public Structure WindowPointer
Private _handle As IntPtr
Public Sub New(handle As IntPtr)
_handle = handle
End Sub
Public ReadOnly Property Handle As IntPtr
Get
Return _handle
End Get
End Property
Public Function FindWindow() As System.Windows.Forms.Form
If _handle <> IntPtr.Zero Then
Return FindWindow(_handle)
End If
Return Nothing
End Function
Public Function FindScreen() As System.Windows.Forms.Screen
If _handle <> IntPtr.Zero Then
Return FindScreen(_handle)
End If
Return Nothing
End Function
Private Function FindWindow(hwnd As IntPtr) As System.Windows.Forms.Form
Return (Function()
Return TryCast(System.Windows.Forms.Control.FromHandle(hwnd), System.Windows.Forms.Form)
End Function)()
End Function
Private Function FindScreen(hwnd As IntPtr) As System.Windows.Forms.Screen
Return TryCast(System.Windows.Forms.Screen.FromHandle(hwnd), System.Windows.Forms.Screen)
End Function
End Structure
الكود التالي يوضح كيف تستخدم الكلاس كبديلا عن الأمثلة التي كتبنا أكوادها أعلاه
PHP كود :
Dim hwnd As IntPtr = Me.Handle
Dim wp As WindowPointer = New WindowPointer(hwnd)
Dim scr As Screen = wp.FindScreen()
Dim f As Form = wp.FindWindow()
Me.Text = f.Name + " -" + "Test"
Dim screenBounds As Rectangle = scr.Bounds
Dim scrWorkingAre As Rectangle = scr.WorkingArea
لمزيد من التفاصيل يمكن للقارئ الإطلاع علي الروابط الروابط التالية
Control.FromHandle
Screen.FromHandle
NativeWindow.FromHandle
IntPtr Structure
RE: SoftWare Screen Resolution - silverlight - 14-04-17
الجزء الثاني
ضبط الفورم و الكونترول ليتنسابا مع أبعاد اي شاشة كمبيوتر يتلخص في الخطوات التالية:
1- تحديد مقياس الرسم الذي نراه مناسبا و افضل مقياس رسم هو القيمة = 1
2- معرفة الفورم الي سنقوم بضبط أبعاده
3- معرفة جميع الكونترول الموجودة علي الفورم
4- معرفة DPI الخاص بأي شاشة عرض وهذا يتم باستخدام الجرافكس
5- ثم بناء علي حسابات DPI نحسب مقياس الرسم الحقيقي الذي يتناسب مع ابعاد شاشة الكمبيوتر
الأن نأتي لكيفية كتابة الأكواد لتنفيذ الخطوات أعلاه و هي خطوات بسيطة جدا
في الحدث Load الخاص بالفورم ضع الكود التالي
PHP كود :
' تحديد مقياس الرسم
Dim scale As Double = 3
' تحديد الفورم
Dim currentForm As Form = Me
' تحديد جميع الكونترول علي الفورم
' هنا يجب أن نتحري الدقة قليلا لأنه ربما الفورم لا يعطيك جميع الكونترول فعليا
'خاصة حينما يكون لديك اي كونترول أخر مثل الجروب بوكس مثلا قد يحتوي علي بعض الكونترول
Dim currenControls As Control.ControlCollection = Me.Controls
' حسابات دقة الشاشة
'
Dim dpiX As Single = CSng(88)
Dim dpiY As Single = CSng(96)
Dim currentDpi As SizeF = SizeF.Empty
Using g As Graphics = Graphics.FromHwnd(IntPtr.Zero)
currentDpi = New SizeF(Math.Max(g.DpiX, dpiX), Math.Max(g.DpiY, dpiY))
End Using
' حسابات مقياس الرسم الدقيق و الفعلي
Dim realScale As Double = (scale * currentDpi.Width) / 100
' الأن لنضبط أبعاد الفورم
Dim currentFormSize As Size = currentForm.Size
Dim newBestSize As Size = New Size(currentFormSize.Width * realScale, currentFormSize.Height * realScale)
currentForm.Size = newBestSize
مثلا أن أردت تغيير الفونت قم بإضافة الأسطر التالية من الكود الي الأكواد اعلاه
PHP كود :
' مثال لكيفية ضبط الفونت مع مقياس الرسم
' ضع باتون علي الفورم و لاحظ ما سيحدث معك
Dim currentFormFont As Font = currentForm.Font
Dim bestFitFont As Font = New Font(currentFormFont.FontFamily, currentFormFont.Size * realScale)
currentForm.Font = bestFitFont
حاول تغير في مقياس الرسم و أقصد هنا المتغير scale و لتري ما سيحدث معك
أخيرا و بما أننا نصنع كلاس او نبني مكتبة بسيطة لضبط الفورم ليكون مناسبا مع ابعاد الشاشة فإن الكود سيكون مختلف قليلا
لكن ستظل الخطوات واحدة
وإن أردت أن تفعل نفس الشي مع جميع الكونترول الموجودة علي الفورم فقط ستحتاج الي حلقة تكرارية و تقوم بضبط ابعاد كل كونترول
في الجزء الثالث و الأخير سأضع لكم الكلاس الذي يمكنكم استخدامه مع اي فورم
RE: SoftWare Screen Resolution - silverlight - 15-04-17
الجزء الثالث و الأخير
الكود التالي يوضح شكل الكلاس الذي من الممكن استخدامه لضبط ابعاد الفورم لتتناسب مع شاشة الكمبيوتر
الكلاس يمكن اعتباره أساس معقول لبعض المبرمجين لكي يطوروا فيه بشكل أفضل
PHP كود :
Public Structure WindowResolution
Private _scale As Double
Private _hwnd As IntPtr
Private Const LogicDpiX As Integer = 88
Private Const LogicDpiY As Integer = 96
' هنا يتم استخدام مقياس رسم يساوي 1
Public Sub New(hwnd As IntPtr)
Me.New(hwnd, 1)
End Sub
' هنا يمكن تحديد مقياس رسم أكبر من أو أقل من 1
Public Sub New(hwnd As IntPtr, scale As Double)
_hwnd = hwnd
_scale = scale
End Sub
Public ReadOnly Property Controls As IEnumerable(Of Control)
Get
Dim _controls As IEnumerable(Of Control) = Nothing
If _hwnd <> IntPtr.Zero Then
Dim criteria As Func(Of Control, Boolean) = Function(c) c IsNot Nothing AndAlso Not c.IsDisposed AndAlso c.IsHandleCreated AndAlso c.Visible
Dim ctrl As Form = TryCast(Control.FromHandle(_hwnd), Form)
_controls = If(Not criteria(ctrl), New Control() {}, GetControls(ctrl.Controls, ctrl, criteria))
End If
Return _controls
End Get
End Property
Public ReadOnly Property Window As Form
Get
If _hwnd <> IntPtr.Zero Then
Return FindWindow(_hwnd)
End If
Return Nothing
End Get
End Property
Public ReadOnly Property Scale As Double
Get
Return CalculateScale(_scale)
End Get
End Property
Public ReadOnly Property Size As Size
Get
Dim currentFormSize As Size = Window.Size
Dim bestFitSize As Size = New Size(currentFormSize.Width * Scale, currentFormSize.Height * Scale)
Return bestFitSize
End Get
End Property
Public ReadOnly Property Font As Font
Get
Dim currentFormFont As Font = Window.Font
Dim bestFitFont As Font = New Font(currentFormFont.FontFamily, currentFormFont.Size * Scale)
Return bestFitFont
End Get
End Property
Private Function FindWindow(hwnd As IntPtr) As System.Windows.Forms.Form
Return (Function()
Return TryCast(System.Windows.Forms.Control.FromHandle(hwnd), System.Windows.Forms.Form)
End Function)()
End Function
Private Sub FindControls(parent As Control, controls As HashSet(Of Control), criteria As Func(Of Control, Boolean))
If parent Is Nothing Then
Return
End If
For Each ctrl As Control In parent.Controls
If criteria(ctrl) Then
controls.Add(ctrl)
End If
If ctrl.HasChildren Then
FindControls(ctrl, controls, criteria)
End If
Next
End Sub
Private Function GetControls(list As ICollection, parent As Control, criteria As Func(Of Control, Boolean)) As HashSet(Of Control)
If list Is Nothing OrElse parent Is Nothing Then
Return Nothing
End If
Dim controls As HashSet(Of Control) = New HashSet(Of Control)()
For Each ctrl As Control In list
controls.Add(ctrl)
FindControls(parent, controls, criteria)
Next
Return controls
End Function
Private Function DetectResolution() As SizeF
Return DetectResolution(CType(Nothing, Control))
End Function
Private Function DetectResolution(control As Control) As SizeF
Dim currentDpi As SizeF = SizeF.Empty
Dim dpiX As Single = CSng(LogicDpiX)
Dim dpiY As Single = CSng(LogicDpiY)
If control Is Nothing Then
Using g As Graphics = Graphics.FromHwnd(IntPtr.Zero)
currentDpi = New SizeF(Math.Max(g.DpiX, dpiX), Math.Max(g.DpiY, dpiY))
Return currentDpi
End Using
End If
Using g As Graphics = control.CreateGraphics()
currentDpi = New SizeF(Math.Max(g.DpiX, dpiX), Math.Max(g.DpiY, dpiY))
Return currentDpi
End Using
Return currentDpi
End Function
Private Function CalculateScale(value As Double) As Double
Return (value * DetectResolution().Width) / 100
End Function
End Structure
الكود التالي يوضح بعضا من الأفكار البسيطة لكيفية استخدام الكلاس
PHP كود :
Dim res As New WindowResolution(Me.Handle, 1.4)
Me.Size = res.Size
Me.Font = res.Font
أتمني ان تكون الفكرة قد اتضحت للقارئ
RE: SoftWare Screen Resolution - HASAN6.0 - 20-06-18
شكرا لك استاذ silverlight
رحمه الله عليك يا ابا الليث ,, التقيته ذات حين , وهو من ارقى الناس الذين عرفتهم .
رحمه الله رحمه واسعة.