Besoin d'aide: " La référence d'objet n'est pas définie à une instance d'un obje

Signaler
Messages postés
2
Date d'inscription
samedi 9 avril 2011
Statut
Membre
Dernière intervention
9 avril 2011
-
Messages postés
161
Date d'inscription
lundi 28 février 2011
Statut
Membre
Dernière intervention
11 février 2013
-
Bonjour à tous et toutes

Voilà cela fait des heures que je planche dessus et je n'arrive pas a comprendre d'ou viens l'erreur et surtout comment la corriger pour ne plus faire la même erreur.

Mon code est assez simple
Je me suis servi d'un TP que proposer "siteduzero.com" pour l'idée et j'ai essayer d'en rajouter. Mais maintenant l'appli ne marche plus et en message d'erreur il me marque: La référence d'objet n'est pas définie à une instance d'un objet. Je suppose que l'erreur vient de cette feuille vu qu'elle s'affiche systématiquement.

Public Class Form1
    Dim MonMario As Mario
    Dim MonLuigi As Luigi
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MonLuigi = New Luigi(Me.PAN_LUIGI.Location, Me.PAN_LUIGI.Size)
    
        MonMario = New Mario(Me.PAN_MARIO.Location, Me.PAN_MARIO.Size)
    End Sub
#Region "Luigi"
    Private Sub BT_AVANCE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Avance.Click

        MonLuigi.Avance()

        Me.PAN_LUIGI.Location = MonLuigi.Position
    End Sub

    Private Sub BT_DESCEND_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_DESCEND.Click
        MonLuigi.Descend()
        Me.PAN_LUIGI.Location = MonLuigi.Position
    End Sub


    Private Sub BT_MONTE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_MONTE.Click
        MonLuigi.Monte()
        Me.PAN_LUIGI.Location = MonLuigi.Position
    End Sub

    Private Sub BT_RECULE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_RECULE.Click
        MonLuigi.Recule()
        Me.PAN_LUIGI.Location = MonLuigi.Position
    End Sub
#End Region


#Region "mario"
    Private Sub BT_AVANCE2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_AVANCE2.Click
        MonMario.Avance()
        Me.PAN_MARIO.Location = MonMario.Position
    End Sub

    Private Sub BT_DESCEND2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_DESCEND2.Click
        MonMario.Descend()
        Me.PAN_MARIO.Location = MonMario.Position
    End Sub

    Private Sub BT_MONTE2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_MONTE2.Click
        MonMario.Monte()
        Me.PAN_MARIO.Location = MonMario.Position
    End Sub

    Private Sub BT_RECULE2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_RECULE2.Click
        MonMario.Recule()
        Me.PAN_MARIO.Location = MonMario.Position
    End Sub
#End Region
End Class


Merci d'avance :)

3 réponses

Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
151
Bonjour,

En clair, il te dit que l'objet auquel tu tentes d'accéder à une valeur Nothing.

Mais comme tu ne précise pas la ligne de l'erreur, impossible d'en dire plus.

Mon site
Messages postés
2
Date d'inscription
samedi 9 avril 2011
Statut
Membre
Dernière intervention
9 avril 2011

Enfait c'est bon j'avais oublier de coder une ligne --' désolé du dérangement et merci pour se reposte rapide quand même
Messages postés
161
Date d'inscription
lundi 28 février 2011
Statut
Membre
Dernière intervention
11 février 2013

peu tu valider ton dernier message pour qu'on vois directement que le problème est résolu?