+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اجعل اداة Frame1 توسط الفورم حتى ولو تم تكبير الفورم او تصغيره ؟ (/showthread.php?tid=12763)
كيف اجعل اداة Frame1 توسط الفورم حتى ولو تم تكبير الفورم او تصغيره ؟ - Microformt - 18-07-15
الاخوه الكرم
السلام عليكم ورحمة وبركاته
كيف اجعل اداة Frame1 توسط الفورم حتى ولو تم تكبير الفورم او تصغيره ؟
ارجو ان تكون الفكره واضحه وبسيطه ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
RE: كيف اجعل اداة Frame1 توسط الفورم حتى ولو تم تكبير الفورم او تصغيره ؟ - dawar - 18-07-15
(18-07-15, 03:06 AM)Microformt كتب : الاخوه الكرم
السلام عليكم ورحمة وبركاته
كيف اجعل اداة Frame1 توسط الفورم حتى ولو تم تكبير الفورم او تصغيره ؟
ارجو ان تكون الفكره واضحه وبسيطه ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
PHP كود :
Private Sub Form_Resize()
Call center(Frame1)
End Sub
Private Sub center(ctr As Control)
ctr.Left = (ctr.Parent.ScaleWidth - ctr.Width) / 2
ctr.Top = (ctr.Parent.ScaleHeight - ctr.Height) / 2
If ctr.Left < 0 Then ctr.Left = 0
If ctr.Top < 0 Then ctr.Top = 0
End Sub
RE: كيف اجعل اداة Frame1 توسط الفورم حتى ولو تم تكبير الفورم او تصغيره ؟ - Microformt - 18-07-15
(18-07-15, 11:44 AM)dawar كتب :(18-07-15, 03:06 AM)Microformt كتب : الاخوه الكرم
السلام عليكم ورحمة وبركاته
كيف اجعل اداة Frame1 توسط الفورم حتى ولو تم تكبير الفورم او تصغيره ؟
ارجو ان تكون الفكره واضحه وبسيطه ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
PHP كود :
Private Sub Form_Resize()
Call center(Frame1)
End Sub
Private Sub center(ctr As Control)
ctr.Left = (ctr.Parent.ScaleWidth - ctr.Width) / 2
ctr.Top = (ctr.Parent.ScaleHeight - ctr.Height) / 2
If ctr.Left < 0 Then ctr.Left = 0
If ctr.Top < 0 Then ctr.Top = 0
End Sub
اخي العزيز
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني