الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

جملة شرطية ناقصة

مغلق
بدأه فهد الدوسري في 18 يوليو 2002 · 6 رد · 479 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هذه الجملة أريد التعديل عليها

إذا تطابقة الجملة في المربع الأول مع الثاني يصبح المربع الأول باللون الأحمر

أنا أريد إذا تطابقة الجملة أو ((جزء منها)) يصبح باللون الأحمر

مثال

المربع text2 فيه الجملة هذه ( مرحباً بكم )

المربع text3 فيه الجملة هذه ( مرحباً )

أريد أن تكون الكلمة المشتركة في المربعين وهي (مرحباً ) باللون الأحمر طبعاً في المربع text2 فقط

وهذه هي الجملة التي قمت بها وأريد التعديل عليها

وضعتها في حدث عند الخروج من المربع المسمى text3

Private Sub text3_Exit(Cancel As Integer)
If [text3] = [text2] Then
'إذا كانت الجملة التي في المربع رقم 3 مطابقة للجملة التي في المربع رقم 2 إذاً
[text2].ForeColor = 255
'يكون لون خط المربع رقم 2 هو اللون الأحمر
Else
'إذا لم يتحقق الشرط السابق
[text2].ForeColor = 0
'يكون لون خط المربع رقم 2 هو اللون الأسود
End If
End Sub

وللجميع خالص تحياتي (f) (f)

#2 
Private Sub text3_Exit(Cancel As Integer)
If TRIM(ME.TEXT3) = TRIM(ME.TEXT2) Then
'إذا كانت الجملة التي في المربع رقم 3 مطابقة للجملة التي في المربع رقم 2 إذاً
ME.TEXT2.ForeColor = 255
'يكون لون خط المربع رقم 2 هو اللون الأحمر
Else
'إذا لم يتحقق الشرط السابق
ME.TEXT2.ForeColor = 0
'يكون لون خط المربع رقم 2 هو اللون الأسود
End If
End Sub

جرب و أخبرني ، فلم أجربه ‍‍‍‍!!

==============

مع تحياتي

محمد طاهر

أوفيســـــــــــــــــــــنا

Banners2.gif

دورة تدريبية فى القراءة السريعة

===============

#3

الغالي :محمد طاهر وفقه الله

أولاً أتقدم لك بجزيل الشكر والعرفان على تفاعلك مع أي موضوع يطرح في المنتدى.

أما بالنسبة للطريقة فهي تعطي نفس نتيجة الكود الذي وضعته أنا يعني لا بد من تساوي الجملة كاملة أما إذا كان جزء منها فلا يعمل الكود .

وشكرا لك

#4

إن كان المقصود هو تغيير لون كلمة واحدة من جملة بالكود

فلا أعلم حل لذلك حاليا

أما ان كان المقصود تغيير لون الجملة فى حالة و جود كلمة مثل الموجودة فى المربع الأخر فذلك ممكن باضافة Like و *

أما ان كان الاول فلا أعلم :( :(

أيهما هو المطلوب ؟؟

==============

مع تحياتي

محمد طاهر

أوفيســـــــــــــــــــــنا

Banners2.gif

دورة تدريبية فى القراءة السريعة

===============

#5

المقصود هو الأول يا أستاذ محمد

ولكن برضه نريد طريقة للثاني للفائدة أعني Like

وجزاك الله خيرا

#6 
Private Sub Text2_AfterUpdate()
If Trim(Me.Text2) Like "*" & Trim(Me.Text3) & "*" Then
Me.Text3.ForeColor = 255
Me.Text2.ForeColor = 0
ElseIf Trim(Me.Text3) Like "*" & Trim(Me.Text2) & "*" Then
Me.Text3.ForeColor = 0
Me.Text2.ForeColor = 255
Else
Me.Text3.ForeColor = 0
Me.Text2.ForeColor = 0
End If

End Sub


Private Sub Text3_AfterUpdate()
If Trim(Me.Text2) Like "*" & Trim(Me.Text3) & "*" Then
Me.Text3.ForeColor = 255
Me.Text2.ForeColor = 0
ElseIf Trim(Me.Text3) Like "*" & Trim(Me.Text2) & "*" Then
Me.Text3.ForeColor = 0
Me.Text2.ForeColor = 255
Else
Me.Text3.ForeColor = 0
Me.Text2.ForeColor = 0
End If
End Sub

==============

مع تحياتي

محمد طاهر

أوفيســـــــــــــــــــــنا

Banners2.gif

دورة تدريبية فى القراءة السريعة

===============

#7

بارك الله فيك

لقد طلبت منك الطريقة ثم جلست أحاول بنفسي وعندما وجدت الحل وأتيت لأضعه هنا وجدتك قد سبقتني به لذلك سوف أضعه هنا رغم أنك ذكرته ولكن بطريقة مختلفة بعض الشيئ عنك

Private Sub text3_Exit(Cancel As Integer)
If [text2] Like "*" & [text3] & "*" Then
'إذا كانت الجملة التي في المربع رقم 3 مطابقة للجملة التي في المربع رقم 2 أو جزءاً منها إذاً
Me.text2.ForeColor = 255
'يكون لون خط المربع رقم 2 هو اللون الأحمر
Else
'إذا لم يتحقق الشرط السابق
Me.text2.ForeColor = 0
'يكون لون خط المربع رقم 2 هو اللون الأسود
End If
End Sub

جزاك الله ألف خير

هذا الموضوع مغلق.

مواضيع مشابهة