• 0
designerq8

تعديل على كود ( داله if ) ... ارجوا المساعده

سؤال

السلام عليكم

استخدم  داله  if

 

If Text1.Text = "1" Then
Text2.Text = "Thanks"

 

End If

 

حيث ان تم ادخال رقم  1 في حقل Text1

تظهر نتيجه حقل Text2

Thanks

 

.....

المطلوب ان تم ادخال رقم 1 او 2 او 3  في حقل Text1

 

تظهر نتيجه حقل Text2

Thanks

 

ولكم كل الشكر

تم تعديل بواسطه designerq8
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

if expr1 or expr2 or expr3 

do_something

end if

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

استاذي

 ahmed_youssef

ارجوا تعديل على الكود حيث اني نقلت الخطوات كما ذكرتم ولم يتم المطلوب ,, يبدو اني لم اضع الكود بصوره صحيحه يرجي التعدل على نفس الكود

 

Private Sub Text_Change()

If Text1.Text = "1" Or Text1.Text = "2" Then
text2.Text = "Thanks"
End If

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

 
هل ممكن تحقيق ذلك مع داله  if ?
وكيف جزاكم الله خير
 
 

تم تعديل بواسطه designerq8
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

نعم يمكن عمل ذلك بالطريقتين أدناه :

If Text1.Text = "1" Then

     Text2.Text = "Thanks"

elseif Text1.Text = "2" Then

     Text2.Text = "Thanks"

elseif Text1.Text = "3" Then

     Text2.Text = "Thanks"

end if

 

أو بطريقة أخرى اراها اسهل وهي :

select case Text1.Text

     case 1,2,3

          Text2.Text = "Thanks"

    case else

          Text2.Text = "Hello"

end select

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الف شكر لك اخي الكريم و زادك الله علم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ويمكن ضمها أيضآ فى جملة  If  واحدة بطريقة أخرى اراها اسهل  هكذا:

If Text1.Text = "1" Or Text1.Text = "2" Or Text1.Text = "3" Then Text2.Text = "Thanks"

أو هكذا:

X = Text1.TextIf X = "1" Or X = "2" Or X = "3" Then Text2.Text = "Thanks


 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .