Bonjour,

Je cherche à créer une grille 10*10 en Label afin de faire un jeu de bataille navale.
Voici mon code, je ne comprends pas du tout pourquoi il ne marche pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Public Class Form2
    Public X, Y As Integer
    Public Label(10, 10) As Label
    Public Int(10, 10) As Integer
    Public LabelName As String
    Dim A, B As Integer
Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click
 
        For J As Integer = 0 To 9
            For I As Integer = 0 To 9
                A = 360 + (30 * I)
                B = 110 + (30 * J)
                Label(J, I) = New Label()
                Label(J, I).AutoSize = False
                Label(J, I).Location = New Point(A, B)
                Label(J, I).BackColor = Color.Blue
                Label(J, I).Size = New Point(30, 30)
                Label(J, I).BorderStyle = BorderStyle.FixedSingle
                Label(J, I).Visible = True
 
 
            Next
        Next
    End Sub
End Class
VB m'indique la phrase suivante pour chaque étape de la boucle :
Une exception de première chance de type 'System.NullReferenceException' s'est produite dans WindowsApplication1.exe
Si une ame charitable passe dans le coin et peut m'expliquer la cause de mon erreur (et pourquoi pas la solution car pas sur de comprendre la cause xD).
Merci beaucoup pour votre aide et bon début de semaine