کنترل مشخصات button

با سلام
من داخل یک فرم یک تعدادی مثلا ۱۰ تا button دارم به اسم‌های button1 button2 و ... و میخوام یک خاصیت اونا مثلا location رو تغییر بدم اگه بخوام اونا رو یکی یکی تغییر بدم خیلی طولانی میشه. چطوری میشه این کار رو با حلقه انجام داد.

نقل قول:

---

نوشته شده توسط modernmad

با سلام
من داخل یک فرم یک تعدادی مثلا ۱۰ تا button دارم به اسم‌های button1 button2 و ... و میخوام یک خاصیت اونا مثلا location رو تغییر بدم اگه بخوام اونا رو یکی یکی تغییر بدم خیلی طولانی میشه. چطوری میشه این کار رو با حلقه انجام داد.

---

همه شون زیر مجموعه ای از Controls هستند و با foreach هم بهشون دسترسی دارید، اما به هر حال باید برای تغییر location فرمول مشخصی در نظر گرفته باشید.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        SetButtonsLocation(Me)

    End Sub



    Private Sub SetButtonsLocation(ByRef parent As Control)

        For Each ctl As Control In parent.Controls

            If TypeOf ctl Is Button Then ctl.Location = New Point(ctl.Left + 10, ctl.Top)

            If ctl.HasChildren Then SetButtonsLocation(ctl)

        Next

    End Sub