File "VB253.tmp"

Full Path: /home/analogde/www/Dessin/VB253.tmp
File size: 433 bytes
MIME-type: text/plain
Charset: 8 bit

 
Open Edit   Advanced Editor   Back 
Attribute VB_Name = "Module5"
Public Function Insert_Lien(ByVal x As Double, ByVal y As Double, Optional ByVal type_pad As String, Optional orientation As String) 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_PAD(NB_PAD - 1) = New LIEN

    
    
End Function