منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

استخدم هذا الكود لتغيير مجموعة ازرار من BTNRG1 الى BTNRG11 

 Public Sub ColorSelectRG(ByVal colorr As Integer, ByVal colorg As Integer, ByVal colorb As Integer)
        Try
            Dim numColor As Integer = 28
            For i As Integer = 1 To 11
                Dim btn As Button = CType(Me.Controls("BTNRG" & i.ToString()), Button)
                If btn IsNot Nothing Then
                    btn.BackColor = Color.FromArgb(colorr, colorg, colorb)
                    colorg += numColor
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

المشكلة لا تتغير الالوان بالشكل المطلوب ولا يظهر خطا ولكن قبل استخدام IF في الكود كان يظهر خطا لم اعرف سببة

بحث مالقيت   كتبته بس نفس المشكلة ما يصير شي

1-

Private Sub COLORSELECTRG(ByRef COLORR As Integer, ByRef COLORG As Integer, ByRef COLORB As Integer)

        Dim NUMCOLOR As Integer = 28

        Dim I As Integer = 1

        For Each btn As Button In Me.Controls.OfType(Of Button)().Where(Function© c.Name.StartsWith("BTNRG"))

            Dim NUMBTN As Integer = I

            NUMCOLOR += 28

            btn.BackColor = Color.FromArgb(COLORR, COLORG, COLORB)

            COLORG += NUMCOLOR

            I += 1

        Next

    End Sub

2-

    Private Sub COLORSELECTRG(ByRef COLORR As Integer, ByRef COLORG As Integer, ByRef COLORB As Integer)

        Dim NUMCOLOR As Integer = 28

        Dim I As Integer = 1

        For Each ctrl As Control In Me.Controls

            If TypeOf ctrl Is Button AndAlso ctrl.Name.StartsWith("BTNRG") Then

                Dim btn As Button = DirectCast(ctrl, Button)

                Dim NUMBTN As Integer = I

                NUMCOLOR += 28

                btn.BackColor = Color.FromArgb(COLORR, COLORG, COLORB)

                COLORG += NUMCOLOR

                I += 1

            End If

        Next

    End Sub