none
center icon du form1 RRS feed

  • Question

  • Bonjour,

    voici le code pour centrer le texte dans le form1 :

     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Dim g As Graphics = Me.CreateGraphics()
            Dim startingPoint As Double = (Me.Width / 2) - (g.MeasureString(Me.Text, 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
        End Sub

    est-il possible centrer l'icon dans le form1 a coté du texte :

    Merci de votre réponse,

    cordialement,

    lundi 27 février 2017 16:06

Réponses