Create New Item
Item Type
File
Folder
Item Name
Search file in folder and subfolders...
Are you sure want to rename?
File Manager
/
Documents
/
DEV2
:
pin.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 = "Broche" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False ' la classe Pin Private PIN_ID As Long Private PIN_Position(1) As Integer Public Function Set_PIN_Parametres(ID As Integer, PosX, PosY) PIN_ID = ID PIN_Position(0) = PosX PIN_Position(1) = PosY End Function Public Function Get_PIN_Position(ByRef PosX As Integer, ByRef PosY As Integer) If IsNumeric(PosX) Then PosX = PIN_Position(0) If IsNumeric(PosY) Then PosY = PIN_Position(1) End Function