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


A voir également:

4 réponses

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
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
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
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