Visual Basic 2010
Fermé
Marion1232
Messages postés
17
Date d'inscription
dimanche 26 décembre 2010
Statut
Membre
Dernière intervention
18 décembre 2011
-
18 déc. 2011 à 20:47
Marion1232 Messages postés 17 Date d'inscription dimanche 26 décembre 2010 Statut Membre Dernière intervention 18 décembre 2011 - 18 déc. 2011 à 20:49
Marion1232 Messages postés 17 Date d'inscription dimanche 26 décembre 2010 Statut Membre Dernière intervention 18 décembre 2011 - 18 déc. 2011 à 20:49
A voir également:
- Visual Basic 2010
- Visual basic download - Télécharger - Langages
- Microsoft 365 basic - Guide
- Microsoft visual c++ runtime - Guide
- Visual petanque - Télécharger - Sport
- Visual paradigm - Télécharger - Gestion de données
1 réponse
Marion1232
Messages postés
17
Date d'inscription
dimanche 26 décembre 2010
Statut
Membre
Dernière intervention
18 décembre 2011
18 déc. 2011 à 20:49
18 déc. 2011 à 20:49
Non en fait c'est quand je veux rajouter mes acteurs à ma base de film que mes films se multiplie jusqu'a 6006
mon code est le suivant :
'Associe à chaque film ses acteurs (caractéristique de la stucture)
Public Sub CreerbaseActors(ByVal actors As List(Of String))
Dim i As Integer
Dim j As Integer
For i = 0 To basefilm.Count - 1
For j = 0 To actors.Count - 1
Dim t() As String = Split(actors(j), ControlChars.Tab)
If basefilm(i).Titre = t(1) Then
basefilm(i).Actors.Add(t(0) + " Rôle : " + t(2)) 't(0) correspond au nom et au prenom de l'acteur et t(2) a son role
End If
Next
Next
End Sub
mon code est le suivant :
'Associe à chaque film ses acteurs (caractéristique de la stucture)
Public Sub CreerbaseActors(ByVal actors As List(Of String))
Dim i As Integer
Dim j As Integer
For i = 0 To basefilm.Count - 1
For j = 0 To actors.Count - 1
Dim t() As String = Split(actors(j), ControlChars.Tab)
If basefilm(i).Titre = t(1) Then
basefilm(i).Actors.Add(t(0) + " Rôle : " + t(2)) 't(0) correspond au nom et au prenom de l'acteur et t(2) a son role
End If
Next
Next
End Sub
