Discussion :

[gta126]

Bonjour

J'essaye de faire un jeu de Sokoban et pour celà je suis un tutoriel qui à la base est prévu pour le faire en flash. Je tente de le réaliser en VB.net. Dans le tutoriel il est dit de réaliser des cases. Alors j'ai tenter de réaliser celà via des PictureBox par code mais ça ne marche pas . Pourriez vous m'aider svp ? Merci d'avance.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Dim picCase As New PictureBox
        Dim picCase As New TextBox
 
        For y As Integer = 0 To 16
            For x As Integer = 0 To 20
                picCase.Name = "txtCase" & If(y < 10, "0" & y.ToString, y.ToString) & If(x < 10, "0" & x.ToString, x.ToString)
                picCase.Size = New Size(32, 32)
                picCase.Location = New Size(x * 32, y * 32)
                Me.Controls.Add(picCase)
            Next
        Next
    End Sub

J'ai tenter de faire des TextBox juste pour voir s'ils s'affichaient sur la form mais rien ne s'affiche Est ce normal? Est ce que je commence bien?

Merci d'avance pour votre aide et toutes vos remarques sont les bienvenue

[_PascalC_]

salut, en fait tu ne dois avoir qu'un seul composant qui s'affiche avec ton code. Il faut instancier l'objet picCase à chaque passage comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
        For y As Integer = 0 To 16
            For x As Integer = 0 To 20
                Dim picCase = New TextBox
                picCase.Name = "txtCase" & If(y < 10, "0" & y.ToString, y.ToString) & If(x < 10, "0" & x.ToString, x.ToString)
                picCase.Size = New Size(32, 32)
                picCase.Location = New Size(x * 32, y * 32)
                Me.Controls.Add(picCase)
            Next
        Next

[gta126]

Merci beaucoup ça marche parfaitement