Un label oriente verticalement

Soyez le premier à donner votre avis sur cette source.

Vue 1 943 fois - Téléchargée 312 fois


Télécharger le projet
Commenter

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) )
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_grandvizir
Messages postés
1237
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
 8 -
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 ;)
Signaler
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 ? ^^
Signaler
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 !
Signaler
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 ...
Signaler
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
Afficher les 6 commentaires
S'inscrire maintenant

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.

Du même auteur (Nix)