REPOS_ERICCA/magicsld/SuperIntersection.vb

Public MustInherit Class SuperIntersection
    Friend Shared numMax As Integer
    Private Num As Integer


    Public Sub New()
        numMax += 1
        Me.Num = numMax
    End Sub

    ''' <summary>
    ''' Le numéro de l'intersection
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public ReadOnly Property Numero() As Integer
        Get
            Return num
        End Get

    End Property


End Class
Revision:	130
Committed:	Wed Jul 30 21:26:03 2008 UTC (17 years ago) by bournival
File size:	496 byte(s)
Log Message:	Une mise Ă jour, car on aura peut-ĂŞtre besoin de mon code.
#	User	Rev	Content
1	bournival	40	Public MustInherit Class SuperIntersection
2	bournival	130	Friend Shared numMax As Integer
3			Private Num As Integer
4	bournival	40
5	bournival	130
6			Public Sub New()
7			numMax += 1
8			Me.Num = numMax
9			End Sub
10
11			''' <summary>
12			''' Le numéro de l'intersection
13			''' </summary>
14			''' <value></value>
15			''' <returns></returns>
16			''' <remarks></remarks>
17			Public ReadOnly Property Numero() As Integer
18			Get
19			Return num
20			End Get
21
22			End Property
23
24
25
26	bournival	40	End Class