08-02-19, 02:09 AM
السّلام عليكم و رحمة الله و بركاته
1 - توسيط الفورم :
كود :
'Centrer Form
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)2 - ضبط موقع الفورم الابن حسب إختياراتك ..
كود :
'Position form
Me.StartPosition = FormStartPosition.WindowsDefaultLocation
Me.TopMost = True
Me.Top = 134 ' تكبر القيمة ستنزل
Me.Left = 155 ' تكبر القيمة سترجع لليمين
Me.Height = 803
Me.Width = 1525المكان : طبعا الفورم لود
تحياتي أخي الغالي
قناتنا على اليوتوب
