انتخاب Textbox

[allaf2]

سلام خدمت اساتید.

من 5 تا text box دارم که میخوام اگر هر کدومشون خالی نبود به صورت اتوماتیک textbox خالی ِ بعدی اتخاب بشه .
لطفا راهنمائی کنید.
ممنونم





Private Sub wsAccept_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
'================================================= ===========
wsAccept.GetData myDat, vbString

If Not victim1.Text = vbNullString Then
victim2.Text = myDat
End If
victim1.Text = myDat
Winsock2.SendData checker1(BotID, victim1.Text)
status1.Caption = "wait"
Pause (2)
'
If status1.Caption = "wait" Then
status1.Caption = "wow"
Else
End If
victim1.Text = ""
wsAccept.SendData status1
Exit Sub


If Not victim2.Text = vbNullString Then
victim3.Text = myDat
End If
victim2.Text = myDat
Winsock2.SendData checker1(BotID, victim2.Text)
status2.Caption = "wait"
Pause (2)
'
If status2.Caption = "wait" Then
status2.Caption = "wow"
Else
End If
victim2.Text = ""
wsAccept.SendData status2
Exit Sub

If Not victim3.Text = vbNullString Then
victim1.Text = myDat
End If
victim3.Text = myDat
Winsock2.SendData checker1(BotID, victim3.Text)
status3.Caption = "wait"
Pause (2)
'
If status3.Caption = "wait" Then
status3.Caption = "wow"
Else
End If
victim3.Text = ""
wsAccept.SendData status3
Exit Sub

End Sub

[lordarma]

راه های زیادی وجود دارد،
می توانید از خاصیت تکست چینج (Text Change) استفاده نمایید،
همچنین می توانید از یک تایمر کمک بگیرید،
فقط به این توجه کنید که اگر تکس باکس خالی نباشد پس هر چیز دیگری می تواند باشد، در این صورت با وارد کردن اولین حرف دچار مشکل خواهید شد...
لطفا بگویید که در چه موردی می خواهید از این کد استفاده کنید تا ما شما را بیشتر راهنمایی نماییم.
با تشکر از شما


پی نوشت: به طور کلی برای نوشتن شرط های این کد 25 شرط لازم است (اگر با توجه به درس آمار درست حساب کرده باشم و همچنین اگر درست متوجه سوال شده باشم.)

[allaf2]

ممنون از اينكه دلسوزانه جواب دادين .:قلب:
من يك برنامه اي دارم كه از طريق يك webpage دستوري رو به برنامه تحت ويندوز ارسال ميكنه.

اين برنامه تحت ويندوز در لحظه يك دريافت رو قبول ميكنه و انجام ميده.
اگر در لحظه درخواستهاي زيادي به برنامه ارسال بشه قاطي ميكنه. يعني هنوز كار اولي رو به اتمام نرسونده ميره سراغ بعدي. يا به عبارتي چون يك textbox داره و اون هم به وسيله درخواست قبلي پرشده،درخواست جديد جايگزين درخواست قبلي ميشه.
و درخواست نا تموم ميمونه.

حالا من ميخوام كاري كنم كه اين درخواست ها رو هم نيفته. و اگر برنامه در TEXTBOX اول مشغول كار بود، درخواست جديد به اولين TEXTBOX بعدي كه خالي هست منتقل بشه.

ممنون

[M.T.P]

این کد تمام Textbox های روی فرم رو جستجو میکنه و اگه هرکدوم متنی داخلش نبود روش فوکوس میکنه


Function Chech_Empty_TextBox()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
If ctl.Text = "" Then
ctl.SetFocus
Exit Function
End If
End If
Next
End Function

[lordarma]

ممنون از اينكه دلسوزانه جواب دادين .:قلب:
من يك برنامه اي دارم كه از طريق يك webpage دستوري رو به برنامه تحت ويندوز ارسال ميكنه.

اين برنامه تحت ويندوز در لحظه يك دريافت رو قبول ميكنه و انجام ميده.
اگر در لحظه درخواستهاي زيادي به برنامه ارسال بشه قاطي ميكنه. يعني هنوز كار اولي رو به اتمام نرسونده ميره سراغ بعدي. يا به عبارتي چون يك textbox داره و اون هم به وسيله درخواست قبلي پرشده،درخواست جديد جايگزين درخواست قبلي ميشه.
و درخواست نا تموم ميمونه.

حالا من ميخوام كاري كنم كه اين درخواست ها رو هم نيفته. و اگر برنامه در TEXTBOX اول مشغول كار بود، درخواست جديد به اولين TEXTBOX بعدي كه خالي هست منتقل بشه.

ممنون

به نظر من فعال بودن یا نبودن درخواست (پر یا خالی بودن تکست باکس) را با 5 متغییر بولین بررسی کنید،
اگر فعال بود (True) که دستورات را اجرا کنید و اگر غیر فعال بود (False) به دستورات بعدی برود.

[allaf2]

والا من خیلی مبتدی هستم.
میشه یه مثال بزنین ؟:خجالت:

[lordarma]

این یک مثال برای اولیت تکست باکس:


Dim BL As Boolean
If Text1.Text <> "" Then
BL = False
Else
BL = True
End If

حالا هرجایی خواستید می توانید از متغیر BL استفاده کنید،
برای سایر تکس باکس ها هم از این روش استفاده کنید و در نهایت با یک شرط تمامی متغییر ها را بررسی کنید.