تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار بخصوص وضع ظهور الشاشة عند التشغيل
#1
السلام عليكم
عند تصميم شاشة على VB 2010 يمكن تحديد وضع ومكان ظهور الشاشة على سطح المكتب من خلال خاصية StartPosition

سؤالى :
بفرض وجود زر عمله توسعة عرض الشاشة .... أنا أريد مع توسعة عرض الشاشة أن تتمركز الشاشة فى وسط سطح المكتب سواء كانت موسعه أو مضيقة

أرجو الشرح التفصيلى للكود والأخذ فى الإعتبار أننى مبتدأ تماما فى البرمجة
الرد }}}}
تم الشكر بواسطة:
#2
بدايةً , اهلا بك في البرمجة ! Smile ..
بالنسبة لسؤالك . فحاولت ان اجد كود بسيط لكن لم اجد ابسط من هذا ..
كود :
'الحصول على عرض و طول الشاشة
        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 نصف العرض للشاشة لكن مع طرح نصف عرض الفورم
و الواي كذلك نصف الارتفاع ناقصًا نصف ارتفاع الفورم
و الخطوة الاخيرة هي وضع المكان الجديد ..

اذا كان كودي صعبًا نوعًا ما فلعل الاخوة في المنتدى يساعدونك اكثر .. :")
بالتوفيق
الرد }}}}
تم الشكر بواسطة: سعود , ناجي إبراهيم , Sajad
#3
شكرا لاهتمامك يا عزيزى
دعنى اتفاعل مع الكود ومحاولة فهمه بالتفصيل واعود اليا باسئلة اخرى
اذا لم يزعجك
الرد }}}}
تم الشكر بواسطة:
#4
حسنًا خذ راحتك Big Grin
الرد }}}}
تم الشكر بواسطة: سعود
#5
السلام عليكم...

في الحدث 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

سيتم وضع النافذة في وسط الشاشة كلما تم تغيير حجمها أو نقلها.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: Ali Wisam , i_samy , Sajad
#6
هذا الكود سهل جدا
ولكن وجدت حدث إسمه فقط Resize حيث أن تغيير سيتم أكثر من مرة فى نفس الشاشة
ووضعت الكود به .... وسيعمل تماما

فهل ذلك صحيحا أم أن عمل الكود فى هذا الحدث محض الصدفة وقد يؤثر بالسلب فيما بعد على كفاءة تشغيل الشاشة ؟
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم...

الفرق ليس كبيراً...

الحدث Resize يحدث أثناء تغيير حجم النافذة.

الحدث ResizeEnd يحدث بعد الانتهاء من تغيير حجم النافذة.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: سعود , Sajad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استفسار عن كود البحث المتعدد Marwan9990 7 66 منذ 29 دقيقة مضت
آخر رد: khodor1985
  بخصوص تكوين Setup للبرنامج محمد محمود الغرياني 0 21 أمس, 01:40 AM
آخر رد: محمد محمود الغرياني
  استفسار حول كود البحث المتعدد حسب الاصناف oman 5 117 28-02-17, 09:58 PM
آخر رد: Marwan9990
  [VB.NET] استفسار حول طباعة جزء من printdocument1 samiiiiii 7 144 27-02-17, 08:25 PM
آخر رد: samiiiiii
  استفسار حول الكومبو بوكس المتألق9 2 79 27-02-17, 06:04 PM
آخر رد: مساعدة
  استفسار عن كيف الغي عمل زر من الكيبور؟ samiiiiii 2 57 25-02-17, 09:57 PM
آخر رد: samiiiiii
  [VB.NET] سؤال بخصوص ALTER TABLE dubai.eig 5 109 25-02-17, 09:35 PM
آخر رد: مساعدة
  تحميل الشاشة الرئيسية abdulla2 1 52 23-02-17, 06:47 PM
آخر رد: abdulla2
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 164 22-02-17, 08:07 PM
آخر رد: عباسة
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 137 20-02-17, 02:13 AM
آخر رد: khodor1985

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


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