22-08-17, 05:03 AM
22-08-17, 05:14 AM
هلا وعليكم السلام
بدون اكواد ضعي مسافات قبل الإسم ليصبح بالمنتصف او بالنهايه
بدون اكواد ضعي مسافات قبل الإسم ليصبح بالمنتصف او بالنهايه
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 & tmp22-08-17, 04:44 PM
(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