Afficher une chaîne à dans un rectangle placé dans une PictureBox

Résolu/Fermé
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 - 6 mars 2020 à 16:05
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 - 6 mars 2020 à 23:51
Re

Comment pourrai je faire apparaître une chaîne à l'intérieur du rectangle tracé dans la PictureBox
exemple (Longueur x Largeur) en VB6



Picture1.Line (0 , 0)-Step(A, B), vbRed, B



Merci d'avance

3 réponses

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
6 mars 2020 à 20:46
Bonjour,
Quand tu parles de chaine.. je suppose que tu veux parler de chaine de caractères...
Et donc.. dans le lien que je t'ai déjà donnée dans ta précédente question... il y a des exemples
https://www.go4expert.com/articles/graphics-visual-basic-6-t30202/
0
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
6 mars 2020 à 22:45
Bonjour;

Merci pour votre réactivité et pour le lien.
J'ai tenté le code d'impression de chaîne, qui me renvoyait les caractères que je voulais faire afficher, mais non dans le bon sens, je vous remets le code que j'ai écris

Picture1.Line (0 + ((PL - 1) * A), 0 + PosL)-Step(A, B), vbRed, B
Picture1.Print "" & A & "x" & B


la chaîne AxB (Longueur x Largeur) s'affiche, mais pas dans le milieu du triangle tracé par la Picture1.Line

Merci de toute orientation ou correction
0
jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
6 mars 2020 à 23:11
Tu lis tout le contenu de la page ( du lien que je t'ai donné ) ou tu t'arrête à la première ligne de code trouvée ???
Tu as vu qu'il y a plusieurs exemples ? Le 4 par exemple semble te permettre de disposer le texte à l'endroit souhaité....
0
Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
6 mars 2020 à 23:51
Re

Vous avez raison, disons que je me suis arrêté au code que je cherchais, je ne vous cache pas, j'ai lu le code de position d'édition, mais je ne croyais pas qu'il a une relation avec ma recherche.
Je l'ai essayé en l'adoptant à ce que j'ai, et ça marche. Merci encore.
Je vous remets ce que j'ai écris, peut être il peut aider quelqu'un d'autres.

 Picture1.Line (0 + ((AL - 1) * A), 0 + B)-Step(A, B), vbRed, B
 Picture1.CurrentX = ((0 + CDbl(A / 4)) + (AL - 1) * A)
 Picture1.CurrentY = ((0 + (CDbl(B) / 4)) + B)
 Picture1.Print "" & A & "x" & B
0