La référence d'objet n'est pas définie à une instance d'un objet.

Version imprimable

Bonjour je fais un puissance 4 et j'ai se message d'erreur :

Code:

La référence d'objet n'est pas définie à une instance d'un objet.

Voici le code :

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
25
26
 Private Sub conversiontab()

        Dim i As Integer
        Dim j As Integer
        

        For i = 1 To 6
            For j = 1 To 7
'erreur sur la ligne qui suis !
                If TabCase(i, j).BackColor = Color.BlueViolet Then
                    TabConvertie(i, j) = 1

                Else
                    If TabCase(i, j).BackColor = Color.DarkOrange Then
                        TabConvertie(i, j) = 2
                    Else
                        TabConvertie(i, j) = 0
                    End If

                End If

            Next
        Next


    End Sub

14/06/2009, 14h44
smyley

TabCase(i, j) vaut Nothing. Il faut, avant d'essayer d'accéder à une propriété de TabCase(i, j), mettre quelque chose de censé dedans comme par exemple TabCase(i, j) = New TaCase()

D'accord ! mais pourtant dans mon tableau il y a tous sa !

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
TabCase(1, 1) = Pb_1_1
        TabCase(2, 1) = Pb_1_2
        TabCase(3, 1) = Pb_1_3
        TabCase(4, 1) = Pb_1_4
        TabCase(5, 1) = Pb_1_5
        TabCase(6, 1) = Pb_1_6
        TabCase(1, 2) = Pb_2_1
        TabCase(2, 2) = Pb_2_2
        TabCase(3, 2) = Pb_2_3
        TabCase(4, 2) = Pb_2_4
        TabCase(5, 2) = Pb_2_5
        TabCase(6, 2) = Pb_2_6
        TabCase(1, 3) = Pb_3_1
        TabCase(2, 3) = Pb_3_2
        TabCase(3, 3) = Pb_3_3
        TabCase(4, 3) = Pb_3_4
        TabCase(5, 3) = Pb_3_5
        TabCase(5, 3) = Pb_3_6
        TabCase(1, 4) = Pb_4_1
        TabCase(2, 4) = Pb_4_2
        TabCase(3, 4) = Pb_4_3
        TabCase(4, 4) = Pb_4_4
        TabCase(5, 4) = Pb_4_5
        TabCase(6, 4) = Pb_4_6
        TabCase(1, 5) = Pb_5_1
        TabCase(2, 5) = Pb_5_2
        TabCase(3, 5) = Pb_5_3
        TabCase(4, 5) = Pb_5_4
        TabCase(5, 5) = Pb_5_5
        TabCase(6, 5) = Pb_5_6
        TabCase(1, 6) = Pb_6_1
        TabCase(2, 6) = Pb_6_2
        TabCase(3, 6) = Pb_6_3
        TabCase(4, 6) = Pb_6_4
        TabCase(5, 6) = Pb_6_5
        TabCase(6, 6) = Pb_6_6
        TabCase(1, 7) = Pb_7_1
        TabCase(2, 7) = Pb_7_2
        TabCase(3, 7) = Pb_7_3
        TabCase(4, 7) = Pb_7_4
        TabCase(5, 7) = Pb_7_5
        TabCase(6, 7) = Pb_7_6

14/06/2009, 15h01
smyley

Et tu es sur que tous les Pb_* sont chacun différents de Nothing ?

mes PB sont des picture box elles prennent une couleurs au clique sur un bouton donc violet pour le joueur 1 et orange pour le joueur 2 le souci c'est que quand lance l'application et que je clique sur un bouton et sa me met se message d'erreur !
Voici le code de mon bouton avec l'appel de la méthode qui ne fonctionne pas

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub Btn_colonne1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_colonne1.Click
 
 
        If joueurEnCours = Joueur1 Then
 
            If Tabpions(1) = 6 Then
                MsgBox("colonne pleine")
                joueurEnCours = Joueur1
 
            Else
                Tabpions(1) = Tabpions(1) + 1
                TabCase(Tabpions(1), 1).BackColor = Color.BlueViolet
'la méthode qui fonctionne pas !
                conversiontab()
                joueurEnCours = Joueur2
 
 
            End If
 
 
 
 
        Else
            If joueurEnCours = Joueur2 Then
                If Tabpions(1) = 6 Then
                    MsgBox("colonne pleine")
                    joueurEnCours = Joueur2
 
                Else
                    Tabpions(1) = Tabpions(1) + 1
                    TabCase(Tabpions(1), 1).BackColor = Color.DarkOrange
                    conversiontab()
                    joueurEnCours = Joueur1
 
                End If
 
 
            End If
        End If
 
 
 
 
 
    End Sub

Ton

Code:

1
2
3
4
TabCase(1, 1) = Pb_1_1
        TabCase(2, 1) = Pb_1_2
        TabCase(3, 1) = Pb_1_3
        ....

Tu l'as mis où dans ton code ?

14/06/2009, 15h17
tiph02

Je l'ai mis au chargement du formulaire !
14/06/2009, 15h33
smyley

Dans le constructeur après InitializeComponent ? ou alors dans l'évènement Load ...
14/06/2009, 15h36
tiph02

dans le Load !
14/06/2009, 15h48
smyley

Rolala.
Le seul moyen pour que TabCase(i, j).BackColor lance une exception de ce genre c'est que TabCase(i, j) soit égal à Nothing (et donc que un des Pb soit égal à Nothing au moment où tu fais TabCase(i, j) = Pb..) ou alors TabCase = Nothing mais dans ce cas ça aurai craché lorsque tu aurai essayé de définir les Pb.
Donc soit les Pb sont Nothing, soit le Load n'est pas appelé. En exécution pas à pas ça te donne quoi pour l'évènement Load ?
14/06/2009, 15h58
tiph02

D'accord mais le truc c'est que quand je met "conversiontab()" en commentaire a l'appelle au clique de mon bouton et bien mes picture box se color bien comme il le fau
c'est cette méthode qui m'embete !
Je ne sais pas comment on fait pour l'execution pas à pas :x
14/06/2009, 16h02
smyley

Je sais pas :aie:
Tu pourrais envoyer ton projet en pièce jointe ?
14/06/2009, 16h07
tiph02

1 pièce(s) jointe(s)

Et voila !
merci de m'aider ^^
14/06/2009, 16h17
smyley
Regarde ton code :
Code:

1 2 3 4 5 6 TabCase(1, 3) = Pb_3_1 TabCase(2, 3) = Pb_3_2 TabCase(3, 3) = Pb_3_3 TabCase(4, 3) = Pb_3_4 TabCase(5, 3) = Pb_3_5 TabCase(5, 3) = Pb_3_6
Tu as mis deux fois 5,3 (ce qui devrais être 5,3 et 6,3)

Vérifie aussi le code de ton bouton 6 il n'ajoute pas toujours dans la bonne colonne j'ai l'impression.
14/06/2009, 16h40
tiph02

Youpiiiiiiiii
Tous fonctionne ! j'ai enfin un p4 qui fonctionne ^^
merci beaucoup ^^
Bonne fin d'après midi et désolé de t'avoir dérranger pour un probleme aussi bête !!
14/06/2009, 17h13
smyley

N'oublie pas le :resolu: :roll: