begin process at 2008 08 20 18:16:49
1 228 990 membres
350 nouveaux aujourd'hui
14 259 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Tableaux problème... [ Divers / General ] (mckilleron)

Tableaux problème... le 03/06/2007 23:34:06

mckilleron
Bonjour à toutes et à tous,
J'aimerai savoir si je peux créer un tableau T1 dans une classe et lui attribuer des variables pour ensuite pouvoir le récuperer dans mon application exemple :

classe logiciels :

Public class Logiciels

Dim Tindis(7,4) as string

Tindis(1,1)="Adobe Acrobat Reader 7.0"
Tindis(2,1)="Mozilla Firefox"

etc...


End class

Mon formulaire :

dim c1 as new Logiciels

For i=0 to 7

Me.Listbox1.Item.Add(.......LE TABLEAU DE MA CLASSE CASE I)
Next



Si c'est pas possible connaissez vous une alternative ?

Merci d'avance
Mc

Re : Tableaux problème... le 04/06/2007 04:52:12

ptit_tof57
Membre Club

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 StringByVal 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 :



Imports System.Collections

Public Class MesLogiciels

    Private ListeLogiciel As ArrayList

    Public Sub New()
        ListeLogiciel = New ArrayList()
    End Sub

    Public Function Add(ByVal Nomdulogiciel As StringByVal DescriptionDuLogiciel As StringAs Logiciel
        Dim UnLogiciel As New Logiciel(Nomdulogiciel, DescriptionDuLogiciel)
        ListeLogiciel.Add(UnLogiciel)
        Add = UnLogiciel
    End Function

    Public ReadOnly Property Item(ByVal IndexLogiciel As IntegerAs 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.


Private Sub ChargementDuFormulaire(ByVal sender As ObjectByVal 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)



Voila j'espère avoir répondu à ta question
A+
Tof


Classé sous : problème, tableau, classe, tableaux, tindis

Participer à cet échange

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
campagne Adwords
Budget : 5 000€
Boite echanges securis...
Budget : 500€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Téléchargements

Boutique

Boutique de goodies CodeS-SourceS