interface contenant un tableau qui defile dynamiquement

Version imprimable

03/04/2012, 16h42
wahidred

interface contenant un tableau qui defile dynamiquement

bonjour
je voudrais afficher un tableau dans ma fenêtre qui affiche les données provenant de mon programme VB.net et qui se dessine au fur et mesure que les données seront affiché car je ne sais pas a priori combien de ligne aurait je besoin , tout dépend de mon programme

est ce que quelqu’un pourrait m'orienter svp !!!
03/04/2012, 16h48
-N4w4k-

Bonjour,

"tableau" = DataGridView ? Si oui, pourquoi la remplir petit à petit au lieu de tout d'un coup ? Si non, réexplique pour voir :aie:
03/04/2012, 17h15
Pol63

vu la question je te conseille de lire un cours :
http://plasserre.developpez.com/cours/vb-net/

qu'on ne sache pas à l'avance combien de ligne on a c'est courant
listbox, listview, datagridview etc...
04/04/2012, 15h55
wahidred

bonjour je vous remercie pour vos reponses

je voudrais declarer un tableau de structure sans savoir sa taille (allocation dynamique) mais ca ne marche pas

Code:

Dim mastructure() As information={}
04/04/2012, 16h12
-N4w4k-
Bonjour,
Tu peux déclarer ton tableau sans taille précise

Code:

Dim array As String()

puis redimensionner quand tu connais sa taille définitive

Code:

Redim array(50)

Sinon, tu peux utiliser une List, ce qui te permet de ne pas donner de taille, mais simplement ajouter des items au fur et à mesure
Code:

1 2 3 4 Dim list As New list(Of String) list.Add("item1") list.Add("item2") list.Add("item3")
Si à la fin tu veux vraiment un tableau

Code:

Dim array As String() = list.ToArray()
04/04/2012, 17h16
Pol63

évitez quand même les tableaux et les redim
05/04/2012, 08h26
-N4w4k-

Citation:

évitez quand même les tableaux et les redim

Moi j'utilise plutôt les List mais pourquoi faut-il éviter les tableaux?
05/04/2012, 08h45
Pol63

les tableaux en eux même ne sont pas vraiment méchant, le list se base sur un tableau en interne
mais une boucle avec un redim preserve, et vous 1000 à 10000 fois moins performant qu'un list avec un .add

declarer un tableau dynamique de structure

bonjour j'ai essayé de declarer un tableau dynamique de structure mais ca coince quelque part voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Class Form1 Public Structure information Dim erreurs As String Dim occurences As Integer Dim origines As String Dim destinations As String Dim tcapops As String End Structure Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim tableau_structure As New List(Of information) tableau_structure.Add() End Sub End Class
il y a une erreur je comprend pas qu'est ce qu'il faut entrer comme argument dans le ADD. en plus j'ai besoin de l'index du tableau de structure je dois au fur et mesure ajouter une structure dans la liste

est ce que quelqu’un a une idée :(

09/04/2012, 09h53
Pol63
il vaut mieux faire une classe plutot qu'une structure

après tu pourras faire
Code:

1 2 3 dim i as new information i.erreurs = "blabla" tableau_structure.add(i)
http://plasserre.developpez.com/cours/vb-net/

Code:

1 2 3 4 5 6 7 8 9 10 11 Public Structure information Dim country As String Dim int_outband As String End Structure Dim tableau_structure As New List(Of information) Dim i As New information i.int_outband=1 tableau_structure.Add(i) tableau_structure(0).int_outband.Replace(i.int_outband, i.int_outband + 1) TextBox1.Text = tableau_structure(0).ssn1
mon problème c'est lorsque j'ajoute une structure avec ADD et qu’après je veux incrémenter ou modifier un élément précis dans cette liste comment je pourrait faire parce qu’ici ma variable int_outband demeure a 1 merci!!

Salut

1 d'abord met ton projet à option strict on et option explicit on

i.int_outband=1 pas correcte
en net

Code:

i.int_outband=Convert.ToString(1)

2 pas clair ce que tu veux faire
tu as déclaré une list of (ta structure)
tu ajoutes un element à ta liste
ensuite tu veux modifier un element de ta liste ???
ex remplacer le int_outband de l'element 0
Code:

1 2 3 4 dim myinformation as new information myinformation.int_outband = Convert.ToString(tableau_structure(0).int_outband +1) tableau_structure.Remove(tableau_structure(0)) tableau_structure.Insert(0, myinformation)

10/04/2012, 21h37
benny-blanco

Je voi que vous parler de list.

Quel est la différence entre une list et un arrayList ?

Merci
10/04/2012, 22h22
Pol63

Citation:

Envoyé par benny-blanco

Quel est la différence entre une list et un arrayList ?

penser que google a réponse à tout
à ce propos il a l'air de dire que arraylist date du framework 1 et que list date du framework 2 et que list serait autrement plus performant (ca peut se vérifier avec des tests)
sinon google a l'air de dire que list permet d'utiliser des generics, qui n'existaient pas sur le fx1

probleme avec la list (of T)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Public Structure erreur
    Dim type_error As String
    Dim nombre_error As Integer
End Structure
Public Structure information
    Dim struct_error As List(Of erreur)
    Dim messages As String
    Dim ssn1 As String
    Dim ssn2 As String
    Dim succes As String
    Dim tentatives As Integer
    Dim origines As String
    Dim destinations As String
    Dim tcapops As String
    Dim operateurs As String
    Dim country As String
    Dim int_outband As String
    Dim taille_struct_error As Integer
    Dim nbre_faute As Integer
    Dim number As Integer
End Structure
Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tableau_structure As New List(Of information)
        Dim i As New information
        Dim a As Integer = 0
        Dim fofo As New information
  recup = File.ReadAllLines("source.csv")
 Dim index = 0
        For j = 0 To recup.Length - 1
 
 
            fofo.operateurs = ""
            fofo.country = ""
            fofo.int_outband = ""
            fofo.tentatives = 1
  champs = recup(j).Split(";")
            If champs(13) = "Update Location" And champs(4) = "BEG" Then
                fofo = chercher_operateur(champs(11), champs(9))
                i = fofo
              If Not tableau_structure.Contains(i) Then
  tableau_structure.Add(i)
 
                Else
'je cherche de quel structure s'agit il 
                    index = tableau_structure.IndexOf(i)
                    i.tentatives = tableau_structure(index).tentatives + 1
                    tableau_structure.Remove(tableau_structure(index))
                    tableau_structure.Insert(index, i)
 
                End If
 
            End If
 Next

bonjour mon projet c'est d ouvrir un fichier CSV qui s’appelle "source" et de le lire ligne par ligne après si certaines conditions sont verifiés je vais aller chercher de quel opérateur s'agit il pour cela j'ai écrit une fonction qui s'appelle "chercher_operateur" qui rend une structure de type information après si cet opérateur existe déjà dans ma liste j'incremente le nombre de tentatives si non j'ouvre une nouvelle rangé dans ma liste avec add mais il s’avère que mon programme ne donne pas de résultat j'arrive pas a le debugger aidez moi svp

ma fonction "chercher_operateur" est comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Public Module wahid
    Public Function chercher_operateur(ByVal origine As String, ByVal destination As String) As information
        Dim intermediate As New information
        intermediate.operateurs = ""
        intermediate.country = ""
        intermediate.int_outband = ""
        Dim oper() As String
        Dim k As Integer = 4
        oper = File.ReadAllLines("movistar.csv")
        Dim oper_frac As String()
        Dim flag As Boolean = False
        If origine.Contains("`21377") Then
            intermediate.int_outband = "inbound"
        Else
 
            Do
                For n As Integer = 0 To oper.Length - 1
                    oper_frac = oper(n).Split(";")
                    If origine.Contains(Mid(oper_frac(0), 1, k)) Then
                        intermediate.operateurs = oper_frac(2)
                        intermediate.country = oper_frac(3)
                        flag = True
                    End If
                Next
                k = k + 1
            Loop Until flag = True Or k = 8
        End If
        If destination.Contains("`21377") Then
 
            intermediate.int_outband = "outbound"
        Else
            Do
 
 
                For n As Integer = 0 To oper.Length - 1
                    oper_frac = oper(n).Split(";")
                    If destination.Contains(Mid(oper_frac(0), 1, k)) Then
                        intermediate.operateurs = oper_frac(2)
                        intermediate.country = oper_frac(3)
                        flag = True
                    End If
                Next
                k = k + 1
            Loop Until flag = True Or k = 8
        End If
 
        Return intermediate
    End Function

le probleme c'est meme au niveau de la boucle la ou je parcoure le fichier la ligne de tentatives ne s’incrémente pas

Code:

i.tentatives = tableau_structure(index).tentatives + 1