Afficher une chaîne à dans un rectangle placé dans une PictureBox [Résolu]

Signaler
Messages postés
237
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
25 juin 2020
-
Messages postés
237
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
25 juin 2020
-
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

Messages postés
29877
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 octobre 2020
2 884
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/
Messages postés
237
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
25 juin 2020

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
Messages postés
29877
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 octobre 2020
2 884
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é....
Messages postés
237
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
25 juin 2020

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