File "types.bas"

Full Path: /home/analogde/www/Documents/DEV2/types.bas
File size: 676 bytes
MIME-type: text/plain
Charset: utf-8

 
Open Edit   Advanced Editor   Back 
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