Discussion :

[Billy boy du 69]

Bonjour,

Je réalise un bataille naval sur virtual basic 2010 pour un projet et j'ai un petit soucis
Je souhaiterais réussir à piloter tous mes label sans tous les écrire

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
Public Label(10, 10) As Label 
Public Int(10, 10) As Integer 
Public LabelName As String 
 
Private Sub EA1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EA1.Validating 
For I As Integer = 0 To 10 
For J As Integer = 0 To 10 
LabelName = "Label" & I & J 
 
Label(I, J) = Controls.Add("VB.Label", LabelName, Me)) 
Next 
Next 
End Sub

L'idée si cela fonctionnait serait par exemple de faire une recherche du style :

Code :

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

1
2
3
4
5
6
7
8
For I As Integer = 0 To 10 
For J As Integer = 0 To 10 
if label (I,J).text="salut" then 
... 
End If 
 
Next 
Next

J'espère avoir réussi à me faire comprendre et je remercie ceux qui porteront un intérêt à ma demande. Bon week end.

[anonymousse]

bonjour billy boy du 69,

je ne comprends pas trop l'utilisation d'un controle Label pour ce type d'application.
comment affectes-tu la valeur "salut" de la propriété Text ?

sinon le tableau Label(10,10) te limite tes boucles for next à 10 soit

Code :

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

1
2
3
4
5
6
7
8
For I As Integer = 0 To 9
For J As Integer = 0 To 9
if label (I,J).text="salut" then
...
End If
 
Next J
Next  I

mousse