Rapport de message :*
 

Re: Afficher un texte à la verticale dans une TextBox

Titre du sujet : Re: Afficher un texte à la verticale dans une TextBox
par Mytå le 24/03/2012 22:19:28

 Salut le forum

On peut le faire avec la propriété MultiLine du TextBox à True.

Code appelant
TextBox1.Text = Vertic("Salut")

Et avec une fonction de avigeilpro 
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

Mytå