Discussion :

[tcharles]

Bonjour à tous,
je suis un débutant de VB, actuellement je butte sur le code écrit par une autre personne que je ne peux joindre c'est pourquoi j'espère obtenir de l'aide de l'un de vous. En fait j'ai le code suivant qui est supposé mettre dans 'content' la liste des noms de photos à afficher, mais je ne sais comment fonctionne le fichier .rsc pour pouvoir faire afficher une nouvelle liste d'image.

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
 
Private Sub GetInfoFromFile(code As String)
 
Dim content As String
Dim x As Variant
 
    Open "Maskentexte.rsc" For Input As #1
 
        content = ""
        Do
            Line Input #1, content
        Loop Until content = code Or content = "Fin du Fichier"
 
        If content = "Fin du fichier" Then
            MsgBox " Entrer de donnees impossible "
            GoTo Ende
        End If
 
 
        LabelText = ""
        Do
            Line Input #1, content
            LabelText = LabelText & content & vbCrLf
        Loop Until content = ""
 
        Line Input #1, content
        FileArgs() = Split(content, Chr(44), -1)
 
        Line Input #1, content
        ShowPics() = Split(content, Chr(44), -1)
        positioncount = 0
        PicsCount = 0
        For Each x In ShowPics
            PicsCount = PicsCount + 1
        Next x
 
        ErstPics = ShowPics(0)
        'LastPics = ShowPics(9)
 
    Close #1
 
 
    If (Val(LabelText) = 1) Then
        btnOK_Click
    Else
        SetupGUI
    End If
Ende:
End Sub

Merci de me répondre

[zazaraignée]

Salut

D'après moi, il s'agit d'un bête fichier texte. Pour tester, dans l'explorateur, clique droit sur le nom du fichier et choisis Ouvrir avec > Bloc notes. Si le Bloc-notes de Widows ouvre le fichier, pas de pb.

Une chose qui m'a sauté aux yeux. Remplace

Code :

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

MsgBox " Entrer de donnees impossible "

par

Code :

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

MsgBox " Entrée de données impossible "

Ça fait plus professionnel quand y'a pas de fautes dans le GUI (graphical user interface).

[tcharles]

Merci pour les indications