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
| Public Sub LoadingParameters()
CollBool.Clear()
CollBool.Add(1, My.Settings.CBCobb1)
CollBool.Add(2, My.Settings.CBRotation1)
CollBool.Add(3, My.Settings.CBCobb2)
CollBool.Add(4, My.Settings.CBRotation2)
CollBool.Add(5, My.Settings.CBCobb3)
CollBool.Add(6, My.Settings.CBRotation3)
CollBool.Add(7, My.Settings.CBCyphose1)
CollBool.Add(8, My.Settings.CBCyphose2)
CollBool.Add(9, My.Settings.CBLordose1)
CollBool.Add(10, My.Settings.CBLordose2)
CollBool.Add(11, My.Settings.CBInciPelv)
CollBool.Add(12, My.Settings.CBPenteSacree)
CollBool.Add(13, My.Settings.CBVersionPelv)
CollBool.Add(14, My.Settings.CBObliquite)
CollBool.Add(15, My.Settings.CBRotationB)
CollBool.Add(16, My.Settings.CBSacral)
CollBool.Add(17, My.Settings.CBBascule)
CollBool.Add(18, My.Settings.CBBasculeT)
For i As Integer = 1 To CollBool.Count
If CollBool.Item(i) = False Then
CollTB1.Item(i).Hide()
CollTB2.Item(i).Hide()
CollTB3.Item(i).Hide()
CollR1.Item(i).Hide()
CollR2.Item(i).Hide()
CollOLabel.Item(i).Hide()
CollRLabel.Item(i).Hide()
ElseIf CollBool.Item(i) = True Then
CollTB1.Item(i).Show()
CollTB2.Item(i).Show()
CollTB3.Item(i).Show()
CollR1.Item(i).Show()
CollR2.Item(i).Show()
CollOLabel.Item(i).Show()
CollRLabel.Item(i).Show()
End If
Next |
Partager