08-07-23, 11:51 AM
استخدم هذا الكود لتغيير مجموعة ازرار من 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
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 في الكود كان يظهر خطا لم اعرف سببة