Discussion :

[samouemouel]

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

[avigeilpro]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[samouemouel]

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

[ucfoutu]

Bonjour,

Une autre façon (plus rigolote) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zazaraignée]

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.

[ProgElecT]

Salut

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[zazaraignée]

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.

[Delbeke]

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

[Delbeke]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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