+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود ضبط مكان الفورم (/showthread.php?tid=28515)
طلب كود ضبط مكان الفورم - مصمم هاوي - 08-02-19
السلام عليكم
بعد محاولات قررتُ الدخول لعالم الدوت نت، وأنا الآن أمشي مشى السلحفاة رويداً رويداً حتى اصل
تعبتُ قليلاً ، ولكن الحمد لله يوماً بعد يوم يزداد حبي لهذا العالم الجميل، وإن كنتُ أعتقدهُ سابقاً معقداً
على كلٍ يدأت تواجهني بعض المشاكل اليسيرة والمعوقات الصغيرة ومنها:
- أريد طريقة ضبط مكان الفورم الأبن حسب اختيارك
بمعنى آخر:
أريد اختيار حسب ما أريد بمكان أو موقع القورم على الفورم الأب.
واعتقد بأنها (خاصية TOP)
RE: طلب كود ضبط مكان الفورم - عبد العزيز البسكري - 08-02-19
السّلام عليكم و رحمة الله و بركاته
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المكان : طبعا الفورم لود
تحياتي أخي الغالي
RE: طلب كود ضبط مكان الفورم - مصمم هاوي - 08-02-19
حياك الله أخي العزيز عبد الكريم وجزاك كل خير
الكود شغال 100 %