تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جعل الادوات في منتصف الفورم بدقة
#1
السلام عليكم اخوتي الكرام
اولا لم اعرف في اي قسم اضع هذا الموضوع .. لكم حرية اختيار القسم المناسب (الاخوة المشرفون)
انشأت فورم ووضعت فيه Panel وفيه بعض الادوات لا على التعيين ثم قمت بتوسيط هذا الـ panel في الفورم  في حدث تغيير الحجم  وفق المعادلة المعروفة التالية :

كود :
Dim x As Integer = (Me.Width - panel1.Width) / 2
       Dim y As Integer = (Me.Height - panel1.Height) / 2
       panel1.Location = New Point(x, y)
ولاحظت عند التصغير ان الـ panel لايكون في المنتصف ثم قمت بالتعديل حتى تم الامر بشكل صحيح
 واردت ان تكون هذه المعلومة بين ايديكم لتستفيدوا منها وتكون صدقة جارية والكود المعدل على النحو التالي:

كود :
Dim x As Integer = (Me.Width - 16 - panel1.Width) / 2
       Dim y As Integer = (Me.Height - 36 - panel1.Height) / 2
       panel1.Location = New Point(x, y)
ارجو التجربة  وابداء الرأي والله المستعان .. دمتم بخير


الملفات المرفقة
.rar   ibrahimibo.rar (الحجم : 105.08 ك ب / التحميلات : 30)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: rnmr , rnmr , princelovelorn
#2
جرب هذا بدون كود

حدد أداة Panel

من القائمة Format ومنه Center in Form وتنفيذ كل من Horizontally وVertically

من الخاصية Anchor ألغي كل الإتجاهات الأربعة
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#3
السلام عليكم اخي rnmr كم يسعدني النقاش 
في الحالة التي تذكرها سيكون البانل يحتل كامل الفورم والادوات ستبقى في مكانها المحدد حتى لو كبر الفورم
أما في حالتنا نحن لانريد تغيير حجم البانل الذي يحوي الادوات التي نريدها دائما في منتصف الفورم
والبانل هو فقط لكي لانكتب اكواد لكل اداة
دمت بخير ومحبا للخير
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: rnmr
#4
(07-10-18, 08:50 PM)ابراهيم ايبو كتب :
السلام عليكم اخي rnmr كم يسعدني النقاش 
في الحالة التي تذكرها سيكون البانل يحتل كامل الفورم والادوات ستبقى في مكانها المحدد حتى لو كبر الفورم
أما في حالتنا نحن لانريد تغيير حجم البانل الذي يحوي الادوات التي نريدها دائما في منتصف الفورم
والبانل هو فقط لكي لانكتب اكواد لكل اداة
دمت بخير ومحبا للخير


يبدو أنك في الخطوة الأخير بخصوص Anchor حددت الإتجاهاة الأربع، في حين أنني ذكرت ألغي


(07-10-18, 08:31 PM)rnmr كتب : من الخاصية Anchor ألغي كل الإتجاهات الأربعة


دمت بصحة وسلامة
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#5
اخي rnmr
صحيح انا لم اقم بالغاء الاتجاهات الاربعة وبعد الغاءها اصبحت مثل الكود الاول 
فعند التكبير قد لاتلحظ اختلاف المسافة اليمين واليسار والاعلى والاسفل
لكن قم بالتصغير حتى يلامس حد الفورم حد البانل ولاحظ المسافات واعطني رايك
انا استحدم نسخة 2008
بالمناسبة البانل موضوع في وسط الفورم تماما باستخدام ازرار التوسيط
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: rnmr
#6
(07-10-18, 08:23 PM)ابراهيم ايبو كتب :
السلام عليكم اخوتي الكرام
اولا لم اعرف في اي قسم اضع هذا الموضوع .. لكم حرية اختيار القسم المناسب (الاخوة المشرفون)
انشأت فورم ووضعت فيه Panel وفيه بعض الادوات لا على التعيين ثم قمت بتوسيط هذا الـ panel في الفورم  في حدث تغيير الحجم  وفق المعادلة المعروفة التالية :

كود :
Dim x As Integer = (Me.Width - panel1.Width) / 2
       Dim y As Integer = (Me.Height - panel1.Height) / 2
       panel1.Location = New Point(x, y)
ولاحظت عند التصغير ان الـ panel لايكون في المنتصف ثم قمت بالتعديل حتى تم الامر بشكل صحيح
 واردت ان تكون هذه المعلومة بين ايديكم لتستفيدوا منها وتكون صدقة جارية والكود المعدل على النحو التالي:

كود :
Dim x As Integer = (Me.Width - 16 - panel1.Width) / 2
       Dim y As Integer = (Me.Height - 36 - panel1.Height) / 2
       panel1.Location = New Point(x, y)
ارجو التجربة  وابداء الرأي والله المستعان .. دمتم بخير

(07-10-18, 09:07 PM)ابراهيم ايبو كتب :
اخي rnmr
صحيح انا لم اقم بالغاء الاتجاهات الاربعة وبعد الغاءها اصبحت مثل الكود الاول 
فعند التكبير قد لاتلحظ اختلاف المسافة اليمين واليسار والاعلى والاسفل
لكن قم بالتصغير حتى يلامس حد الفورم حد البانل ولاحظ المسافات واعطني رايك
انا استحدم نسخة 2008
بالمناسبة البانل موضوع في وسط الفورم تماما باستخدام ازرار التوسيط


جربت المرفق الذي من حضرتك

فلم أجد الفرق، أو قد لم أفهم قولك (حتى يلامس حد الفورم حد البانل)
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#7
اخي عندما تقوم بتكبير الفورم قد لاتلاحظ الفرق بين الفراغ اليمين واليسار والاعلى والاسفل
وكن عندما تصغر الفورم الى حد البانل من الاسفل واليمين لاحظ انه ليس في الوسط
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: rnmr , rnmr
#8
(07-10-18, 09:21 PM)ابراهيم ايبو كتب :
اخي عندما تقوم بتكبير الفورم قد لاتلاحظ الفرق بين الفراغ اليمين واليسار والاعلى والاسفل
وكن عندما تصغر الفورم الى حد البانل من الاسفل واليمين لاحظ انه ليس في الوسط


اتضح أن طريقتك ليست في منتصف الفورم تماما
بسبب أنك تستخدم Me.Height وهذه بتحسب حتى ارتفاع إطار الفورم

في حين انه ينبغي استخدام ClientSize مثل Me.ClientSize.Height

سعيد بالنقاش والتحاور الجميل مع حضرتك
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#9
سأجرب ذلك تسلم ياعالي

نعم ياغالي بهذا الكود سيكون كامل الفورم مع شريط العنوان وكونتور الفورم داخل في الحساب
وهكذا سيكون الكود لوضع اي كونترول في وسط الفورم على النحو التالي
كود :
Dim x As Integer = (Me.ClientSize.Width - panel1.Width) / 2
       Dim y As Integer = (Me.ClientSize.Height - panel1.Height) / 2
       panel1.Location = New Point(x, y)
وكوني لم اعرف الخاصية  ClientSize اجتهدت انطلاقا الخاصية size

تقبل حبي واحترامي لك ولعلمك ... زادك الله علما ونفع بك عباده
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: rnmr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 293 27-02-24, 09:38 PM
آخر رد: aljzazy
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 271 29-12-23, 10:44 PM
آخر رد: Kamil
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  [VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير visualist2015 6 6,359 29-09-23, 03:09 AM
آخر رد: Taha Okla
Photo [سؤال] كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server salam82 3 456 20-09-23, 01:42 PM
آخر رد: salam82
  [VB.NET] نسخ الصور من الفورم الى الوورد صبيح 1 305 17-08-23, 03:03 PM
آخر رد: تركي الحلواني
  [VB.NET] احتاج كود يغلق جميع الفورم ويبقي فقط الفورم Home Ali_hassn 4 545 15-08-23, 06:43 PM
آخر رد: Alexander Max2
  كود للتغيير في تصميم الفورم Emam emam 2 430 15-07-23, 07:35 PM
آخر رد: Emam emam
  [سؤال] اين خل في ترحيل البيانات من من الفورم الى شيتا كسال VBA DJATV85 4 562 02-07-23, 01:37 AM
آخر رد: أبووسم

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


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