Tableaux problème...
mckilleron
Messages postés
24
Date d'inscription
samedi 9 avril 2005
Statut
Membre
Dernière intervention
24 avril 2010
-
3 juin 2007 à 23:34
ptit_tof57 Messages postés 79 Date d'inscription lundi 28 août 2006 Statut Membre Dernière intervention 4 avril 2009 - 4 juin 2007 à 04:52
ptit_tof57 Messages postés 79 Date d'inscription lundi 28 août 2006 Statut Membre Dernière intervention 4 avril 2009 - 4 juin 2007 à 04:52
1 réponse
ptit_tof57
Messages postés
79
Date d'inscription
lundi 28 août 2006
Statut
Membre
Dernière intervention
4 avril 2009
1
4 juin 2007 à 04:52
4 juin 2007 à 04:52
Salut dans un premier temps tu dois créer un classe de type
Logiciel dans laquelle tu renseignes les noms d'un seul logiciel, éventuellement
sa description comme ceci :
Public Class Logiciel
Private _Nom As String
Private _Description As String
Public Sub New(ByVal NomDuLogiciel As String, ByVal DescriptionDuLogiciel As String)
Nom = NomDuLogiciel
Description = DescriptionDuLogiciel
End Sub
Property Nom() As String
Get
Return _Nom
End Get
Set(ByVal value As String)
_Nom = value
End Set
End Property
Property Description() As String
Get
Return _Description
End Get
Set(ByVal value As String)
_Description = value
End Set
End Property
End Class ,
----
Ensuite tu créer une classe Logiciels qui elle sera une
ArrayList (collection) qui contiendra des logiciels créer à partir de la classe
précédente :
<table border="0" height="377" width="924">
----,
</td>
Imports System.Collections
Public Class MesLogiciels
Private ListeLogiciel As ArrayList
Public Sub New()
ListeLogiciel = New ArrayList()
End Sub
Public Function Add(ByVal Nomdulogiciel As String, ByVal DescriptionDuLogiciel As String) As Logiciel
Dim UnLogiciel As New Logiciel(Nomdulogiciel, DescriptionDuLogiciel)
ListeLogiciel.Add(UnLogiciel)
Add = UnLogiciel
End Function
Public ReadOnly Property Item(ByVal IndexLogiciel As Integer) As Logiciel
Get
Item = (CType(ListeLogiciel.Item(IndexLogiciel), Logiciel))
End Get
End Property
End Class ,
----
Et pour finir voici l'utilisation à partir de ton formulaire
: (Deux contrôles listview utilisés)
Dans le premier contrôle listview on affiche le nom des logiciels et dans le deuxième à titre d'exemple on affiche la description de chaque logiciel.
<table border="0">
----,
</td>
Private Sub ChargementDuFormulaire(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim List As New MesLogiciels
List.Add("Adobe Acrobat Reader 7.0", "Lecteur de fichier pdf")
List.Add("Mozilla Firefox", "Navigateur internet")
List.Add("Visual Studio 2005", "Interface de programmation")
Dim i As Integer = 0
For i = 0 To 2
ListView1.Items.Add(List.Item(i).Nom)
Next
i = 0
For i = 0 To 2
ListView2.Items.Add(List.Item(i).Description)
Next
End Sub ,
----
(Coloration syntaxique
automatique par Kenji)
</td>
</tr>
</tbody>
</table>
Voila j'espère avoir répondu à ta question
A+
Tof
</td>
</tr>
</tbody>
</table>
Logiciel dans laquelle tu renseignes les noms d'un seul logiciel, éventuellement
sa description comme ceci :
Public Class Logiciel
Private _Nom As String
Private _Description As String
Public Sub New(ByVal NomDuLogiciel As String, ByVal DescriptionDuLogiciel As String)
Nom = NomDuLogiciel
Description = DescriptionDuLogiciel
End Sub
Property Nom() As String
Get
Return _Nom
End Get
Set(ByVal value As String)
_Nom = value
End Set
End Property
Property Description() As String
Get
Return _Description
End Get
Set(ByVal value As String)
_Description = value
End Set
End Property
End Class ,
----
Ensuite tu créer une classe Logiciels qui elle sera une
ArrayList (collection) qui contiendra des logiciels créer à partir de la classe
précédente :
<table border="0" height="377" width="924">
----,
</td>
Imports System.Collections
Public Class MesLogiciels
Private ListeLogiciel As ArrayList
Public Sub New()
ListeLogiciel = New ArrayList()
End Sub
Public Function Add(ByVal Nomdulogiciel As String, ByVal DescriptionDuLogiciel As String) As Logiciel
Dim UnLogiciel As New Logiciel(Nomdulogiciel, DescriptionDuLogiciel)
ListeLogiciel.Add(UnLogiciel)
Add = UnLogiciel
End Function
Public ReadOnly Property Item(ByVal IndexLogiciel As Integer) As Logiciel
Get
Item = (CType(ListeLogiciel.Item(IndexLogiciel), Logiciel))
End Get
End Property
End Class ,
----
Et pour finir voici l'utilisation à partir de ton formulaire
: (Deux contrôles listview utilisés)
Dans le premier contrôle listview on affiche le nom des logiciels et dans le deuxième à titre d'exemple on affiche la description de chaque logiciel.
<table border="0">
----,
</td>
Private Sub ChargementDuFormulaire(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim List As New MesLogiciels
List.Add("Adobe Acrobat Reader 7.0", "Lecteur de fichier pdf")
List.Add("Mozilla Firefox", "Navigateur internet")
List.Add("Visual Studio 2005", "Interface de programmation")
Dim i As Integer = 0
For i = 0 To 2
ListView1.Items.Add(List.Item(i).Nom)
Next
i = 0
For i = 0 To 2
ListView2.Items.Add(List.Item(i).Description)
Next
End Sub ,
----
(Coloration syntaxique
automatique par Kenji)
</td>
</tr>
</tbody>
</table>
Voila j'espère avoir répondu à ta question
A+
Tof
</td>
</tr>
</tbody>
</table>
