Comment ecrire un texte verticalement dans un label ?
Source / Exemple :
Dim a As String
Dim b As String
Dim s As String
a= "Coucou"
For i = 1 to len(a)
b = mid$(a,i,1) & Vbcrlf
s = s & b
Next
label1 = s
' N.B : VbCrLf = retour à la ligne ( chr$(13) & chr$(10) )
1) Soit une boucle inverse standard
2) Soit une boucle directe avec soustraction: Length - IndexBoucle pour simuler une évolution décroissante.
Ca évite des lignes de code inutile et on a alors à chaque étape:
coucou
couco#u
couc#o#u
cou#c#o#u
co#u#c#o#u
c#o#u#c#o#u
... avec le dièse correspondant bien sûr au retour chariot ;)
je cherche comment faire pour faire pivoter les écritures de 90° ou 180° par exemple !
Et c'est pas si facile que ca !
testréssé ?
mais non c'est pas grave ca arrive a tout le monde ...
Parfois on s'ennuie a rien faire alors on dis des conneries
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.