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
Rubrik: Controls   |   VB-Versionen: VB2005, VB200814.01.10
Gleiche Controls in Tabpages suchen

Wenn auf einem Tabpagecontrol mit mehreren Tabpages gleiche Controls vorhanden sind können diese durch diesen Tipp gleichzeitig bearbeitet werden

Autor:   Rainer HenkeBewertung:     [ Jetzt bewerten ]Views:  8.973 
ohne HomepageSystem:  Win2k, WinXP, Win7, Win8, Win10, Win11kein Beispielprojekt 

Ich hatte das Problem, dass ich auf einem Tabcontrol mit mehreren Tabpages die selben Controls (in diesem Fall ein Flexgrid) bearbeiten wollte. Um nicht immer den Controlnamen und das zugehörige Ereignis für jedes Flexgrid immer wieder angeben zu müssen, habe ich diesen Tipp "entwickelt". Dieser ist vielleicht noch ausbaubar oder kürzbar.

Ich hoffe dieser Tipp kann noch gebraucht werden.

Dim ctl1 As Control
Dim ctl2 As Control
Dim ctl3 As Control
 
' Container Tabpage durchsuchen
For Each ctl1 In Me.Tab_Kommentar.Controls
  If TypeOf ctl1 Is TabPage Then
 
    ' untergeordneter Container Groupbox durchsuchen
    ' (hier sind die anderen Controls drin)
    For Each ctl2 In ctl1.Controls
      If TypeOf ctl2 Is GroupBox Then
 
        ' jetzt nach C1Flexgrid suchen
        For Each ctl3 In ctl2.Controls 
          If TypeOf ctl3 Is C1FlexGrid Then
             Dim oFG As C1FlexGrid = DirectCast(ctl3, C1FlexGrid)
             oFG.Styles.Normal.WordWrap = True
             oFG.Cols("id").WidthDisplay = 0
             oFG.Rows(0).HeightDisplay = 28
             oFG.ShowCell(oFG.Rows.Count - 1, 1) ' letzte Zeile anzeigen
           End If
         Next 
 
      End If
    Next 
 
  End If
Next 

Dieser Tipp wurde bereits 8.973 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht 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