Controle utilisateur : "la reference d'objet n'est pas definie a une instance d'un objet"

Version imprimable

09/12/2015, 15h23
Alberic81

Controle utilisateur : "la reference d'objet n'est pas definie a une instance d'un objet"

Bonjour,

J'ai créé un controle utilisateur et lorsque je le pose sur une Form, j'ai des messages d'erreurs:
Procédure : NomProcedure
Description : la reference d'objet n'est pas definie a une instance d'un objet

Toutes ces erreurs pointent des propriétés du contrôle.
Public Property NomProcedure() As Double
ou
Public Readonly Property NomProcedure() As Double

D'où viennent et comment corriger ces erreurs ?
Merci
09/12/2015, 15h37
ebastien

Bonjour,
Il doit manquer des instanciations d'objets dans le getter des propriétés en question. Mainenant, sans code, c'est difficile de dire d'où vient le problème.

Le programme complet est un peu lourd donc j'ai fait du condensé en espérant avoir mis assez d'infos !

La classe "Mesure" est mon contrôle.
Voici un exemple de propriété qui génère l'erreur:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Explicit On
Public Class Mesure
    Dim BalourdRaz As TPolaireDegreDynamique
 
    Public Property BalourdRaz1Amplitude() As Double
        Set(ByVal New_BalourdRaz1Amplitude As Double)
            BalourdRaz.PDD(1).Amplitude = New_BalourdRaz1Amplitude
        End Set
        Get
            BalourdRaz1Amplitude = BalourdRaz.PDD(1).Amplitude
        End Get
    End Property
End Class

Les structures sont déclarées dans une autres Classe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Option Explicit On
Public Class Cls_CalVect
 
    Public Structure TPolaireDegre
        Dim Amplitude As Double
        Dim Phase As Double
    End Structure
 
    Public Structure TPolaireDegreDynamique
        Dim PDD() As TPolaireDegre
        Public Sub Initialyze()
            ReDim PDD(3)
        End Sub
    End Structure
End Class

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Option Explicit On Public Class Mesure Dim BalourdRaz As TPolaireDegreDynamique = New TPolaireDegreDynamique Public Property BalourdRaz1Amplitude() As Double Set(ByVal New_BalourdRaz1Amplitude As Double) BalourdRaz.PDD(1).Amplitude = New_BalourdRaz1Amplitude End Set Get BalourdRaz1Amplitude = BalourdRaz.PDD(1).Amplitude End Get End Property End Class
Le New permet de créer une nouvelle instance de ta classe TPolaireDegreDynamique.

D'où l'erreur :

Code:

Description : la reference d'objet n'est pas definie a une instance d'un objet

Si besoin, voici un tuto sur la programmation orientée objet en VB.NET

Le New n'a pas corrigé l'erreur.
Il semblerait que l'erreur vienne du tableau.
Avec cette modif, je n'ai plus d'erreur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit On
Public Class Mesure
    Dim BalourdRaz As TPolaireDegreDynamique = New TPolaireDegreDynamique 
 
    Public Property BalourdRaz1Amplitude() As Double
        Set(ByVal New_BalourdRaz1Amplitude As Double)
            BalourdRaz.PDD.Amplitude = New_BalourdRaz1Amplitude
        End Set
        Get
            BalourdRaz1Amplitude = BalourdRaz.PDD.Amplitude
        End Get
    End Property
End Class

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit On
Public Class Cls_CalVect
 
    Public Structure TPolaireDegre
        Dim Amplitude As Double
        Dim Phase As Double
    End Structure
 
    Public Structure TPolaireDegreDynamique
        Dim PDD As TPolaireDegre
    '    Public Sub Initialyze()
    '        ReDim PDD(3)
    '    End Sub
    End Structure
End Class

Comment dois-je déclarer mon tableau ?

Citation:

Le programme complet est un peu lourd donc j'ai fait du condensé en espérant avoir mis assez d'infos !

Petite précision :
Il y a une gestion des défauts dans la procédure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Property BalourdRaz1Amplitude
        Set(ByVal New_BalourdRaz1Amplitude)
            On Error GoTo errH
 
            BalourdRaz.PDD(1).Amplitude = New_BalourdRaz1Amplitude
 
            On Error GoTo 0
            Exit Property
errH:
            MsgBox("Procédure : Mesure.BalourdRaz1Amplitude" & vbCrLf & "Description : " & Err.Description, vbCritical, "Erreur Projet : MesNI")
            Err.Raise(Err.Number, "Mesure.BalourdRaz1Amplitude", Err.Description)
        End Set
        Get
            On Error GoTo errH
 
            BalourdRaz1Amplitude = BalourdRaz.PDD(1).Amplitude
 
            On Error GoTo 0
            Exit Property
errH:
            MsgBox("Procédure : Mesure.BalourdRaz1Amplitude" & vbCrLf & "Description : " & Err.Description, vbCritical, "Erreur Projet : MesNI")
            Err.Raise(Err.Number, "Mesure.BalourdRaz1Amplitude", Err.Description)
        End Get
    End Property

C'est cette gestion des défauts qui me remonte le message d'erreur quand je pose mon contrôle sur ma Form.

Après, ça n'explique toujours pas le défaut en question !

10/12/2015, 13h04
ZenZiTone
Citation:

BalourdRaz.PDD(1).Amplitude = New_BalourdRaz1Amplitude

BalourdRaz.PDD(1) fait référence à un objet de type TPolaireDegre, qui doit aussi être instancié !!
Code:

1 2 BalourdRaz.PDD(1) = new TPolaireDegre BalourdRaz.PDD(1).Amplitude = New_BalourdRaz1Amplitude

Bonjour,

Tu programmes en vb6 ou vb.net ?

En .net, la gestion des erreurs est avec try ... catch ...
On utilise les classes, les collections et les dictionnaires.
La méthode new permet l'initialisation de la classe.

Voici un exemple de ce que cela pourrait donner
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Class TPolaireDegre Public Amplitude As Double Public Phase As Double End Class Public Class TPolaireDegreDynamique Public PDD As New Dictionary(Of Integer, TPolaireDegre) Sub New(nb As Integer) For i As Integer = 1 To nb PDD.Add(i, New TPolaireDegre) Next End Sub End Class
Ce n'est pas une bonne idée d'utiliser des propriétés pour un ensemble d'éléments (même si c'est possible, on pourait par des propriètés indexées) surtout une par élément. Le jour ou cela évolue tu devras tout reprendre.
On cré donc des méthodes d'accès aux collections (dictionnaire dans notre cas), et bien sur le new pour l'init.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Class Mesure Public BalourdRaz As TPolaireDegreDynamique Sub New(nb As Integer) BalourdRaz = New TPolaireDegreDynamique(nb) End Sub Public Sub SetAmplitude(val As Integer, ampl As Double) BalourdRaz.PDD(val).Amplitude = ampl End Sub Public Function GetAmplitude(val As Integer) As Double Return BalourdRaz.PDD(val).Amplitude End Function End Class
Code:

1 2 3 4 5 6 7 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim m As New Mesure(3) m.SetAmplitude(1, 10) MessageBox.Show(m.GetAmplitude(1)) End Sub End Class
Je n'ai pas mis les tests pour éviter les erreurs (valeur création dico) ni la gestion d'erreur
C'est une approche, il y en a d'autres, c'est toi qui vois.