الدالة المستخدمة هي
Public Sub Recolor(Bname) Dim Myform As Form Dim ctrl As Control Set Myform = Forms(Screen.ActiveForm.Name) For Each ctrl In Myform.Controls If TypeOf ctrl Is TextBox Or TypeOf ctrl Is Label Then ' Or TypeOf ctrl Is ComboBox Then n = 0 If ctrl.Name = Bname Then ctrl.Properties.Item(14) = 128 Else ctrl.Properties.Item(14) = 6721379 End If End If Next End Sub
و ما تعبني فيه هو معرفة رقم خاصية الخلفية و هو 14
و لمعرفته أضفت الكود التالي ليسرد أرقام الخواص و قيمتها
و هو الجزء المضاف اليه علامة الايقاف فى الكود '
باللون الاخضر
و من لديه حل بديل فليفيدنا به مشكورا
For Each ctrl In Myform.Controls If TypeOf ctrl Is TextBox Or TypeOf ctrl Is Label Then ' Or TypeOf ctrl Is ComboBox Then n = -1 If ctrl.Name = Bname Then ' 'MsgBox ctrl.Name & ttt ' For Each Property In ctrl.Properties ' n = n + 1 ' Debug.Print n; Property ' Next ctrl.Properties.Item(14) = 128 Else ctrl.Properties.Item(14) = 6721379 End If End If
