Discussion :

[zazaraignée]

Bonjour

Je dois lire un fichier structuré et afficher son contenu dans un listbox. C'est un exercice que je dois remettre demain. Si vous avez le temps de me répondre, tant mieux, sinon... bof! J'comprendrai.

Voici le code de ma procédure

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

PrivateSub btnAfficher_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnAfficher.Click, mniAfficher.Click
' Lit le fichier .dat pour affichage
' déclaration des variables
Dim laEmploye As TEmploye
Dim laObjet As System.ValueType
Dim lsNomFic AsString
Dim liFicNum AsInteger
Dim liI AsInteger
'
' Initialisation des variables
laObjet = New TEmploye
lsNomFic = "Employes.dat"
liFicNum = FreeFile()
'liI = 0
'
' Lecture et affichage
Try
FileOpen(liFicNum, lsNomFic, OpenMode.Random, , , Len(laEmploye))
lsbAffichage.BeginUpdate()
DoWhileNot EOF(liFicNum)
FileGet(liFicNum, laObjet)
laEmploye = CType(laObjet, TEmploye)
lsbAffichage.Items.Add(laEmploye.Nom & " " & _
laEmploye.Prenom & " " & _
laEmploye.Sexe & " " & _
laEmploye.SalaireAnnuel)
Loop
lsbAffichage.EndUpdate()
FileClose(liFicNum)
'lsbAffichage.Items.AddRange(New Object() {laEmploye})
Catch ex As Exception
MsgBox(ex.ToString)
EndTry
'
EndSub

Pourquoi ça ne foctionne pas?

[zazaraignée]

Apparemment, il y a un problème avec nos postes de travail au collège. Il faut attendre de 20 à 30 secondes (au moins) pour voir les items apparaître dans la liste

Considérez donc le broblème comme résolu.

Merci.