+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ممكن مساعده (/showthread.php?tid=21450)
ممكن مساعده - امل - 22-08-17
السلام عليكم
ممكن كود الي يخلي اسم الفورم في المنتصف بلغه vb.net
وشكرا جدا ليكم
RE: ممكن مساعده - سعود الشامان - 22-08-17
هلا وعليكم السلام
بدون اكواد ضعي مسافات قبل الإسم ليصبح بالمنتصف او بالنهايه
RE: ممكن مساعده - حريف برمجة - 22-08-17
وعليكم السلام ،،
في الفورم لود يوضع هذا الكود :
كود :
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 & tmpRE: ممكن مساعده - امل - 22-08-17
(22-08-17, 06:23 AM)حريف برمجة كتب : وعليكم السلام ،،
في الفورم لود يوضع هذا الكود :
كود :
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