Un label oriente verticalement

Soyez le premier à donner votre avis sur cette source.

Vue 1 954 fois - Téléchargée 312 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
1237
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
10 -
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
-
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
-
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
-
looooool
testréssé ?
mais non c'est pas grave ca arrive a tout le monde ...
DeAtHCrAsH
Messages postés
2674
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
-
testicule [;)] .....
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.