File "types.bas"

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

Attribute VB_Name = "types"
Public Type Connexion
    Parent As Long
    Etat As Long
    PosX As Double
    PosY As Double
End Type

Public Type Point_A
    X As Double
    Y As Double
End Type

Public Type Point_B
    X As Double
    Y As Double
End Type

Public Type Point_C
    X As Double
    Y As Double
End Type

Public Type Point_D
    X As Double
    Y As Double
End Type


Public Objet_PAD() As PAD
Public Objet_BROCHE() As BROCHE


Public NB_PAD As Long
Public NB_BROCHE As Long

Public Objet_pad_actif As Long
Public Objet_broche_actif As Long

Public pad_selection 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 DifX As Integer
Public DifY As Integer
Public PinNumSelectionnee As Long
Public PinPorteSelectionnee As Long
Public PinTypeSelectionnee As String