المشاركات : 285
المواضيع 63
الإنتساب : Sep 2018
السمعة :
32
الشكر: 485
تم شكره 456 مرات في 198 مشاركات
01-05-20, 03:07 PM
(آخر تعديل لهذه المشاركة : 03-05-20, 01:27 PM {2} بواسطة alshandodi.)
السلام عليكم اخوتي وأحبابي
لو سمحتم اريد كود وهو توسيط الفورم داخل الفورم الرئيسي
عند فتح الملف يكون الفورم في وسط الفورم الرئيسي ولكن اريد الكود لاضعه في بوتن
ولكم جزيل الشكر والتقدير
====================================
المشاركات : 285
المواضيع 63
الإنتساب : Sep 2018
السمعة :
32
الشكر: 485
تم شكره 456 مرات في 198 مشاركات
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
02-05-20, 01:41 AM
(آخر تعديل لهذه المشاركة : 02-05-20, 01:45 AM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
اخي الalshandodi من نافذة الخصائص اختر الخاصية StartPosition واختر منها Center Parent
اي توسيط داخل الفورم الاب
اما بالكود استبدل اسم الفورم form1 باسم الفورم الذي تريد
كود :
Form1.StartPosition = StartPosition.CenterParent
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 285
المواضيع 63
الإنتساب : Sep 2018
السمعة :
32
الشكر: 485
تم شكره 456 مرات في 198 مشاركات
02-05-20, 06:09 AM
(آخر تعديل لهذه المشاركة : 02-05-20, 06:57 AM {2} بواسطة alshandodi.)
وعليكم السلام ورحمة الله وبركاته
اخي العزيز ابراهيم حاولت عمل هذا الكود ولكن دون جدوى لانه لا يضع الفورم في وسط
واعتذر منك لانني كنت بعيدا عن الكمبيوتر
المشاركات : 2,644
المواضيع 204
الإنتساب : Dec 2015
السمعة :
332
الشكر: 17134
تم شكره 11145 مرات في 2627 مشاركات
جرّب هذا الكود بالفورم لود ..
كود :
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)
المشاركات : 285
المواضيع 63
الإنتساب : Sep 2018
السمعة :
32
الشكر: 485
تم شكره 456 مرات في 198 مشاركات
اخي العزيز عبدالعزيز شكرا جزيلا لك دون جدوى لانه لا يضع الفورم في وسط
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
السلام عليكم
بارك الله بك اخي عبد العزيز احي Alshandodi
يالنسبة CenteParent يضعه في المنتصف افقيا ولكن عموديا يضعه نحو الاسفل قليلا
استخدم CenterScreen يأتي في منتصف الشاشة ولكن يجب ان يكون الفورم الاب مفتوح بكامل الشاشة ايضا
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 285
المواضيع 63
الإنتساب : Sep 2018
السمعة :
32
الشكر: 485
تم شكره 456 مرات في 198 مشاركات
وعليكم السلام ورحمه الله وبركاته
بارك الله فيك اخي ابراهيم نعم نجح الامر
ولكن اريده عباره في وضع التشغيل الفورم استطيع ان اضعه في المنتصف
لو انتقل من موقعه
المشاركات : 813
المواضيع 24
الإنتساب : Oct 2012
السمعة :
228
الشكر: 1145
تم شكره 2171 مرات في 815 مشاركات
ضع الكود في النافذة الابن ( نافذة تسجيل الدخول )
لاحظ الرقم ١٨ في المعادلة : هذا الرقم متروك لتقديرك , لانه يعتمد على مايوجد في راس النافذة الأب
كود :
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
المشاركات : 285
المواضيع 63
الإنتساب : Sep 2018
السمعة :
32
الشكر: 485
تم شكره 456 مرات في 198 مشاركات
(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)
بارك الله فيك على مجهودك والأخوه المجتهدين وجميع الأخوه المجتهدين
|