دستور شرط

[hr0694]

سلام
این کد رو من چطوری اصلاح کنم منظورم اینه وقتی من ابتدا در تکست2 مینویسم 1 و بعد در تکست1 مینویسم 1 برنامه کار میکنه اما وقتی ابتدا در تکست1 مینویسم 1 بعد در تکست2 مینویسم 1 برنامه کار نمیکنه چکار کنم حالت دوم هم کار کنه کار کنه
و من جای تکست1 و تکست2 را هم در این کد نویسی عوض کردم ولی باز حالت بالا بود
Private Sub Text1_Change()
If Text1 = "1" And Text2 = "1" Then Text3 = "1"
End Sub

[MohammadGh2011]

سلام
شما ميتونيد يک تايمر به فورمتون اضافه کنيد و کد خودتون رو تو اون تايمر بگزاريد و Interval اون تايمر رو هم از قسمت Properties روي 1 تنظيم کنيد.
و يا ميتونيد اگه تايمر دوست نداريد بگزاريد همون کد بالا رو هم (کد خودتان) تو تکست باکس 2 هم کپي کنيد.(+تو تکست باکس اول).
موفق باشيد

[just4froum]

با سلام :

با تایمرم میشه اما من فکر می کنم این راه بهتره سی پی یو هم کمتر استفاده میشه.

Private Sub Text1_Change()
If Text1 = "1" And Text2 = "1" Then Text3 = "1"
End Sub
Private Sub Text2_Change()
If Text1 = "1" And Text2 = "1" Then Text3 = "1"
End Sub

فقط کافیه دوبار از کد خودت برای text1 و text2 استفاده کنی .

موفق باشید .

[MohammadGh2011]

سلام عليکم

just4froum
فقط کافیه دوبار از کد خودت برای text1 و text2 استفاده کنی .
خوب دوست عزيز من تو پست2 مگه غير از اين گفتم؟!(لطفا پست ها رو با دقت و تمام بخونيد)

موفق باشيد

[returnx]

بدیهیست که نباید درست عمل کنه ، همین تکه کد را در رویداد change شی Text2 هم کپی کنید ، مشکلتون حل میشه...

[just4froum]

خوب دوست عزيز من تو پست2 مگه غير از اين گفتم؟!(لطفا پست ها رو با دقت و تمام بخونيد)


حق با شماست .
ببخشید.