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 |
Partager