تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم حل الموضوع] توسيط الفورم في الفورم الرئيسيي
#1
السلام عليكم اخوتي وأحبابي 
لو سمحتم اريد كود وهو توسيط الفورم داخل الفورم الرئيسي 
عند فتح  الملف يكون الفورم في وسط الفورم الرئيسي ولكن اريد الكود لاضعه في بوتن 
ولكم جزيل الشكر والتقدير


   
====================================
   
الرد }}}
تم الشكر بواسطة: asemshahen5
#2
Up....
..........
الرد }}}
تم الشكر بواسطة: asemshahen5
#3
السلام عليكم ورحمة الله وبركاته
اخي الalshandodi  من نافذة الخصائص اختر الخاصية StartPosition واختر منها Center Parent
اي توسيط داخل الفورم الاب
اما بالكود استبدل اسم الفورم form1 باسم الفورم الذي تريد
كود :
Form1.StartPosition = StartPosition.CenterParent
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#4
وعليكم السلام ورحمة الله وبركاته
 اخي العزيز ابراهيم حاولت عمل هذا الكود ولكن دون جدوى لانه لا يضع الفورم في وسط

واعتذر منك لانني كنت بعيدا عن الكمبيوتر

   
الرد }}}
تم الشكر بواسطة: mohamedahmed1 , asemshahen5 , ابراهيم ايبو
#5
جرّب هذا الكود بالفورم لود ..
كود :
 Dim douX, douY As Double
       Dim srtX, srtY As Short
       douX = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
       srtX = CShort(douX)
       douY = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
       srtY = CShort(douY)
       Me.SetDesktopLocation(srtX, srtY)
قناتنا على اليوتوب
الرد }}}
#6
اخي العزيز عبدالعزيز شكرا جزيلا لك دون جدوى لانه لا يضع الفورم في وسط

   
الرد }}}
#7
السلام عليكم
بارك الله بك اخي عبد العزيز احي  Alshandodi
يالنسبة CenteParent يضعه في المنتصف افقيا ولكن عموديا يضعه نحو الاسفل قليلا
استخدم CenterScreen يأتي في منتصف الشاشة ولكن يجب ان يكون الفورم الاب مفتوح بكامل الشاشة ايضا
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: عبدالله الدوسري , asemshahen5 , alshandodi
#8
وعليكم السلام ورحمه الله وبركاته
بارك الله فيك اخي ابراهيم نعم نجح الامر
ولكن اريده عباره في وضع التشغيل الفورم استطيع ان اضعه في المنتصف
لو انتقل من موقعه
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#9
ضع الكود في النافذة الابن ( نافذة تسجيل الدخول )
لاحظ الرقم ١٨ في المعادلة : هذا الرقم متروك لتقديرك , لانه يعتمد على مايوجد في راس النافذة الأب 

كود :
   Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       AddHandler Me.ParentForm.Resize, AddressOf Me.CenterMe
       AddHandler Me.ParentForm.Move, AddressOf Me.CenterMe
       Me.CenterMe(Nothing, Nothing)
   End Sub


   Public Sub CenterMe(sender As Object, e As EventArgs)
       Me.Left = (Me.ParentForm.ClientRectangle.Width / 2) - (Me.Width / 2)
       Me.Top = ((Me.ParentForm.Bottom - Me.ParentForm.Top) / 2) - (Me.Height / 2) - (Me.ParentForm.Height - Me.ParentForm.ClientRectangle.Height) - (18)
   End Sub


   Private Sub Login_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
       RemoveHandler Me.ParentForm.Resize, AddressOf CenterMe
       RemoveHandler Me.ParentForm.Move, AddressOf CenterMe
   End Sub
الرد }}}
تم الشكر بواسطة: asemshahen5 , alshandodi , ابراهيم ايبو
#10
(02-05-20, 01:37 PM)عبدالله الدوسري كتب : ضع الكود في النافذة الابن ( نافذة تسجيل الدخول )
لاحظ الرقم ١٨ في المعادلة : هذا الرقم متروك لتقديرك , لانه يعتمد على مايوجد في راس النافذة الأب 

كود :
   Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       AddHandler Me.ParentForm.Resize, AddressOf Me.CenterMe
       AddHandler Me.ParentForm.Move, AddressOf Me.CenterMe
       Me.CenterMe(Nothing, Nothing)
   End Sub


   Public Sub CenterMe(sender As Object, e As EventArgs)
       Me.Left = (Me.ParentForm.ClientRectangle.Width / 2) - (Me.Width / 2)
       Me.Top = ((Me.ParentForm.Bottom - Me.ParentForm.Top) / 2) - (Me.Height / 2) - (Me.ParentForm.Height - Me.ParentForm.ClientRectangle.Height) - (18)
   End Sub


   Private Sub Login_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
       RemoveHandler Me.ParentForm.Resize, AddressOf CenterMe
       RemoveHandler Me.ParentForm.Move, AddressOf CenterMe
   End Sub

شكرا جزيلا لك عزيزي لقد نجح الكود ولكن استبدلت هذا الكود 
كود :
 Me.Left = (Me.ParentForm.ClientRectangle.Width / 2) - (Me.Width / 2)

بهذا الكود

كود :
Me.Left = ((Me.ParentForm.Right - Me.ParentForm.Left) / 2) - (Me.Width / 2) - (Me.ParentForm.Width - Me.ParentForm.ClientRectangle.Width) - (55)

بارك الله فيك على مجهودك والأخوه المجتهدين وجميع الأخوه المجتهدين
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
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 ) ضيف كريم