- Dim Bez() As POINTAPI
-
- Open "C:\.\Fichier.txt" For Input As 1
-
- Do Until EOF(1) 'Fichier texte ouvert avec le n°1
- Dim EchModifY As Double, EchModifX As Double
- EchModifY = Report.Picture1.ScaleX(1, 0, 3)
- EchModifX = Report.Picture1.ScaleY(1, 0, 3)
-
- If EOF(1) Then Exit Do
- ReDim Bez(np - 1)
- For i = 1 To NbrePts 'NbrePts = Val. num. Integer
- Input #1, X#, Y# 'Lecture dans un fichier texte, par exemple
- Bez(i - 1).X = X
- Bez(i - 1).Y = Y
- Next
- l& = PolyBezier(Picture1.hdc, Bez(0), UBound(Bez))
- Loop
- Close 1
Dim Bez() As POINTAPI
Open "C:\.\Fichier.txt" For Input As 1
Do Until EOF(1) 'Fichier texte ouvert avec le n°1
Dim EchModifY As Double, EchModifX As Double
EchModifY = Report.Picture1.ScaleX(1, 0, 3)
EchModifX = Report.Picture1.ScaleY(1, 0, 3)
If EOF(1) Then Exit Do
ReDim Bez(np - 1)
For i = 1 To NbrePts 'NbrePts = Val. num. Integer
Input #1, X#, Y# 'Lecture dans un fichier texte, par exemple
Bez(i - 1).X = X
Bez(i - 1).Y = Y
Next
l& = PolyBezier(Picture1.hdc, Bez(0), UBound(Bez))
Loop
Close 1