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

if expr1 or expr2 or expr3 

do_something

end if

السلام عليكم

استاذي

 ahmed_youssef

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

Private Sub Text_Change()

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

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

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

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

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

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

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

أو هكذا:

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