Mehrere Steuerelemente zusammenfassen

[kuhlmaehn]

Hi!
Ist es möglich mehere Steuerelemente zusammenzufassen?
Also zB:

Dim Alle As Zusammenfassung () ^^

Shape1
Shape2
Command1

End Dim?

Und dann macht man halt Alle.Left = 20 oder so

Wäre super wenn ihr mir da helfen könntet =)

 

[tombe]

Du könntest schreiben :

Dim a%
For a% = 0 To Controls.Count - 1
    Controls(a%).Left = 20
Next

damit werden dann alle in der Form platzierten Steuerelemente ausgerichtet.

Wenn nur bestimmte Steuerelemente verschoben werden sollen, kannst Du auch schreiben :

Dim a%
For a% = 0 To Controls.Count - 1
    If TypeOf Controls(a%) Is TextBox Then Controls(a%).Left = 20
Next

hiermit werden nur Textfelder nach links verschoben.

 

[kuhlmaehn]

Ja danke dir
Das hilft mir schonmal sehr.
Kann man jetzt beim 2. Beispiel noch sagen

Dim a%
For a% = 0 To Controls.Count - 1
    If TypeOf Controls(a%) Is TextBox Then Controls(a%).Left = 20 außer text3.text
Next

Das wäre dann ideal =)

 

[wincnc]

Hallo, versuch´s mal so:

Dim C As Control

For Each C In Me.Controls
  If TypeOf C Is TextBox And C.Name <> "Text3" Then
    C.Left = 20
  End If
Next

Du kannst aber auch alle Steuerelemente die verschoben werden müssen in ein Frame kopieren und dann nur das Frame verschieben (Frame1.Left = 20).
Die Steuerelemente in dem Frame wandern dann mit.

 

[kuhlmaehn]

Super, danke!
Das klappt wunderbar.
Mit nem Frame hatte ich auch überlegt aber der Frame verdeckt mir dann alles was hinter ihm liegt oder!?
Naja auch egal so klappt es ja jetzt wunderbar

 

[tombe]

Der Frame verdeckt die anderen Steuerelemente nicht.

Du mußt nur darauf achten das Du zuerst den Frame markierst und dann das entsprechende Steuerelement (z.B. Textfeld) in den Rahmen "reinzeichnest".

Wenn Du die bereits in der Form vorhandenen Steuerelemente nachträglich in den Rahmen bringen willst, diese einfach alle markieren und ausschneiden, dann den Rahmen markieren und die ausgeschnittenen Steuerelemente einfügen.