JUSTILABEL
juju62611
Messages postés
16
Date d'inscription
dimanche 2 février 2003
Statut
Membre
Dernière intervention
25 novembre 2005
-
25 nov. 2005 à 11:05
1nonos1 Messages postés 1 Date d'inscription vendredi 31 octobre 2003 Statut Membre Dernière intervention 26 février 2011 - 26 févr. 2011 à 11:39
1nonos1 Messages postés 1 Date d'inscription vendredi 31 octobre 2003 Statut Membre Dernière intervention 26 février 2011 - 26 févr. 2011 à 11:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/403-justilabel
https://codes-sources.commentcamarche.net/source/403-justilabel
26 févr. 2011 à 11:39
Si le texte se termine par un espace, le programme se bloque.
Si le texte se termine par une mettre, elle est doublée.
11 juil. 2006 à 17:42
je l'avais fait dans un pictureBox
le probleme ici est qu'on ne peu pas dessiner (ecrire) dans une frame
11 juil. 2006 à 17:22
tout plein d'erreurs 438, propriété ou méthode non géré par l'objet :(
26 avril 2006 à 08:39
ton label est transparent ?
26 avril 2006 à 00:18
j'ai copié votre procedure dans un module et j'ai changé le mot sub justilabel par function justilabel et sa n'a pas marché
j'ai creer un form avec un bouton command et un label et j'ai ecris ce code
Private Sub command1_Click()
JustiLabel (Label1)
End Sub
Private Sub Form_Load()
Label1.Caption = "je suis un homme de confiance croyez moi c'est sur je ne ment pas"
End Sub
et merci
25 nov. 2005 à 11:05
il suffit de remplacer ces 2 lignes :
Dim Forme As Form
Set Forme = Etiquette.Parent
par :
Dim Forme As Object
Set Forme = Etiquette.Container
et ca fonctionne même si l'objet est dans un conteneur
attention a mettre autoredraw a true (qui devait être fait pour la form)
sinon la justification est tres bonne ;) 10/10