vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Code schlank halten 
Autor: keco
Datum: 19.04.09 14:18
Das hier kannst du schonmal vereinfachen: 
        If cbpos1.Checked = True Then
             tbpos1.Enabled = True
             ' ...
        Else
            tbpos1.Enabled = False
            ' ...
mit 
tbpos1.Enabled = cbpos1.Checked
Damit sparst du dir die If-Bedingung. Ansonsten schau dir mal die Me.Controls-Eigenschaft an, dort kannst du den Name angeben.

PS: Hab mal schnell was zusammengeschrieben, aber nicht getestet: 
      For i As Integer = 0 To 10
         Dim cb As CheckBox = CType(Me.Controls("cbpos" & i.ToString), CheckBox)
 
         ' entweder diese Schleife, wenn ALLE Controls beteiligt sein sollen
         For Each ctrl As Control In Me.Controls
            ctrl.Enabled = cb.Checked
         Next
 
         ' oder dies, wenn nur bestimmte:
         Me.Controls("combBreitepos" & i.ToString).Enabled = cb.Checked
         Me.Controls("combLängepos" & i.ToString).Enabled = cb.Checked
         Me.Controls("combTürhöhepos" & i.ToString).Enabled = cb.Checked
      Next


Beitrag wurde zuletzt am 19.04.09 um 14:23:29 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Code schlank halten905newcomerVB200819.04.09 13:47
Re: Code schlank halten573keco19.04.09 14:18
Re: Code schlank halten586newcomerVB200819.04.09 15:08

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 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