cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 2016
-
6 févr. 2007 à 16:32
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 2016
-
7 févr. 2007 à 19:53
Bonsoir à tous,
Une petite question pour savoir si cela est possible .....
Est-il possible de faire, via du code Vb ou d'utiliser les API de windows, d'avoir la possibilté d'une fonction AutoSize d'un TextBox comme un Label ?
Merci par avance de vos réponses qui peuvent me mettre sur la voie...
With AfSize
.Font = Text4.Font
.Text = Text4.Text
If .Calculate Then
Text4.Width = .Width * Screen.TwipsPerPixelX + 120
Text4.Height = .Height * Screen.TwipsPerPixelY + 120
End If
End With
End Sub
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 6 févr. 2007 à 17:10
Pas de propriété Autosize.
Tu as par contre toujours la possibilité de dimensionner une textbox en fonction de la hauteur et de la largeur du texte qu'elle contient...
La chose est certes réalisable, mais je ne suis pas certain de ce que l'effet sera heureux !
Il te faudra de toutes façons choisir (bien évidemment) entre les 2 affichages suivants :
1) Textbox d'une largeur égale à celle de la ligne la plus large de ton texte et d'une hauteur égale à celle de ton texte
2) Textbox d'une largeur inférieure à celle de la ligne la plus large et dont la hauteur devra être telle que la totalité du texte devra être affichée
Tout est bien sur réalisable avec une petite acrobatie, mais cette acrobatie sera différente dans un cas et dans l'autre.
Quelle est donc l'option choisie ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 7 févr. 2007 à 18:42
Salut PCPT,
Lol...Le pire dans tout cela...c'est que ta source je l'avais télécharger !!! Impossible de retrouver le Zip!!!Alors quand tu commence à avoir pas mal de Zip, ben moi je commence à ne plus savoir qui est quoi !!!!Il faut que je fasse du ménage sur mon Pc!!
Mais c'est vrai que ta source et très intéressante, pour l'instant j'utilise la solution de Darksidious, et je reviendrai en détails sur la tienne(car il faut que je regarde le code à fond!!!) que je viens de télécharger à nouveau.Mais cette fois-ci, je lui est donné un nom plus parlant : Autosize_chaine_Carractère_PCPT.Zip !!!
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 7 févr. 2007 à 18:46
Salut,
Oui je sais j'ai laissé un commentaire, mais je t'explique pourquoi ci-dessus.
Non c'est pas bizarre, il faut juste que je répertorie les sources télécharger avec un nom plus parlant!!
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 7 févr. 2007 à 19:22
Salut PCPT,
Bon je viens de regarder ton code, et il y a un truc qui fonctionne pas comme dans ta source...J'explique :
Ma zone de text est de ce format là : Text4.Text = Format$(Total, "### ### ### ###.###") & " ?"
Donc je reprend ton code,
With AfSize
.Font = Text4.Font
.Text = Text4.Text If .Calculate Then Text4.Width .Width: Text4.Height .Height
End With
Et là ça par en live, je me retrouve avec une TextBox de la taille d'une CheckBox, j'ai changé la police, le format du text, la taille...Idem...Je ne comprend pas pourquoi..