[abuzzouz]

السلام عليكم

أخواني الأعزاء أخيراً وبفضل الله تعالى وجدت الحل لضغط حجم النص تلقائياً في مربع النص وذلك بتعديل حجم الخط

كود :

Dim fontSize As Single = 12.0F
        Dim measuredWidth As Single
        Dim g As Graphics = Me.CreateGraphics
        Do
            Using font As New Font("Tahoma", fontSize, FontStyle.Bold)
                measuredWidth = g.MeasureString(TextBox1.Text, font).Width
            End Using
            If (measuredWidth > TextBox1.Width) Then
                fontSize = fontSize - 0.1
            End If
        Loop While (measuredWidth > TextBox1.Width)

        Using font As New Font("Tahoma", fontSize, FontStyle.Bold)
            TextBox1.Font = New Font("Tahoma", fontSize, FontStyle.Bold)
        End Using

تقبلوا جميعاً تحياتي