Buttons mit Schleife zählen

[timee]

Hi,

ich würde gerne über eine sub 21 buttons visible = false setzen, doch alle einzeln zu schreiben erscheint mir sehr umständlich.
Kann ich mit einer Schleife z.B.

Dim i As Integer
For i = 1 To 21
     VerkaufsScreen1.Button & i & .Visible = False
Next

die Buttons durchzählen lassen?

Geht das überhaupt, ode muss ich doch 21 Zeilen schreiben?

Danke für eure Hilfe,
gruß timee

 

[Alexander Schuc]

Schau dir mal die Controls-Eigenschaft von deiner Form an.

 

[Multivitaminsaft]

Ich würde dir empfehlen ein Array als Button zu deklarieren, dort einmal alle Buttons zuzuweisen und anschließend immer mit dem Array zu arbeiten.

Dürfte ungefähr so aussehen:

Dim arrButtons(20) As Button

arrButtons(0) = Button1
arrButtons(1) = Button2
arrButtons(2) = Button3
...
arrButtons(19) = Button20
arrButtons(20) = Button21

Du müsstest zwar trotzdem alle Buttons hinschreiben, aber nur einmal. Du kannst das Array ja überall benutzen.

 

[Nico Graichen]

Das ist nicht nur unschön sondern auch unpraktisch und teuer!
Er hat schon eine Collection, in der die Buttons liegen.
Außerdem will er ja nicht jeden Button einzeln benennen. Was in deinem Fall aber wäre

 

[timee]

Wollte es schon so wie oben geschrieben beibehalten!
Nur nimmt er mit die Variable i nicht so im code an.

 

[Nico Graichen]

Das geht nicht
Wie Alex schon geschrieben hat: Schau dir mal das Property Controls an
Das liefert dir alle Controls, die direkt auf der Form liegen. Prüfe, ob das aktuelle Control ein Button ist und manipulier ihn