title image


Smiley Jo, klar, hatte ich irgendwie nicht dran gedacht...
...war ja schon 1.00.000 x Thema,

noch etwas von meinem Senf dazu :-)





Private Sub ShowControls(IsVisible As Boolean)

Dim Ctl as Control

For each Ctl in Me.Controls

If Ctl.Tag = "V" then ' v = Visible

Ctl.Visible = IsVisible

ElseIf Ctl.Tag = "nv" then ' nv = Not nvisible

Ctl.Visible = Not IsVisible

End If

Next Ctl

End Sub


Mit freundlichen Grüßen aus Wuppertal

Walter Grimm EasyPointer

MS Access 2000/XP, MS SQL Server 2005, Windows XP
C#.Net 2.0 - VS 2005 Std
Bitte immer Erfolgs- oder Misserfolgsmeldung abgeben
++ Emails und Dateianhänge bitte nur nach Absprache ++

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: