Hallo Zusammen,
ich bin auf der Suche nach einer Vereinfachung des Programmcode. Der bestehende Code soll erweitert werden. Die jetzige Visualisierung hat mehrere Parameter pro Eingabe. Die Eingaben sind abhängig von einer EXCEL-Liste und es können nun bis 24 Eingabezeilen benötigt werden.
(Siehe Bsp. des Buttons.) Dies wiederholt sich für Ein&Ausgabefelder, Msg.Box etc.Welche Funktion/Programmaufbau bietet sich hier an, damit ich nicht mühsam der Code 24 wiederholen muss? Ich möchte gerne eine Funktion Schreiben und anschliessend (falls nötig) Instanzen erstellen.
Hat jemand Erfahrung diesbezüglich? Danke für die Tipps
ich bin auf der Suche nach einer Vereinfachung des Programmcode. Der bestehende Code soll erweitert werden. Die jetzige Visualisierung hat mehrere Parameter pro Eingabe. Die Eingaben sind abhängig von einer EXCEL-Liste und es können nun bis 24 Eingabezeilen benötigt werden.
(Siehe Bsp. des Buttons.) Dies wiederholt sich für Ein&Ausgabefelder, Msg.Box etc.Welche Funktion/Programmaufbau bietet sich hier an, damit ich nicht mühsam der Code 24 wiederholen muss? Ich möchte gerne eine Funktion Schreiben und anschliessend (falls nötig) Instanzen erstellen.
Hat jemand Erfahrung diesbezüglich? Danke für die Tipps
VB.NET-Quellcode
- If ParameterRead(Parameter_counter).Funct = 3 ThenSelect Case ParameterRead(Parameter_counter).Group
- Case 1
- If ParameterRead(Parameter_counter).Enable = True Then
- Group1.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group1.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group1.Text = ""
- End IfCase 2
- If ParameterRead(Parameter_counter).Enable = True Then
- Group2.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group2.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group2.Text = ""
- End IfCase 3
- If ParameterRead(Parameter_counter).Enable = True Then
- Group3.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group3.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group3.Text = ""
- End IfCase 4
- If ParameterRead(Parameter_counter).Enable = True Then
- Group4.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group4.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group4.Text = ""
- End IfCase 5
- If ParameterRead(Parameter_counter).Enable = True Then
- Group5.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group5.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group5.Text = ""
- End IfCase 6
- If ParameterRead(Parameter_counter).Enable = True Then
- Group6.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group6.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group6.Text = ""
- End IfCase 7
- If ParameterRead(Parameter_counter).Enable = True Then
- Group7.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group7.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group7.Text = ""
- End IfCase 8
- If ParameterRead(Parameter_counter).Enable = True Then
- Group8.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group8.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group8.Text = ""
- End IfCase 9
- If ParameterRead(Parameter_counter).Enable = True Then
- Group9.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group9.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group9.Text = ""
- End IfCase 10
- If ParameterRead(Parameter_counter).Enable = True Then
- Group10.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group10.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group10.Text = ""
- End IfCase 11
- If ParameterRead(Parameter_counter).Enable = True Then
- Group11.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group11.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group11.Text = ""
- End IfCase 12
- If ParameterRead(Parameter_counter).Enable = True Then
- Group12.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group12.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group12.Text = ""
- End IfCase 13
- If ParameterRead(Parameter_counter).Enable = True Then
- Group13.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group13.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group13.Text = ""
- End IfCase 14
- If ParameterRead(Parameter_counter).Enable = True Then
- Group14.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group14.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group14.Text = ""
- End IfCase 15
- If ParameterRead(Parameter_counter).Enable = True Then
- Group15.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group15.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group15.Text = ""
- End IfCase 16
- If ParameterRead(Parameter_counter).Enable = True Then
- Group16.Text = ParameterRead(Parameter_counter).Language(Language).Text
- Group16.Enabled = ParameterRead(Parameter_counter).PWDL = 0
- Else
- Group16.Text = ""
- End If
- End SelectEnd If
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „carepicha“ ()