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