Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic pb classes

pb classes

3 réponses
Avatar
Benoît O'Hare
g deux classes, Carticles et Cliste

dans cliste je fait

private mCourant as Carticles
private mTete as Carticles

et mTete = null -> Erreur

set mTete = new Carticles(ref)

mCourant = mTete -> Erreur

Pourkoi?
--
(Hello)
\ | | | / O
(o) (o) O
\ (_) / o
o0oo - - - - - - oo0oo
(MrBinaire)

Benoît O'Hare
www.tryskel.com (portail web)
www.tryskel.net (communauté tryskel)
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Benoît O'Hare
**** fichier CARTICLE**********
Private mReference As String * 25
Private mDesignation As String * 35
Private mFamille As String * 2
Private mType As String * 1

Private mPrecedent As CARTICLE
Private mSuivant As CARTICLE


Public Property Get Reference() As String
Reference = mReference
End Property

Public Property Get Designation() As String
Designation = mDesignation
End Property

Public Property Get Famille() As String
Famille = mFamille
End Property

Public Property Get TypeA() As String
TypeA = mType
End Property

Public Property Get Suivant() As CARTICLE
Suivant = mSuivant
End Property

Public Property Get precedent() As CARTICLE
precedent = mPrecedent
End Property

Public Property Set Suivant(ByRef adresse As CARTICLE)
Set mSuivant = adresse
End Property

Public Property Set precedent(ByRef adresse As CARTICLE)
Set mPrecedent = adresse
End Property



Public Sub Init(ref As String, desi As String, fam As String, typ As String)
mReference = ref
mDesignation = desi
mFamille = fam
mType = typ
End Sub

****fichier CLISTE************

Private mTete As CARTICLE
Private mCourant As CARTICLE
Private mTemp As CARTICLE

Public Sub Init()
Set mTete = Null
Set mCourant = Null
End Sub

Public Sub AjouterArticle(ref As String, desi As String, fami As String, typ
As String)
'si la tete est nulle alors on lui ajoute en tete
If IsNull(mTete) Then
Set mTete = New CARTICLE
mTete.Init ref, desi, fami, typ
mCourant = mTete
Else
'si la tete n'est pas nulle alors il faut ajouter apres
Set mTemp = New CARTICLE
mTemp.Init ref, desi, fami, typ

'la on rajoute au maillon précédent l'adresse du suivant
mCourant.Suivant = mTemp

'la on rajoute au maillon actuel l'adresse du précédent
mTemp.precedent = mCourant

'et la on décale le mcourant
mCourant = mTemp
End If
End Sub


***************
et ca plante !
ou est l'erreur svp!
--
(Hello)
| | | / O
(o) (o) O
(_) / o
o0oo - - - - - - oo0oo
(MrBinaire)

Benoît O'Hare
www.tryskel.com (portail web)
www.tryskel.net (communauté tryskel)
"Benoît O'Hare" a écrit dans le message de news:

g deux classes, Carticles et Cliste

dans cliste je fait

private mCourant as Carticles
private mTete as Carticles

et mTete = null -> Erreur

set mTete = new Carticles(ref)

mCourant = mTete -> Erreur

Pourkoi?
--
(Hello)
| | | / O
(o) (o) O
(_) / o
o0oo - - - - - - oo0oo
(MrBinaire)

Benoît O'Hare
www.tryskel.com (portail web)
www.tryskel.net (communauté tryskel)




Avatar
Christophe QUEVAL
Bonjour,

mCourant étant une variable objet, pour l'initialiser, il faut le faire avec
l'instruction Set devant :

Set mCourant = mTete


Christophe

"Benoît O'Hare" a écrit dans le message de
news:
g deux classes, Carticles et Cliste

dans cliste je fait

private mCourant as Carticles
private mTete as Carticles

et mTete = null -> Erreur

set mTete = new Carticles(ref)

mCourant = mTete -> Erreur

Pourkoi?
--
(Hello)
| | | / O
(o) (o) O
(_) / o
o0oo - - - - - - oo0oo
(MrBinaire)

Benoît O'Hare
www.tryskel.com (portail web)
www.tryskel.net (communauté tryskel)




Avatar
Benoît O'Hare
et pis c pas null en vb c nothing !

et pis c aussi set CL.suivant = adresse!

--
(Hello)
| | | / O
(o) (o) O
(_) / o
o0oo - - - - - - oo0oo
(MrBinaire)

Benoît O'Hare
www.tryskel.com (portail web)
www.tryskel.net (communauté tryskel)
"Christophe QUEVAL" a écrit dans le message de news:
#
Bonjour,

mCourant étant une variable objet, pour l'initialiser, il faut le faire


avec
l'instruction Set devant :

Set mCourant = mTete


Christophe

"Benoît O'Hare" a écrit dans le message de
news:
> g deux classes, Carticles et Cliste
>
> dans cliste je fait
>
> private mCourant as Carticles
> private mTete as Carticles
>
> et mTete = null -> Erreur
>
> set mTete = new Carticles(ref)
>
> mCourant = mTete -> Erreur
>
> Pourkoi?
> --
> (Hello)
> | | | / O
> (o) (o) O
> (_) / o
> o0oo - - - - - - oo0oo
> (MrBinaire)
>
> Benoît O'Hare
> www.tryskel.com (portail web)
> www.tryskel.net (communauté tryskel)
>
>