Discussion :

[Lealeal]

Bonjour,

En déboguant mon code, je me trouve devant une erreur de type

NullReferenceException was unhandled

disant

Variable objet ou variable d'un bloc With non définie.

Quelqu'un peut m'aider à corriger cette erreur, je suis bloquée devant. En attachement, vous trouverez l'image de l'erreur.

Merci bcp de m'aider, j'attends impatiement votre réponse.

[Pol63]

m_ensemble est vide (=nothing) donc nothing.quelquechose plante
ou m_ensemble.listCDAH vaut nothing, donc nothing.count n'existe pas non plus

[Lealeal]

Merci d'avoir me répondre, mais pouvez vous me montrer comment faire pour la corriger??

[Pol63]

non, il faut être devant le code pour savoir comment corriger ...
mais voici un exemple du problème et la solution :

Code :

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

1
2
dim b as button
b.text = "un bouton" ' plante car button ne contient rien

Code :

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

1
2
dim b as new button
b.text = "un bouton" ' ne plante pas car button a été instancié via new

[Lealeal]

J'ai essayé de le corriger en fonction de l'exemple, mais l'erreur persiste. Par ce que moi je l'ai déclaré comme Private, voilà comment :

Code :

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

Private m_ensembleClientCdahvehicule As sets

... ou bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Property ensembleClientCdahvehicule() As sets
    Get
           If m_ensembleClientCdahvehicule Is Nothing Then
                m_ensembleClientCdahvehicule = New sets
            End If
           Return m_ensembleClientCdahvehicule
        End Get
      Set(ByVal value As sets)
            m_ensembleClientCdahvehicule = value
        End Set
    End Property

En arrivant à la ligne :

Code :

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

Dim Ol(m_ensembleClientCdahvehicule.ListeCDAH.count - 1) As IIntVar

L'erreur que je vous ai parlé hier, s'affiche.

Avez vous saisi mon probléme?

[Pol63]

remplace

Code :

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

Dim Ol(m_ensembleClientCdahvehicule.ListeCDAH.count - 1) As IIntVar

par

Code :

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

1
2
3
if m_ensembleClientCdahvehicule is nothing then msgbox ("étrange")
if m_ensembleClientCdahvehicule.ListeCDAH is nothing then msgbox ("l'erreur vient de là")
Dim Ol(m_ensembleClientCdahvehicule.ListeCDAH.count - 1) As IIntVar

pas de MP svp, les participants d'un topic sont avertis d'un ajout de réponse

vous pouvez aussi voir que vos messages sont moches et les miens jolis, donc merci d'utiliser le bouton # de l'interface qui ajoute la balise code pour la mise en forme de celui ci

[Lealeal]

Merci de vos réponses.

Je suis débutante en ce forum, c'est pourquoi je ne connais pas tas de choses. Merci d'avoir me monter comment procéder.

J'ai effectué les changements que vous m'aviez proposés, mais malheureusement, l'erreur est toujours là. Je ne sais pas quoi faire.

[Pol63]

quand on débutant(e), le mieux reste d'apprendre
un cours : http://plasserre.developpez.com/cours/vb-net/
à lire en entier, ca prend environ 60h

si vous avez testé mon code, il aurait été judicieux de dire quel messagebox s'affiche, et si c'est le 2ème vous auriez pu en déduire comment corriger je pense

[Lealeal]

J'ai testé de nouveau, les 2 messagebox s'affichent successivement, et aprés s'affiche la même erreur.

[Pol63]

vous avez pompé le code quelque part ou c'est du code existant que vous devez modifier ?

m_ensembleClientCdahvehicule n'est pas fait pour être utilisé dans votre code, il faudrait le remplacer par ensembleClientCdahvehicule

[rv26t]

Bonjour,

Qu'est-ce que IIntVar ? (une de vos classe)


A+, Hervé.

[Lealeal]

m_ensembleClientCdahvehicule n'est pas fait pour être utilisé dans votre code, il faudrait le remplacer par ensembleClientCdahvehicule

J'ai compris. Je vais le retravailler.

Merci bcp

[Lealeal]

Bonjour,

Qu'est-ce que IIntVar ? (une de vos classe)


A+, Hervé.

Non, c'est pas une de mes classes, mais c'est une Interface Integer Variable

[rv26t]

...c'est une Interface Integer Variable

Ce qui vous permet de créer un indexeur sur des entiers ?
Quelque chose m'échappe dans votre déclaration.

Code :

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

Dim Ol(UnNombre) As IIntVar