File "LIAISON.bas"

Full Path: /home/analogde/www/Dessin/LIAISON.bas
File size: 552 bytes
MIME-type: text/plain
Charset: 8 bit

 
Open Edit   Advanced Editor   Back 
Attribute VB_Name = "Module5"
Public Function Insert_Lien(ByVal pad As Double, ByVal broche As Double) As Long

    ' incrmente le nombre de lien
    NB_LIEN = NB_LIEN + 1

    ' redimensionne le tableau de liens
    ReDim Preserve Objet_LIEN(NB_LIEN - 1)

    ' instancie une nouvelle PAD
    Set Objet_LIEN(NB_LIEN - 1) = New lien
    
    ' defini les parametres de la nouvelle PAD
    tmp = Objet_LIEN(NB_LIEN - 1).Set_LIEN_Parametres(NB_LIEN, pad, broche)

    ' retourne l'ID
    Insert_Lien = NB_LIEN - 1
    
End Function