[امل]

(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