stefan86's offtopic random retard thread - post away!
- Thread starter Tumn
- Start date
stefan86
invariably off-topic
isolation_years
Member
DarkGift
ov Doom
Purple Haze
Left To Rot
vitorias123
Faceless
DarkGift
ov Doom
DarkGift
ov Doom
Summonium
roffeltoffelcopterlol
DarkGift
ov Doom
hexwind
Creepiness Och Terrorism
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Noeud"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
'variables locales de stockage des valeurs de propriétés
Private mvarval As Integer 'copie locale
Private mvarnom As String 'copie locale
Private mvarSuiv As Noeud 'copie locale
Public Property Set Suiv(ByVal vData As Noeud)
'utilisé lors de l'affectation d'un objet à la propriété, du coté gauche de l'instruction Set.
'Syntax: Set x.Suiv = Form1
Set mvarSuiv = vData
End Property
Public Property Get Suiv() As Noeud
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.Suiv
Set Suiv = mvarSuiv
End Property
Public Property Let nom(ByVal vData As String)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.Nom = 5
mvarnom = vData
End Property
Public Property Get nom() As String
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.Nom
nom = mvarnom
End Property
Public Property Let val(ByVal vData As Integer)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.val = 5
mvarval = vData
End Property
Public Property Get val() As Integer
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.val
val = mvarval
End Property
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Noeud"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
'variables locales de stockage des valeurs de propriétés
Private mvarval As Integer 'copie locale
Private mvarnom As String 'copie locale
Private mvarSuiv As Noeud 'copie locale
Public Property Set Suiv(ByVal vData As Noeud)
'utilisé lors de l'affectation d'un objet à la propriété, du coté gauche de l'instruction Set.
'Syntax: Set x.Suiv = Form1
Set mvarSuiv = vData
End Property
Public Property Get Suiv() As Noeud
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.Suiv
Set Suiv = mvarSuiv
End Property
Public Property Let nom(ByVal vData As String)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.Nom = 5
mvarnom = vData
End Property
Public Property Get nom() As String
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.Nom
nom = mvarnom
End Property
Public Property Let val(ByVal vData As Integer)
'utilisé lors de l'affectation d'une valeur à la propriété, du coté gauche de l'affectation.
'Syntax: X.val = 5
mvarval = vData
End Property
Public Property Get val() As Integer
'utilisé lors de la lecture de la valeur de la propriété, du coté droit de l'instruction.
'Syntax: Debug.Print X.val
val = mvarval
End Property
DarkGift
ov Doom
hexwind
Creepiness Och Terrorism
You have no idea how boring it is when you try to understand these shits after skipping classes 
DarkGift
ov Doom
stefan86
invariably off-topic
stefan86
invariably off-topic
Hox
Superiorly grim and kvlt
Similar threads
- Locked
- Sticky
