Texte du bouton (vertical) se décale

Patrick_02 Messages postés 8 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour, j'ai un problème avec mon bouton positionner verticalement. Quand je clic sur le bouton le texte se décale, quand je clique quelque part d'autre ça se remet.
Ce problème est très désagréable à voir.
Avez vous la solution
Visual basic 2012 pro.
Merci


4 réponses

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Je suis avec Office 2007, mais essaie cela:

    Private Sub CommandButton1_Click()
    Me.CommandButton1.Caption = _
    "C" & Chr(10) & _
    "l" & Chr(10) & _
    "i" & Chr(10) & _
    "c" & Chr(10) & _
    "k" & Chr(10) & _
    " " & Chr(10) & _
    "M" & Chr(10) & _
    "e"
    End Sub
    

    0
  2. Patrick_02 Messages postés 8 Statut Membre
     
    Bonjour, merci d'avoir pris le temps de me répondre. J'ai adapter votre code au miens, malgré tout ça ne fonctionne pas, il y à toujours ce maudit décalage.
    Voici le code modifier.
    Button6.Text = "D" & Chr(10) & "I" & Chr(10) & "T" & Chr(10) & "-" & Chr(10) & "M" & Chr(10) & "O" & Chr(10) & "I" & Chr(10)

    2ème tentative avec le :
    Me.refrech
    Button6.refrech
    Rien y fait toujours ce décalage.
    3ème tentative
    ne pas mètre de text au départ au button, quand la form1 s'ouvre j'ai mit le code ci dessus, ensuite quand je clic sur le button6 toujours le décalage.
    0
  3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    il y a 2 type de bouton:
    bouton formulaire et CommandButton

    pour le CommandButton, c'est le code que j'ai donné.

    pour le bouton formulaire, il n'y a pas de code. mettre en mode création. Clic droit sur le contrôle, alignement, Orientation, Sélectionner le texte vertical et OK


    0
  4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Je me suis planté, tu parles de VB.Net, je suis en VB2010
    Les 2 manières fonctionnent:

    Public Class Form1
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Button1.Text = "D" & Chr(10) & "I" & Chr(10) & "T" & Chr(10) & "-" & Chr(10) & "M" & Chr(10) & "O" & Chr(10) & "I" & Chr(10)
        End Sub
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Button1.Text = "D" & Chr(10) & "I" & Chr(10) & "T" & Chr(10) & "-" & Chr(10) & "M" & Chr(10) & "O" & Chr(10) & "I" & Chr(10)
        End Sub
    End Class

    0