تغير اللون

[sofiane05552]

السلام عليكم

ممكن كود تغير للونين في زر واحد مثلا زر فيه للونين يتغيران اتوماتيك  زي كانه لديك رسالة  جديدة  يعني يكون فيه تنبيه في الزر عن طريق تغير للونين في زر واحد 

تم تعديل فبراير 2, 2018 بواسطه sofiane05552

[عبدالله كاظم]

وعليكم السلام

ممكن هذه الطريقة تنفع

Option Compare Database
Private iCkeck As Integer ''تعيين المتغير في أعلى صفحة الكود 

Private Sub Form_Timer()
	''اعطاء القيمة للمتغير عبر اختبار الشرط
	if ...... then
		iCkeck = 1
	else
		iCkeck = 0
	end if
	
	''تغيير لون الزر عبر اختبار الشرط التالي
    If iCkeck = 0 Then
        Me.Command0.BackColor = RGB(214, 0, 3)
    ElseIf iCkeck = 1 Then
        Me.Command0.BackColor = RGB(78, 147, 217)
    End If
        
End Sub

 

[sofiane05552]

28 دقائق مضت, عبدالله كاظم said:

وعليكم السلام

ممكن هذه الطريقة تنفع

Option Compare Database
Private iCkeck As Integer ''تعيين المتغير في أعلى صفحة الكود 

Private Sub Form_Timer()
	''اعطاء القيمة للمتغير عبر اختبار الشرط
	if ...... then
		iCkeck = 1
	else
		iCkeck = 0
	end if
	
	''تغيير لون الزر عبر اختبار الشرط التالي
    If iCkeck = 0 Then
        Me.Command0.BackColor = RGB(214, 0, 3)
    ElseIf iCkeck = 1 Then
        Me.Command0.BackColor = RGB(78, 147, 217)
    End If
        
End Sub

 

جزاك الله  خيرا اخي بارك الله فيك ممكن تنزل لي  مثال لو مافي مانع 

[عبدالله كاظم]

منذ ساعه, sofiane05552 said:

جزاك الله  خيرا اخي بارك الله فيك ممكن تنزل لي  مثال لو مافي مانع 

تفضل

test01.accdb

[sofiane05552]

3 ساعات مضت, عبدالله كاظم said:

تفضل

test01.accdb

بارك الله فيك اخي عبدالله كاظم روعة

[عبدالله كاظم]

2 دقائق مضت, sofiane05552 said:

بارك الله فيك اخي عبدالله كاظم روعة

الحمدلله