Discussion :

[swizerman]

on doit fere afficher dans un textbox les chiffres 1 a 10.
les chiffres 1 a 10 sont situés dans un document.txt.

Il y a le bouton suivant que a chaque click i passe..1, 2, 3,4 etc..10 et une fois rendu a la fin il revient o premier.

Il y a le bouton precedent. Comment faire pour que lorsque je click celui-ci, il affiche 10, 9, 8, 7...

bref...comment est que vous vous y prenderiez pour le faire reculer ?
Je suis bloqué mais jusqu a present jm me suis crée un compteur.

et je me dis si le compteur est plus petit que 0 ou = a 0 et bien recule...mais comment dire au bouton de reculer ?....

Merci

[-N4w4k-]

Salut,

les chiffres 1 a 10 sont situés dans un document.txt

Je ne comprend pas très bien l'histoire du fichier txt..

Sinon pour incrémenter/désincrémenter i tu peux faire comme ça:

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
 
    Dim minValue As Integer = 1
    Dim maxValue As Integer = 10
    Dim i As Integer = minValue
 
    'Chargement du formulaire
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = i.ToString 'i = 1
    End Sub
 
    'Click sur le bouton précédent
    Private Sub ButtonPrecedent_Click(sender As System.Object, e As System.EventArgs) Handles ButtonPrecedent.Click
        If i > minValue Then          'si i est supérieur à 1
            i -= 1                       'on désincrémente (équivalent à i = i - 1)
        Else                          'sinon
            i = maxValue                 'i = 10
        End If
        TextBox1.Text = i.ToString
    End Sub
 
    'Click sur le bouton suivant
    Private Sub ButtonSuivant_Click(sender As System.Object, e As System.EventArgs) Handles ButtonSuivant.Click
        If i < maxValue Then             'si i est inférieur à 10
            i += 1                          'on incrémente i (équivalent à i = i + 1)
        Else                             'sinon
            i = minValue                    'i = 1
        End If
        TextBox1.Text = i.ToString
    End Sub

En espérant que tu puisse t'en inspirer..

[Kropernic]

Cette histoire me fait quand même furieusement penser aux fichiers à accès relatifs qu'on apprenait à l'école... (avec delphi 5... nostalgie)

Mais bon, avec ce qui est expliqué, difficile de se faire une idée du problème exact...

Bref, va falloir être plus précis !

Kropernic.

[swizerman]

Ok je vais mettre un meilleur context.

Au démarrage de mon VB le fichier Employe.txt est ouvert et les informations du premier employé sont affichées.
Les boutons Précédent et Suivant permettent de naviguer d’un employé à l’autre.

J'ai reussi a faire le bouton suivant mais pour le bouton precedent je me demande comment lui faire lire le fichier a l envers.

[-N4w4k-]

Peux tu mettre un exemple de ton fichier Employe.txt avec quelques commentaires? Je pense que ce sera plus simple à comprendre..

[swizerman]

Fichier.txt ressemble a ceci :

Code :

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

1
2
3
4
5
6
Nom Prenom                 Adresse                   Ville      Numero d'employé        
Pierre Gauthier                44 de l'oiseau              Paris              18
Jessica Labonter             116 Longue                Lyon               17
Carl Belile                        88 Sienne                 Paris              16
Sebastien Lacombe           48 louis                     Paris              12
etc....

Dans mon VB il y a des textbox qui represente nom/prenom, adresse, ville, numero d'employeé..

A click du bouton suivant, il m'affiche les informations de la prochaine personne dans mes textboxs de VB. Donc il va chercher l'information dans le fichier.txt

Au click du bouton precedent, Il'affiche la prochaine personne mais a l'envers.
Et je me demande comment m'y prendre pour faire fonctionner le bouton precedent
J'espere que c'est mieux