PDA

View Full Version : شرط در lostfocus و هنگ کردن برنامه



farzinf
چهارشنبه 27 بهمن 1389, 16:58 عصر
سلام دوستان من در برنامه از چنتا تکس باکس استفاده کردم که در lostfocus تکس شرط هامو نوشتم و گفتم اگه شرط برقرار نشه فوکاس رو برگردون به همین تکس باکس آفرین به خودم :تشویق:
حالا مشکل کجاست ؟
مشکل اینجای که وقتی دوتا تکس باکس پشت سرم هم (یعنی تب ایندکس شون پشت سره هم باشه ) باشند و هر دو شرط داشته باشند (اینم یعنی فوکاس ازشون خارج نشه تا شرطشون درست نباشه) و حالا بر حسب اتفاق تکس باکس دوم هم اگه خالی باشه شرطش برقرار نمی شه

خوب حالا اگه ما توی تکس باکس اول باشیم و داخلش چیزی بنوسیم که شرط برقرار نشه و تب را بزنیم که بریم توی یکس باکس دوم که اونم چون شرطش برقرار نیست چون خالیه بین تکس باکس اول و دوم جنگ میشه سر فوکاس :عصبانی++: و برنامه هم عصبانی می شه و برنامه هم عصبانی میشه و فوکاس رو بههیچ کس نمی ده در نتیجه هیچ کاری نمی شه کرد جز اینتراپته دستی (ریست سخت افزاری)

حالا لطفا اگه کسی چیزی به ذهنش می رسه لطف کنه ما رو هم راهنمایی کنه آفرین به اون :متعجب:

با تشکر

mostafa-zare
چهارشنبه 27 بهمن 1389, 18:18 عصر
سلام
آقا این طوری که شما گفتی فکر نمی کنم کسی بفهمه و بتونه کمکت کنه.
کدت رو بذار.

vbhamed
چهارشنبه 27 بهمن 1389, 20:36 عصر
سلام

براي اين كار خود وي بي امكاني رو پيش بيني كرده
كد زير رو تست كنيد


Private Sub Text1_Validate(Cancel As Boolean)

If Text1 = "" Then Cancel = True

End Sub

Private Sub Text2_Validate(Cancel As Boolean)

If Text2 = "" Then Cancel = True

End Sub

farzinf
چهارشنبه 27 بهمن 1389, 22:24 عصر
سلام

براي اين كار خود وي بي امكاني رو پيش بيني كرده
كد زير رو تست كنيد


Private Sub Text1_Validate(Cancel As Boolean)

If Text1 = "" Then Cancel = True

End Sub

Private Sub Text2_Validate(Cancel As Boolean)

If Text2 = "" Then Cancel = True

End Sub

حامد جان مشکلمو حل کردی تشکر