Discussion :

[grenouillesiverte]

Voici ma classe de Base

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Class cArbHier
   Private mlngArbHierNumAuto As Long
   Private mstrArbHierCode As String
   Private mstrArbHierDescription As String
 
   Public Property ArbHierNumAuto() As Long
		Get
			Return mlngArbHierNumAuto
		End Get
		Set(ByVal value As Long)
			mlngArbHierNumAuto = value
		End Set
	End Property
   Public Property ArbHierCode() As String
		Get
			Return mstrArbHierCode
		End Get
		Set(ByVal value As String)
			mstrArbHierCode = value
		End Set
   End Property
   Public Property ArbHierDescription() As String
		Get
			Return mstrArbHierDescription
		End Get
		Set(ByVal value As String)
			mstrArbHierDescription = value
		End Set
   End Property

Comment je peux creer une classe ArbHiers qui serait un objet collection qui contient les objets ArbHier ?

Je suis utilisateur VB6 et cette nouvelle organisation me perturbe !