Communication entre deux classes

déjà autant de textbox c'est pas génial, il faut utiliser une solution plus pratique niveau code, pour réduire ca à quelques lignes de code

il y a des tas de solutions

vu que tu n'as que des doubles, moi je ferais une classe avec 2 propriétés, valeur as double et nom as string
une enum pour toutes les variables que tu as besoin
ensuite tu créés un dictionary(of l_enum, laclasse)
le string sera le nom de la variable
(les checkbox peuvent rester en dur étant donné qu'ils sont peu nombreux)

ensuite à l'ouverture du form tu fait un for each sur le dictionary.keys pour créer des textbox en lisant la propriété nom pour remplir un label
et au clic sur le bouton valider tu fais un for each textbox créé, tu fais un double.tryparse(laclasse.valeur), si c'est pas ok tu fais un messagebox, si le tryparse passe la propriété sera remplie

ensuite sur ta classe qui a besoin des variables, tu récupères le dico et la valeur se trouvera dans dico(enum_key).valeur

le code reste lisible grace à l'énum, le code est simple grace à 2 boucles (donc 10 lignes de code pour gérer l'interface (enfin je n'ai pas parlé du conteneur à utiliser, là aussi plein de choix, même un datagridview à la limite ...))

pour info, les doubles ne sont pas recommandé pour faire des calculs pointus, ils perdent des infos, le type decimal est plus recommandé

après je n'ai pas top suivi le problème, que je te laisse réexposer si nécessaire
m'enfin déjà tu pourras réduire le code, car le but d'un programme c'est d'être le plus concis et le plus lisible possible, en développant le plus rapidement possible, avec une évolutivité simple (rajouter une variable ne demandera qu'à rajouter une valeur d'enum (une ligne de code) et l'interface la prendra en compte automatiquement via le for each)
taper 50 ligne de parse ne me semble pas en adéquation avec ca :D
sans parler du temps pour poser et aligner les textbox :D

Merci Pol,

Je vais me pencher la dessus demain.

En fait après çà je vais tenter d'utiliser le data binding, donc les déclaration de textbox ne devrait plus m'être utile, mais en attendant il faut que je sois capable de faire sans.

Citation:

---

ensuite à l'ouverture du form tu fait un for each sur le dictionary.keys pour créer des textbox en lisant la propriété nom pour remplir un label
et au clic sur le bouton valider tu fais un for each textbox créé, tu fais un double.tryparse(laclasse.valeur), si c'est pas ok tu fais un messagebox, si le tryparse passe la propriété sera remplie

---

Le dictionary.keys ou .autrechose ne fontcionne pas:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit On Option Strict On   Imports System.Math   Public Class SetupForm   Private Sub SetupForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   For Each Dictionary(Of.   End Sub   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   End Sub   End Class

---

Aussi, sur mon userform j'ai déjà les textbox de crées...tu parles bien de créer une instance de textbox?

il faut déclarer un dictionary

Code:

---

1 2 3 4 5 6 7 8

private _dico as new dictionary(of untype, un autre type)   '(...)   for each a as untype in _dico.keys dim t as new textbox '(...) next

---

Je l'ai fait comme çà:

Code:

---

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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128

Option Explicit On Option Strict On   Imports System.Math           Namespace chassis ' tab of the setup form   Public Class VariableChassis     Private Property Value As Double Private Property Name As String     Dim ChassisValueDictionary As New Dictionary(Of ChassisConstants, VariableChassis)       Enum ChassisConstants   'Wheel base Wheelbase_Left Wheelbase_Right   'Track HalfTrack_LF HalfTrack_RF HalfTrack_LR HalfTrack_RR   'Total mass TotalMass TotalMassWeightDistribution TotalMassCenterOfGravityHeight   'NSM NSM_LF NSM_RF NSM_LR NSM_RR   NSMCenterOfGravityHeight_LF NSMCenterOfGravityHeight_RF NSMCenterOfGravityHeight_LR NSMCenterOfGravityHeight_RR   'Pitch center PitchCenterHeight_Left PitchCenterHeight_Right PitchCenterLongitudinalPosition_Left PitchCenterLongitudinalPosition_Right   'Roll center RollCenterHeight_Front RollCenterHeight_Rear   'Spring SpringStiffness_LF SpringStiffness_RF SpringStiffness_LR SpringStiffness_RR   SpringMotionRatio_LF SpringMotionRatio_RF SpringMotionRatio_LR SpringMotionRatio_RR   'ARB ARBStiffness_Front ARBStiffness_Rear   ARBMotionRatio_Front ARBMotionRatio_Rear   'Tire TireStiffness_LF TireStiffness_RF TireStiffness_LR TireStiffness_RR   'Ackermann AckermannRatio AckermannPro AckermannAnti   'Rim RimDiameter_Front RimDiameter_Rear   'Camber input in mm Camber_mm_LF Camber_mm_RF Camber_mm_LR Camber_mm_RR   'ToeOut input in mm ToeOut_mm_LF ToeOut_mm_RF ToeOut_mm_LR ToeOut_mm_RR     'OUTPUTS   'Camber in deg Camber_deg_LF_tbox Camber_deg_RF_tbox Camber_deg_LR_tbox Camber_deg_RR_tbox   'Toe in deg ToeOut_deg_LF_tbox ToeOut_deg_RF_tbox ToeOut_deg_LR_tbox ToeOut_deg_RR_tbox   End Enum         End Class   End Namespace

---

là c'est pas top, chaque instance de variablechassis va créer un dictionnaire, alors qu'il ne t'en faut qu'un
la classe doit avoir les 2 propriétés, et éventuellement tu peux laisser l'enum avec

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit On Option Strict On   Imports System.Math   Public Class SetupForm   Private Sub SetupForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   Dim MyChassisVariable As New chassis.VariableChassis   Dim ChassisValueDictionary As New Dictionary(Of String, Double)   For Each ChassisValueDictionary.Keys   End Sub   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   End Sub   End Class

---

Puisque je ne veux pas istancier des textbox il faut que j'énumère celle dejà crée, et qu'avec une boucle je lie une text_box avec sa propriété. c'est çà?