dessiner

Question

bonjour,

svp, quelqu'un sait comment dessiner une ligne reliant deux objets .
pour mieux comprendre ce que je veux: c'est schématiser une relation entre deux objets (exple une relation pere-fils).

merci d'avance

Gobillot · Answer

par exemple pour relier 2 CommandButtons sur une forme par une Ligne rouge à partir de leur centre:


    Dim x1 As Integer
    Dim x2 As Integer
    Dim y1 As Integer
    Dim y2 As Integer
    
    x1 = Command1.Left + Command1.Width / 2
    y1 = Command1.Top + Command1.Height / 2
    x2 = Command2.Left + Command2.Width / 2
    y2 = Command2.Top + Command2.Height / 2
    
    Form1.Line (x1, y1)-(x2, y2), vbRed

nabilac · Answer

merci d'abord pour ta reponse, mais ce n'est pas vraiment ça, ce que je veux c'est :
en maintenant le bouton gauche de la souris enfoncé a partir du bord d'un objet (picture box par exemple) et en la déplaçant vers la cible (qui est aussi une picture box ).

j'ai pensé a ".line", les coordonnées de la source sont x,y de Picture1_MouseDown, et les coordonnées de la destination sont  x,y de Picture1_MouseUp; mais 

- quand et ou il faut mettre .line
- comment forcer le clic sur le bord des objets

Dessiner

2 réponses

Discussions similaires