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

Question

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

jordane45 · Answer

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/

Lenouveauapprenti · Answer

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

Lenouveauapprenti · Answer

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

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

3 réponses

Votre réponse

Discussions similaires