Un label oriente verticalement

Soyez le premier à donner votre avis sur cette source.

Vue 1 971 fois - Téléchargée 313 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

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

Signaler

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 ? ^^

Signaler

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 !

Signaler