textbox vertical help

Bonjour, je voudrais savoir s'il est possible de trouver un objet textbox ou autre dans lequel on puisse écrire verticalement, de haut en bas ou de bas en haut peu importe.

Quelqu'un sait il comment faire, pour l'instant je n'ai eu que des réponses négatives mais sur ce forum j'espère avoir une réponse.

Merci d'avance:cry:

Que veux-tu dire par "écrire verticalement" : les lettres les unes en dessous des autres, ou le texte tourné à 90° ?
Si c'est la première, alors une boite texte classique suffi (nommée Text1 dans l'exemple ci-dessous): propriété MultiLine à True, puis le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Form_Load() Text1.Text = Vertic("Salut") End Sub   Public Function Vertic(T As String) As String Dim TFinal As String Dim I As Integer TFinal = Left(T, 1) For I = 2 To Len(T) TFinal = TFinal & vbCrLf & Mid(T, I, 1) Next Vertic = TFinal End Function

---

;)

tout d'abord, merci de me répondre.

je voudrais tourner le texte à 90° pour l'instant on ma dit quer c'était possible sur vb.net mais pas sur VB6

merci encore

Bonjour,

Une autre façon (plus rigolote) :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command1_Click() toto = "voilà" Dim titi() As Byte titi() = StrConv(toto, vbUnicode) Text1.Text = "" For i = 0 To UBound(titi) Text1.Text = Text1.Text & Chr(titi(i)) & vbCrLf Next End Sub

---

Il est clair (comme pour de code de Avigeilpro, d'ailleurs) que la textbox doit avoir sa propriété multilune = True...

En cherchant sur Google, j'ai trouvé tout plein de sites qui proposent leurs solutions, y compris celle-ci, qui devrait t'intéresser.

Rotation de texte.
Comme quoi, quand on prend le temps de chercher... Ça m'a pris 20 secondes à trouver.

Salut

Citation:

---

Envoyé par samouemouel

on ma dit quer c'était possible sur vb.net mais pas sur VB6

---

Il y a des bons sur DVP, a preuve, le composant Vlabel de l'ami Delbeke.
Dans sa page de Contribution ligne DiVLabel6.zip : Composant label vertical .
En posant son Vlabel et en mettant un TextBox caché (non pas invisible, à cause du focus) sur un Form.
TextBox.MultiLine = True (en design)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Form_Load() Text1.Left = -Text1.Width End Sub Private Sub VLabel1_GotFocus() Text1.SetFocus End Sub Private Sub Text1_Change() VLabel1.Caption = Text1.Text End Sub

---

Le petit inconvénient, pas de curseur de saisie, pas de selection possible.
Chose interessante pour un label, on peut le mettre au premier plan.

Faudrait ajouter des mots clés pour la recherche sur les moteurs de recherche. Je ne sais pas comment ils s'y prennent, mais c'est toujours les mêmes, que je ne nommerai pas, et pas nous qui se retrouvent en haut de la liste. Remarquez, si j'avais cherché directement ici...

En passant, z'ont l'air chouettes, les composants de Delbeke. Faudra que je regarde ça de plus près.

Et j'en serais trés honoré, chère zaza

Citation:

---

Envoyé par ProgElecT

En posant son Vlabel et en mettant un TextBox caché (non pas invisible, à cause du focus) sur un Form.
TextBox.MultiLine = True (en design)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Form_Load() Text1.Left = -Text1.Width End Sub Private Sub VLabel1_GotFocus() Text1.SetFocus End Sub Private Sub Text1_Change() VLabel1.Caption = Text1.Text End Sub

---

Le petit inconvénient, pas de curseur de saisie, pas de selection possible.
Chose interessante pour un label, on peut le mettre au premier plan.

---

Très astucieux ProgElecT :king: