استفاده از رستور سلکت کیس وی بی دات نت؟؟؟؟؟؟؟؟؟؟؟؟؟

[farhad85]

با سلام
من 10تا تکس باکس دارم که با دستورسلکت کیس میحوام اگر کاربر یکی از تکس باکسها رو خالی گذاشت یه پیغام بده که مثلا تکس باکس1 حتما باید پربشه؟ همین طور به ترتیب 2و3و... ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟:گریه::گریه::گریه:

[sagggad]

سلام فرهادجان.
این سورس همون چیزیه که میخوای:
لینک دانلود:114145
مشکلی داشتی من درخدمتم
موفق باشید:لبخندساده:

[farhad85]

بازش نکرد میگه ایراد از نسخه های ندم افزاره من وی بی2010 رو دارم مال تو چنده؟؟؟؟؟؟؟؟/

[sagggad]

2012 هستش.
بیا داداش این کدهاش فقط باید مرتبش کنی.چون تو سایت این مشکل هست :


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim co As Control
For Each co In Me.Controls
If TypeOf co Is TextBox And co.Text = "" Then
Select Case co.TabIndex
"Case "0
MsgBox("ورود فیلد1 اجباری است")
Exit Sub
"Case "1
MsgBox("ورود فیلد2 اجباری است")
Exit Sub
"Case "2
Exit Sub
MsgBox ("ورود فیلد3 اجباری است")
Exit Sub
"Case "3
MsgBox("ورود فیلد4 اجباری است")
Exit Sub
"Case "4
MsgBox("ورود فیلد5 اجباری است")
Exit Sub
"Case "5
MsgBox("ورود فیلد6 اجباری است")
Exit Sub
"Case "6
MsgBox("ورود فیلد7 اجباری است")
Exit Sub
" Case "7
MsgBox ("ورود فیلد8 اجباری است")
Exit Sub
"Case "8
MsgBox("ورود فیلد9 اجباری است")
Exit Sub
"Case "9
MsgBox("ورود فیلد10 اجباری است")
Exit Sub
End Select
End If
Next

End Sub

[Hossis]

باید دستور این طور نوشته بشه
:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim co As Control
For Each co In Me.Controls
If TypeOf co Is TextBox And co.Text = "" Then
msgbox "err" & co.name
End If
Next

[sagggad]

باید دستور این طور نوشته بشه
:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim co As Control
For Each co In Me.Controls
If TypeOf co Is TextBox And co.Text = "" Then
msgbox "err" & co.name
End If
Next

نه داداش این روش رو من امتحان کرده بودم.اما اگر کار زیر رو بکنی عمل نمیکنه:
اول همه فیلد ها رو پرکن،بعد روی مثلا دکمه محاسبه کلیک کن.تا اینجا درست عمل میکنه.حالا از پایین یکی ازفیلد ها رو خالی کن.تا اینجا هم درست عمل میکنه.
حالا فیلد بالایی رو پاک کن و فیلد پایینی رو دوباره پر کن.اونوقته که برنامه عمل نمیکنه.

[sagggad]

اما این اشکال تو کد من نیست.مرتبش هم کردم.الان فقط آماده استفاده است!

[sagggad]

این کد هم کار همون رو میکنه.البته کوتاه شده و راحت تر

Dim co As Control
Dim i As Integer
For Each co In Me.Controls
If TypeOf co Is TextBox And co.Text = "" Then
For i = 0 To co.TabIndex
Select Case co.TabIndex
Case i
MsgBox("ورود فیلد" & i & "اجباری است")
Exit Sub
End Select
Next
End If
Next
این هم سورسش:
لینک دانلود:114161