55 |
|
Private vNumberentités As Double |
56 |
|
Private vCheckEnt As Boolean |
57 |
|
|
58 |
+ |
Public ValeurSliderRemi As Double |
59 |
+ |
|
60 |
|
Private vcheckboxOriginal As Boolean |
61 |
|
Private vcheckboxModifie As Boolean |
62 |
|
|
65 |
|
Public PogAutomatique As Boolean |
66 |
|
|
67 |
|
|
68 |
+ |
|
69 |
+ |
|
70 |
|
Public Lst_BodyCL As New Collection |
71 |
|
|
72 |
|
Public sauvegarder As Boolean = False |
83 |
|
If POGManuel Then |
84 |
|
NomFichierPog = PoGCode.DebutManuel(vNumberENG, Int(vNumberbox1), vcheckArrondi, vNumberArrondi, vcheckRentrant, vNumberRentrant, vcheckMatiere, vNumberMatiere, vcheckEntites, selectionpog, vNumberentités, vCheckEnt) |
85 |
|
ElseIf PogAutomatique Then |
86 |
< |
NomFichierPog = PoGCode.DebutAutomatique(CDbl(curseur.position), limiteur.Value) |
86 |
> |
NomFichierPog = PoGCode.DebutAutomatique(ValeurSliderRemi, limiteur.Value) |
87 |
|
End If |
88 |
|
|
89 |
|
|