[امل]

السلام عليكم 
ممكن كود  الي يخلي اسم الفورم في المنتصف بلغه vb.net
وشكرا جدا ليكم

[سعود الشامان]

هلا وعليكم السلام

بدون اكواد ضعي مسافات قبل الإسم ليصبح بالمنتصف او بالنهايه

[حريف برمجة]

وعليكم السلام ،،
في الفورم لود يوضع هذا الكود :

كود :

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

[امل]

(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