Create New Item
Item Type
File
Folder
Item Name
Search file in folder and subfolders...
Are you sure want to rename?
File Manager
/
Dessin
:
PAD.cls
Advanced Search
Upload
New Item
Settings
Back
Back Up
Advanced Editor
Save
VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "PAD" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False ' la classe PAD Private PAD_ID As Long Private PAD_Position(1) As Double Private PAD_Type As String Private PAD_Orientation As String Private Liens(0, 1) As Long Public Function Set_PAD_Parametres(ID As Long, x As Double, y As Double) PAD_ID = ID PAD_Position(0) = x PAD_Position(1) = y End Function Public Function GetPosition_PAD() Pos_X = PAD_Position(0) Pos_Y = PAD_Position(1) End Function