Create New Item
Item Type
File
Folder
Item Name
Search file in folder and subfolders...
Are you sure want to rename?
File Manager
/
Dessin
:
VB3DD.tmp
Advanced Search
Upload
New Item
Settings
Back
Back Up
Advanced Editor
Save
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