Steuerelementfeld an Prozedur übergeben Auch Steuerelementfelder (Control-Arrays) lassen sich an Prozeduren übergeben. Wie? Das erfahren Sie hier.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  7.460
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 21 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Hin und wieder kommt es vor, dass man Eigenschaften für ein gesamtes Steuerelementfeld festlegen will. Beispielsweise möchte man alle Textfelder eines Control-Arrays auf Knopfdruck aktivieren/deaktivieren. Oftmals verwendet man dann hierfür folgenden Code:

Dim i As Long
 
For i = 0 To Text1.UBound
  Text1(i).Enabled = True  ' False
Next i

Benötigt man diesen Code öfters in seinem Projekt sollte man diesen in einer öffentlichen Prozedur in einem Modul "ablegen". Stellt sich jetzt nur die Frage, wie man das Steuerelementfeld (Control-Array) an die Prozedur übergibt.

Glücklicherweise gibt es in Visual Basic hierfür den Datentyp Variant

Public Sub EnableControls(oControls As Variant, _
  ByVal bEnabled As Boolean)
 
  Dim oControl As Control
 
  ' alle Controls des Control-Arrays durchlaufen
  For Each oControl In oControls
    oControl.Enabled = bEnabled
  Next
End Sub

Der Aufruf erfolgt dann wie folgt:

EnableControls Text1, True

Oder auch:

EnableControls Text1(), True