Besoin d'aide: " La référence d'objet n'est pas définie à une instance d'un obje
pabloxo
Messages postés2Date d'inscriptionsamedi 9 avril 2011StatutMembreDernière intervention 9 avril 2011
-
9 avril 2011 à 13:46
JSilvere
Messages postés161Date d'inscriptionlundi 28 février 2011StatutMembreDernière intervention11 février 2013
-
11 avril 2011 à 09:45
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