+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار بخصوص وضع ظهور الشاشة عند التشغيل (/showthread.php?tid=2764)
استفسار بخصوص وضع ظهور الشاشة عند التشغيل - i_samy - 05-05-14
السلام عليكم
عند تصميم شاشة على VB 2010 يمكن تحديد وضع ومكان ظهور الشاشة على سطح المكتب من خلال خاصية StartPosition
سؤالى :
بفرض وجود زر عمله توسعة عرض الشاشة .... أنا أريد مع توسعة عرض الشاشة أن تتمركز الشاشة فى وسط سطح المكتب سواء كانت موسعه أو مضيقة
أرجو الشرح التفصيلى للكود والأخذ فى الإعتبار أننى مبتدأ تماما فى البرمجة
RE: استفسار بخصوص وضع ظهور الشاشة عند التشغيل - Ali Wisam - 05-05-14
بدايةً , اهلا بك في البرمجة !
..بالنسبة لسؤالك . فحاولت ان اجد كود بسيط لكن لم اجد ابسط من هذا ..
كود :
'الحصول على عرض و طول الشاشة
Dim width As Integer = My.Computer.Screen.Bounds.Width
Dim height As Integer = My.Computer.Screen.Bounds.Height
'الحصول على قيم x و y
Dim x As Integer = (width \ 2) - (Me.Size.Width \ 2)
Dim y As Integer = (height \ 2) - (Me.Size.Height \ 2)
'تطبيق المكان الجديد
Me.Location = New Point(x, y)الخطوة الثانية هي الحصول على X,Y للمكان الجديد للفورم .. و هي بمعادلة رياضية بسيطة تكون الX نصف العرض للشاشة لكن مع طرح نصف عرض الفورم
و الواي كذلك نصف الارتفاع ناقصًا نصف ارتفاع الفورم
و الخطوة الاخيرة هي وضع المكان الجديد ..
اذا كان كودي صعبًا نوعًا ما فلعل الاخوة في المنتدى يساعدونك اكثر .. :")
بالتوفيق
RE: استفسار بخصوص وضع ظهور الشاشة عند التشغيل - i_samy - 05-05-14
شكرا لاهتمامك يا عزيزى
دعنى اتفاعل مع الكود ومحاولة فهمه بالتفصيل واعود اليا باسئلة اخرى
اذا لم يزعجك
RE: استفسار بخصوص وضع ظهور الشاشة عند التشغيل - Ali Wisam - 05-05-14
حسنًا خذ راحتك
RE: استفسار بخصوص وضع ظهور الشاشة عند التشغيل - ناجي إبراهيم - 06-05-14
السلام عليكم...
في الحدث ResizeEnd للنافذة ضع الكود التالي:
كود :
If Me.WindowState = FormWindowState.Normal Then
Me.Left = (My.Computer.Screen.Bounds.Width - Me.Width) / 2
Me.Top = (My.Computer.Screen.Bounds.Height - Me.Height) / 2
End Ifسيتم وضع النافذة في وسط الشاشة كلما تم تغيير حجمها أو نقلها.
نرجو الاستفادة و السلام.
RE: استفسار بخصوص وضع ظهور الشاشة عند التشغيل - i_samy - 06-05-14
هذا الكود سهل جدا
ولكن وجدت حدث إسمه فقط Resize حيث أن تغيير سيتم أكثر من مرة فى نفس الشاشة
ووضعت الكود به .... وسيعمل تماما
فهل ذلك صحيحا أم أن عمل الكود فى هذا الحدث محض الصدفة وقد يؤثر بالسلب فيما بعد على كفاءة تشغيل الشاشة ؟
RE: استفسار بخصوص وضع ظهور الشاشة عند التشغيل - ناجي إبراهيم - 06-05-14
السلام عليكم...
الفرق ليس كبيراً...
الحدث Resize يحدث أثناء تغيير حجم النافذة.
الحدث ResizeEnd يحدث بعد الانتهاء من تغيير حجم النافذة.
نرجو الاستفادة و السلام.