|
| |
VB.NET - Ein- und Umsteiger| Code schlank halten | |  | | Autor: newcomerVB2008 | | Datum: 19.04.09 13:47 |
| Hallo Forum,
zugleich meine erste Frage in diesen Form als Visual Basic Einsteiger.
Ich habe eine CheckBox, die man nach dem Programmstart aktivieren kann. Jedoch soll beim aktivieren der CheckBox andere Felder (TextBox, ComboBox,…) ebenfalls automatisch „Enabled“ von False auf True gesetzt werden.
Code funktioniert ja, jedoch benötige ich 10 CheckBoxen!
Da wird der Code ziemlich lang!
Hat jemand einen Tipp wie ich den Code schlank halten kann? Die Textboxen, ComboBoxen,…) möchte ich jedoch nicht zu einer GroupBox zusammenfassen!
Hier mein bisheriger Code:
'Aktivierungierung der Steuerelemente: combBreitepos1, usw. Enabled von False
' auf True beim Aktivieren der CheckBox: Pos.1, 2....setzen
Private Sub cbpos1_CheckedChanged(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles cbpos1.CheckedChanged
If cbpos1.Checked = True Then
tbpos1.Enabled = True
cbModelpos1.Enabled = False 'False beibehalen da diese Position
' immer nur den gleichen wert besitzt
combBreitepos1.Enabled = True
combLängepos1.Enabled = True
combTürhöhepos1.Enabled = True
combEinstiegPos1.Enabled = True
combMotorenhöhePos1.Enabled = True
combUKPos1.Enabled = True
combFarbeStäbePos1.Enabled = True
cbPrintPos1.Enabled = True
llbpos1.Enabled = True
'folgendes wird nur einmalig auf true gesetzt wenn eines der
' Checkboxen aktiviert ist, dann beibehalten
cbGesamtlisteHolz.Enabled = True
llbGesamtlisteHolz.Enabled = True
cbGesamtlistePlexiglas.Enabled = True
llbGesamtlistePleyiglas.Enabled = True
cbGesamtlisteStäbe.Enabled = True
llbGesamtlisteStäbe.Enabled = True
btnPDFerzeugen.Enabled = True
btnPrint.Enabled = True
Else
'beim deaktivieren der CeckBox Werte auf False setzen
tbpos1.Enabled = False
combModelpos1.Enabled = False
combBreitepos1.Enabled = False
combLängepos1.Enabled = False
combTürhöhepos1.Enabled = False
combEinstiegPos1.Enabled = False
combMotorenhöhePos1.Enabled = False
combUKPos1.Enabled = False
combFarbeStäbePos1.Enabled = False
cbPrintPos1.Enabled = False
llbpos1.Enabled = False
'folgendes wird nur auf False gesetzt wenn keine CeckBox aktiviert
' ist
'TODO funkt noch net 100 % wenn z.B.: alle außer CheckBox 10
' aktiviert ist!
cbGesamtlisteHolz.Enabled = False
llbGesamtlisteHolz.Enabled = False
cbGesamtlistePlexiglas.Enabled = False
llbGesamtlistePleyiglas.Enabled = False
cbGesamtlisteStäbe.Enabled = False
llbGesamtlisteStäbe.Enabled = False
btnPDFerzeugen.Enabled = False
btnPrint.Enabled = False
End If
End SubSo, den Code müsste ich 10 mal schreiben! für jede CheckBox ein mal.
Dafür suche ich nun eine möglichst kurze Variante.
Vielleicht das noch:
Die Namen unterscheiden sich mit der letzten Zahl Also gibt es z.B.:
combBreitepos1
combBreitepos2
combBreitepos3 …
Könnt ihr mir einen Beispiel Code dazu machen?
vielen Dank im Voraus:
newcomerVB2008 | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
November 2025
Sie sind aktuell nicht angemeldet.
