j'aimerais que quelqu'un me dise comment faire une class en visual basic en me la comparant avec une en c++ car je ne suis pas tres sur de comprend le concept objets en vb6.

de plus jaimerais que vous me dite pourquoi que c'est ID que je dois mettre pour y mettre une valeur et non lID.

De plus comment je pourrais passer des parametre dans le constructeur. J'aimerais aussi savoir pourquoi je ne peu pas mettre de nothing pour le constructeur.

Et pour finir j'aimerais bien que vous me dite la difference entre sub et function (est-ce que c'est des procédure pour sub et fonction pour function).

Merci d'avance d'aider un débutant d'une semaine avec VB6, je vous en suis éternellement reconnaissant.

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
30
31
32
33
34
35
36
37
38
39
 
Option Explicit
'Partie déclarative
Private lID As Long
Private sNom As String
Private sInformation As String
'Partie procédurale
Public Property Let ID(ByVal pID As Long)
  Set Me.ID = pID
End Property
Public Property Get ID() As Long
   ID = lID
End Property
Public Property Let Nom(ByVal pNom As String)
  sNom = pNom
End Property
Public Property Get Nom() As String
  Nom = sNom
End Property
Public Property Let Information(ByVal pInformation As String)
  Set sInformation = pInformation
End Property
Public Property Get Information() As String
  Information = sInformation
End Property
Public Sub SetTableStage(ByRef pID As Long, ByRef pNom As String, ByRef pInfornation As String)
  lID = pID
  sNom = pNom
  sInformation = pInformation
End Sub
'Constructeur par défaut
Private Sub Class_Initialize()
  Me.ID = Nothing
  Me.Nom = Nothing
  Me.Information = Nothing
End Sub
'Destructeur
Private Sub Class_Terminate()
End Sub