Problem avec fichier extenson .rsc
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:
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
