[emamtron2014]

السلام عليكم ورحمة الله وبركاته

1-ازاي يكون اسم الفورم في المنتصف اثناء التصميم والتشغيل ؟

2- كذلك لون الفورم كيف اتحكم فيه اثناء التصميم والتشغيل؟

بعض من اخواننا تكرم ووضع كود لجعل اسم الفورم في المنتصف ولكن هذا في وقت التشغيل فقط فهل توجد طريقه لجعل الاسم في المنتصف

[aftfm]

تفضل هذ الكود يجعل عنوان الفورم في المنتصف

كود :

 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