12 |
|
|
13 |
|
|
14 |
|
Sub OnSliderPositionChanged(ByVal id As Integer, ByVal value As Double) Implements PropertyManagerPage2Handler4.OnSliderPositionChanged |
15 |
< |
EnregistrementCode.labelRemi1.Caption = "Précision d'analyse -->" & value |
15 |
> |
If id = 41 Then EnregistrementCode.labelRemi1.Caption = "Précision d'analyse -->" & value |
16 |
|
End Sub |
17 |
|
|
18 |
|
Sub OnSliderTrackingCompleted(ByVal id As Integer, ByVal value As Double) Implements PropertyManagerPage2Handler4.OnSliderTrackingCompleted |
19 |
< |
EnregistrementCode.labelRemi1.Caption = "Précision d'analyse -->" & value |
19 |
> |
If id = 41 Then EnregistrementCode.labelRemi1.Caption = "Précision d'analyse -->" & value : EnregistrementCode.ValeurSliderRemi = value |
20 |
> |
|
21 |
|
End Sub |
22 |
|
|
23 |
|
|