Discussion :

[Pimsouner]

Bonjour à tous,

Je cherche à me perfectionner dans l'usage des tableaux et pour cela j'ai décidé de me lancer dans la programmation d'un SUDOKU.

Jusqu'à présent j'ai réussi à créer par programmation(sans utiliser l'interface graphique) 81 Textboxs et à les placer où je le souhaitai sur mon Form.
J'ai également appliqué des conditions basiques comme par exemple :
-La valeur de la textbox devra être un chiffre
-Le contenu de la textbox doit être comprit entre 1 et 9

Maintenant, je souhaite passé aux règles fondamentales de ce jeu. Et c'est la que je coince, du moins je pourrai résoudre mon problèmes mais ça risque de rendre le code long et très répétitif.
Je souhaite faire la vérification de mes lignes, de mes colonnes et de mes carrés sur l'évenement Textbox.text_changed()

cependant cela implique que je doive créer 81 évenements text changed correspondant à chaque textbox.
N'y aurai t'il pas un moyen de faire la détection du changement du contenu d'une des 81 textboxs et de tout traiter en un seul bloc de code ?

Si vous avez des idées, n'hésitez pas à me les proposer.

[baloub]

Une idée comme ça :

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
Public Class Form1
 
    Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged
 
        ' traitement global
        '
        '
        '
 
 
        'si besoin de tester une textbox en particulier
 
        Select Case sender.name
            Case TextBox1.Name
 
            Case TextBox3.Name
 
        End Select
    End Sub
End Class

[Sankasssss]

Vous pouvez utiliser la même Sub pour tout les TextBox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Sub CreateGui()
        For i = 1 To 81
            Dim tb As New TextBox
            AddHandler tb.TextChanged, AddressOf tb_TextChanged
            Me.Controls.Add(tb)
        Next
    End Sub
 
    Private Sub tb_TextChanged(sender As Object, e As EventArgs)
 
    End Sub

[Pimsouner]

Baloub cela pourrai marcher mais la solution de sankasss est très efficace. C'est exactement ce dont j'avais besoin.

Merci à vous deux.