اولا السلام عليكم ورحمة الله وبركاته
ارجوا قبولي عندكم عضو جديد في هذا الصرح التعليمي
اريد تعديل على الكود التالي
Private Sub Form_Timer()
On Error Resume Next
If [TT] = "استقالة" Then
If [TT].ForeColor = vbRed Then
[TT].ForeColor = vbBlack
[TT].BackColor = vbBlack
Else
[TT].ForeColor = vbRed
[TT].BackColor = vbBlack
End If
Else
[TT].ForeColor = vbBlack
[TT].BackColor = vbWhite
End If
End Sub
هذا الكود عند عدد الوقت
1000
عندي حقل اخر اسمه (pp)
اصدار
اريد ان اضيف الحقل هذا مع الحقل (TT) في كود واحد او كيف تم دمج الكود لحقلين لانه ما يقبل عندي
او كيف اضافة نفس الكود بالحقل الجديد pp وفي اي حدث
يمكنك دمج الكود ليعمل على حقلين (TT و pp) في نفس الكود ببساطة. يمكنك استخدام كود مشابه للكود الحالي وتعديله ليتناسب مع حقل pp. فيما يلي كيفية ذلك:
PHP كود :
Private Sub Form_Timer()
On Error Resume Next
' تبديل الألوان لحقل TT
If [TT] = "استقالة" Then
If [TT].ForeColor = vbRed Then
[TT].ForeColor = vbBlack
[TT].BackColor = vbBlack
Else
[TT].ForeColor = vbRed
[TT].BackColor = vbBlack
End If
Else
[TT].ForeColor = vbBlack
[TT].BackColor = vbWhite
End If
' تبديل الألوان لحقل pp
If [pp] = "قيمة معينة" Then ' قم بتغيير "قيمة معينة" إلى القيمة التي تريد
If [pp].ForeColor = vbRed Then
[pp].ForeColor = vbBlack
[pp].BackColor = vbBlack
Else
[pp].ForeColor = vbRed
[pp].BackColor = vbBlack
End If
Else
[pp].ForeColor = vbBlack
[pp].BackColor = vbWhite
End If
End Sub
في هذا الكود، تم إضافة جزء إضافي ليتم التحكم في حقل pp بجانب حقل TT. قم بتعديل "قيمة معينة" في الشرط إلى القيمة التي تريد استخدامها لتحديد متى يتم تبديل الألوان لحقل pp.
تغير لون الخط حدث عند الوقت ؟!
الاصح تنسيق شرطي
1- يكون الحقل والخط كليهما أسود
2-كود تنسيق الشرطي وتحدد الخط أحمر ولست بوكس اسود ( الحقل )
كود :
[TT]="استقالة"
[PP]="اصدار"
فقط ؟! هذا هو أيضا طلبك
================================================================================================================================
وطلب تغير أي عنصر او كائن والاصح بتسمية Button او List_Box من غير تحديد العام وصف فقط
ينفذ كود الوقت كان فرعي او نموذج آخر في الخلف عند انتهاء التحميل او تصفية بمعادلة آخرى
درج الكود من فحص الى التنفيذ
كود :
Private Sub Form_Timer()
On Error Resume Next
Dim give_N As String
'==========================(عدد الحقل المطلوبة)
Dim Button As string
Dim Button1 As string
'========================================(جلب اسم الفورم الحالي تلقائي)
give_N = Application.CurrentObjectName
'========================================(تحديد الحقل (من النموذج) وان تنفيذ من النموذج وليس جدول؟!)
Button = Me.TT'me.(اكتب اسم الحقل المطلوب)
Button1 = Me.PP
'===============================================(تنفيذ بهذا الامر
'Forms(give_N).Controls(Button)
'================================================(Cod#1)
Public Function Pause_ForeColor1 ()
If Forms(give_N).Controls(Button).ForeColor = vbRed Then
'================================(كليهم اسود الاخط والبوكس ؟!) يا استاذ اعمل معه عدم التمكين او كابتشن
Forms(give_N).Controls(Button).ForeColor = vbBlack
Forms(give_N).Controls(Button).BackColor = vbBlack
Else
'================================(احمرالاخط واسود البوكس ؟!)
Forms(give_N).Controls(Button).ForeColor = vbRed
Forms(give_N).Controls(Button).BackColor = vbBlack
End If
End Function
'================================================(Cod#2)
Public Function Pause_ForeColor2 ()
If Forms(give_N).Controls(Button1).ForeColor = vbRed Then
'================================(كليهم اسود الاخط والبوكس ؟!) يا استاذ اعمل معه عدم التمكين او كابتشن
Forms(give_N).Controls(Button1).ForeColor = vbBlack
Forms(give_N).Controls(Button1).BackColor = vbBlack
Else
'================================(احمرالاخط واسود البوكس ؟!)
Forms(give_N).Controls(Button1).ForeColor = vbRed
Forms(give_N).Controls(Button1).BackColor = vbBlack
End If
End Function
'==============================================='
If Me.TT = "استقالة" then
Pause_ForeColor1
End IF
If Me.pp = "اصدار" then
Pause_ForeColor2
End IF
'=====================================================(OR أو )
'=================================================(اذا كان طلبك كليهما )
Dim Number1 As Longe
Dim Number2 As Longe
If Me.TT = "استقالة" then
Number1 =1
else
Number1 =0
End IF
If Me.pp = "اصدار" then
Number2 =1
else
Number2 =0
End IF
'=====================================================(الشرط)
IF Number1 + Number2 = 2 Then
Pause_ForeColor1
Pause_ForeColor2
End Sub
لم اجرب ولكن اعتقد ان هو طلبك
On Error Resume Next
' تبديل الألوان لحقل TT
If [TT] = "استقالة" Then
If [TT].ForeColor = vbRed Then
[TT].ForeColor = vbBlack
[TT].BackColor = vbBlack
Else
[TT].ForeColor = vbRed
[TT].BackColor = vbBlack
End If
Else
[TT].ForeColor = vbBlack
[TT].BackColor = vbWhite
End If
' تبديل الألوان لحقل pp
If [pp] = "قيمة معينة" Then ' قم بتغيير "قيمة معينة" إلى القيمة التي تريد
If [pp].ForeColor = vbRed Then
[pp].ForeColor = vbBlack
[pp].BackColor = vbBlack
Else
[pp].ForeColor = vbRed
[pp].BackColor = vbBlack
End If
Else
[pp].ForeColor = vbBlack
[pp].BackColor = vbWhite
End If
اشكرك ضبط معي هذا الكود
خطأ اعتقد انك مبتدأ .. امزح
يستعمل دالة Sleep للإيقاف المؤقت ( تأخير التنفيذ ) 1000 ثم ينفذ الكود بدالة عند بداية التشغيل او عند حدث الحالي ومن غير استخدام حدث الوقت
ملاحظة :
تعامل مع حدث الوقت عند الاغلاق ؟! إضافة زر الاغلاق لجعل حدث الوقت = 0 بالكود ثم اغلاق
هذا طلبك بطريقة الصحيحة
حتى لا يعطب او يتلف
لان حدث الوقت يعمل في الخلفية ؟! وانت تغلق البرنامج ؟!!!
اعتقد انه صحيح
اذا ترغب بتنفيذ الكود ارفق مرفق