تغير اللون

[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]

  في 3‏/2‏/2018 at 05:57, عبدالله كاظم 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

 

Expand  

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

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

  في 3‏/2‏/2018 at 06:26, sofiane05552 said:

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

Expand  

تفضل

test01.accdb

[sofiane05552]

  في 3‏/2‏/2018 at 07:56, عبدالله كاظم said:

تفضل

test01.accdbFetching info...

Expand  

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

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

  في 3‏/2‏/2018 at 11:42, sofiane05552 said:

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

Expand  

الحمدلله