Un label oriente verticalement

Soyez le premier à donner votre avis sur cette source.

Vue 2 354 fois - Téléchargée 412 fois

Description

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
27 juil. 2005 à 12:30
Pour ce genre de trucs, autant faire une boucle désincrémentale:
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 ;)
fifayer Messages postés 73 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 14 décembre 2010
2 sept. 2004 à 03:05
pitètre avec un picturebox ou ce genrela non ? ^^
Arnor2000 Messages postés 32 Date d'inscription mercredi 17 mars 2004 Statut Membre Dernière intervention 24 novembre 2004
29 avril 2004 à 03:14
Ah mince c'est pas trop ca que je cherche,
je cherche comment faire pour faire pivoter les écritures de 90° ou 180° par exemple !

Et c'est pas si facile que ca !
shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007
29 janv. 2004 à 05:59
looooool
testréssé ?
mais non c'est pas grave ca arrive a tout le monde ...
DeAtHCrAsH Messages postés 2670 Date d'inscription vendredi 25 janvier 2002 Statut Membre Dernière intervention 6 février 2013
12 mai 2002 à 01:07
testicule [;)] .....
Parfois on s'ennuie a rien faire alors on dis des conneries
Afficher les 6 commentaires

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.