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 :)
A voir également:
La référence d'objet n'est pas définie à une instance d'un objet.
La référence d'objet n'est pas définie à une instance d'un objet power bi - Meilleures réponses
