Discussion :

[aminepop]

Bonjour,
J'ai crée une Mini application pour voyage, j'enregistre les voyageurs juste dans une liste ou collection, j'ai besoin de code de navigation des boutons Suivant & Precedent & premier & dernier !!
j'ai essayé de faire :

Code :

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

ListVoyageur.Movenext

Mais sa ne marche pas

[The_Big_Lebowski]

Si tes éléments sont dans une collection, il faut appeler l'index de ta collection

Code :

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

maCollection.Item(Index)

Ainsi, lors de l'appel du bouton, tu incrémentes ou décrémentes la valeur de Index.

[aminepop]

Alors je fais :

Code :

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

1
2
3
4
5
maCollection.Item(1)
maCollection.Item(2)
.......................
....................
maCollection.Item(n)

C'est comme sa ??

[The_Big_Lebowski]

Presque !
Le but de cet exercice est de remplacer 1, 2, 3, ... par ce qu'on appelle une variable.
La valeur de cette variable ne doit pas excéder maCollection.Count sinon une exception sera remontée.

[aminepop]

ah d'accord, et pour une Liste On fait comment ??
La Même Chose ??

[The_Big_Lebowski]

Oui.

[Kropernic]

Presque !
Le but de cet exercice est de remplacer 1, 2, 3, ... par ce qu'on appelle une variable.
La valeur de cette variable ne doit pas excéder maCollection.Count sinon une exception sera remontée.

Concernant la partie que j'ai mise en gras, sauf erreur de ma part, la valeur de ne doit pas excéder maCollection.Count-1 car en .Net, les indices commencent à 0 et non à 1.

[aminepop]

donc sa seras comme sa ??

Code :

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

1
2
3
4
5
6
7
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Suivant.Click
        TextBox1.Text = listvoyage.Item(1).numvoyage
        TextBox2.Text = listvoyage.Item(1).nom_pre_chau
        TextBox3.Text = listvoyage.Item(1).datedepart
        TextBox4.Text = listvoyage.Item(1).durée
        TextBox5.Text = listvoyage.Item(1).villedes
        TextBox6.Text = listvoyage.Item(1).imm

[Pol63]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
private _Index as integer
 
 
 
private sub AfficheElementIndex
  textbox1.text = listvoyage(_Index).numvoyage
  ' autres textbox
end sub
 
private sub buttonsuivant_click (...) handles (...)
  if _Index = listvoyage.count -1 then ' on est sur le dernier, on ne peut pas avancer plus
    exit sub
  end if
 
  _Index += 1
  AfficheElementIndex
end sub

il reste les sub des 3 autres boutons à écrire

[The_Big_Lebowski]

Concernant la partie que j'ai mise en gras, sauf erreur de ma part, la valeur de ne doit pas excéder maCollection.Count-1 car en .Net, les indices commencent à 0 et non à 1.

OOPS, autant pour moi.

[aminepop]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
private _Index as integer
 
 
 
private sub AfficheElementIndex
  textbox1.text = listvoyage(_Index).numvoyage
  ' autres textbox
end sub
 
private sub buttonsuivant_click (...) handles (...)
  if _Index = listvoyage.count -1 then ' on est sur le dernier, on ne peut pas avancer plus
    exit sub
  end if
 
  _Index += 1
  AfficheElementIndex
end sub

il reste les sub des 3 autres boutons à écrire

Voila ma feuille :

Code :

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

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
57
58
59
60
61
62
63
64
65
66
67
Public Class Form2
 
    Structure client 
        Dim numvoyage As Int32
        Dim nom_pre_chau As String
        Dim datedepart As String
        Dim durée As String
        Dim villedes As String
        Dim imm As String
 
    End Structure
    Dim moi As Integer
    Public c As client
    Public tab(100) As client
    Public indice As Integer = 0
 
    Private _Index As Integer
 
 
 
    Private Sub AfficheElementIndex()
        TextBox2.Text = listvoyage(_Index).nom_pre_chau
        TextBox3.Text = listvoyage(_Index).datedepart
        TextBox4.Text = listvoyage(_Index).durée
        TextBox5.Text = listvoyage(_Index).villedes
        TextBox6.Text = listvoyage(_Index).imm
 
 
        ' autres textbox
    End Sub
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        moi = 0
        moi += 1
        TextBox1.Text = moi
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        c.numvoyage = TextBox1.Text
        c.nom_pre_chau = TextBox2.Text
        c.datedepart = TextBox3.Text
        c.durée = TextBox4.Text
        c.villedes = TextBox5.Text
        c.imm = TextBox6.Text
        TAB(indice) = c
        indice = indice + 1
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        moi = moi + 1
        TextBox1.Text = moi + 1
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        If _Index = listvoyage.Count - 1 Then
            Exit Sub
        End If
 
        _Index += 1
        AfficheElementIndex()
    End Sub
 
End Class