Create New Item
Item Type
File
Folder
Item Name
Search file in folder and subfolders...
Are you sure want to rename?
File Manager
/
DEV
:
types.bas
Advanced Search
Upload
New Item
Settings
Back
Back Up
Advanced Editor
Save
Attribute VB_Name = "types" 'Public Type pin ' Parent As Long ' Etat As Long ' PosX As Integer ' PosY As Integer 'End Type Public Objet_PAD() As PAD Public Objet_PIN() As Broche Public PAD_Status() As Long Public NB_PAD As Long Public NB_PIN As Long Public Const hauteurStd = 200 Public Const largeurStd = 400 Public Const taillepin = 150 Public Const taillepuce = 50 Public Action As String Public MouseX As Integer Public MouseY As Integer Public Pad_Selectionnee As Long Public DifX As Integer Public DifY As Integer Public PinNumSelectionnee As Long Public PinPorteSelectionnee As Long Public PinTypeSelectionnee As String