1nonos1
Messages postés1Date d'inscriptionvendredi 31 octobre 2003StatutMembreDernière intervention26 février 2011 26 févr. 2011 à 11:39
Très bon boulot mais il y a un bug si la fin du texte ne se termine pas par un point.
Si le texte se termine par un espace, le programme se bloque.
Si le texte se termine par une mettre, elle est doublée.
juju62611
Messages postés16Date d'inscriptiondimanche 2 février 2003StatutMembreDernière intervention25 novembre 2005 11 juil. 2006 à 17:42
oui effectivement ça ne marche pas dans une frame
je l'avais fait dans un pictureBox
le probleme ici est qu'on ne peu pas dessiner (ecrire) dans une frame
zeOffspring
Messages postés18Date d'inscriptionjeudi 22 janvier 2004StatutMembreDernière intervention17 août 2006 11 juil. 2006 à 17:22
perso j'ai un label dans une frame et ça ne fonctionne pas
tout plein d'erreurs 438, propriété ou méthode non géré par l'objet :(
juju62611
Messages postés16Date d'inscriptiondimanche 2 février 2003StatutMembreDernière intervention25 novembre 2005 26 avril 2006 à 08:39
est tu sur d'avoir autoredrax = true ?
ton label est transparent ?
LAMAN
Messages postés6Date d'inscriptionlundi 15 novembre 2004StatutMembreDernière intervention20 septembre 2006 26 avril 2006 à 00:18
c'est une bonne idéé mais comment utiliser cette procédure dans un code est ce que cette procedure est une fonction ou quoi ?
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
juju62611
Messages postés16Date d'inscriptiondimanche 2 février 2003StatutMembreDernière intervention25 novembre 2005 25 nov. 2005 à 11:05
Amélioration à apporter :
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)
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