+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24493)
سؤال في اسم الفورم اثناء التصميم والتشغيل - emamtron2014 - 11-04-18
السلام عليكم ورحمة الله وبركاته
1-ازاي يكون اسم الفورم في المنتصف اثناء التصميم والتشغيل ؟
2- كذلك لون الفورم كيف اتحكم فيه اثناء التصميم والتشغيل؟
بعض من اخواننا تكرم ووضع كود لجعل اسم الفورم في المنتصف ولكن هذا في وقت التشغيل فقط فهل توجد طريقه لجعل الاسم في المنتصف
RE: سؤال في اسم الفورم اثناء التصميم والتشغيل - aftfm - 11-04-18
تفضل هذ الكود يجعل عنوان الفورم في المنتصف
كود :
Dim g As Graphics = Me.CreateGraphics()
Dim startingPoint As Double = (Me.Width / 2) - (g.MeasureString(Me.Text.Trim, Me.Font).Width / 2)
Dim widthOfASpace As Double = g.MeasureString(" ", Me.Font).Width
Dim tmp As String = " "
Dim tmpWidth As Double = 0
Do
tmp += " "
tmpWidth += widthOfASpace
Loop While (tmpWidth + widthOfASpace) < startingPoint
Me.Text = tmp & Me.Text.Trim & tmp