title image


Smiley Und so spukt...
...der Debugger keine roten Zeilen mehr aus ;-):





Public Function ShowControls(F As Form, IsVisible As Boolean, IsEnabled As Boolean, IsLocked As Boolean)

Dim Ctl As Control

For Each Ctl In F.Controls

If InStr(1, Ctl.Tag, "-V") > 0 Then ' -V = Not visible

Ctl.Visible = Not IsVisible

ElseIf InStr(Ctl.Tag, "V") > 0 Then ' V = Visible

Ctl.Visible = IsVisible

End If

If InStr(1, Ctl.Tag, "-E") > 0 Then ' -E = Not enabled

Ctl.Visible = Not IsEnabled

ElseIf InStr(Ctl.Tag, "E") > 0 Then ' E = Enabled

Ctl.Visible = IsEnabled

End If

If InStr(1, Ctl.Tag, "-L") > 0 Then ' -L = Not Locked

Ctl.Visible = Not IsLocked

ElseIf InStr(Ctl.Tag, "L") > 0 Then ' L = Locked

Ctl.Visible = IsLocked

End If

Next Ctl

End Function





Jetzt müsste man noch ein Focus - Halter Control (Optional) übergeben, damit man den während der Operationen hin - und herwerfen kann...
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: