File "VB3DD.tmp"

Full Path: /home/analogde/www/Dessin/VB3DD.tmp
File size: 663 bytes
MIME-type: text/plain
Charset: utf-8

Attribute VB_Name = "Module3"
Public Function DessineLiens()

Dim PosX As Integer, PosY As Integer
Dim PinPos() As Integer
Dim Parent As Long
Dim i As Long

Dim pad_lien As Long
Dim broche_lien As Long


If (numero_lien <> 0) Then
    For i = 0 To numero_lien - 1
        pad_lien = Liens(i, 0)
        broche_lien = Liens(i, 1)
        tmp = Objet_PAD(pad_lien).GetPosition_PAD(PosX, PosY)
        Ax = PosX
        Ay = PosY
        tmp = Objet_BROCHE(broche_lien).GetPosition_BROCHE(PosX, PosY)
        Bx = PosX
        By = PosY
        Prog_Frm.Schema_Box.Line (Ax, -Ay)-(Bx, -By), RGB(255, 0, 0)
    Next i
 End If

End Function