Printable View
سلام
من توي vb.net يك فيلد عددي دارم. اگه كاربر هر كاراكتري بجز عدد وارد كنه توي يك msgbox بهش اخطار ميده. اينارو توي رويداد keypress نوشتم. حالا مشكلم اينه كه وقتي كاربر مثلا حرف وارد ميكنه بعد از اخطار اون حرف توي textbox ميمونه ولي من ميخوام اون حرف پاك شه
سلام
کدتان چطور نوشته شده ؟؟؟؟
یک مشخصه Handles دارید که عضو پارامتر e به شما پاس داده شده، ان را باید True کنید.
كدم اينه:
ميشه اون قطعه كد را كامل برام بنويسيد؟کد:Private Sub txt_stockcode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_stockcode.KeyPress
If Asc(e.KeyChar) = Keys.Enter Then
txt_Stockname.Text = ""
Dim sqlstr As String = "select SC04004 from SC04B400 where SC04001='" & txt_stockcode.Text & "' and SC04003='ARB' "
Try
da = New SqlDataAdapter(sqlstr, con)
ds.Clear()
da.Fill(ds, "stockN")
txt_Stockname.Text = ds.Tables("stockN").Rows(0).Item("SC04004")
Catch
Dim Answer As MsgBoxResult = MsgBox(".كالايي با اين كد در انبار موجود نيست ", MsgBoxStyle.OkOnly, "Warning")
End Try
txt_whcode.Focus()
Else
If (CType(Asc(e.KeyChar), Integer) > 57 Or CType(Asc(e.KeyChar), Integer) < 48) And CType(Asc(e.KeyChar), Integer) <> 8 _
And (CType(Asc(e.KeyChar), Integer) > 90 Or CType(Asc(e.KeyChar), Integer) < 65) And (CType(Asc(e.KeyChar), Integer) > 122 Or CType(Asc(e.KeyChar), Integer) < 97) Then
Dim Answer2 As MsgBoxResult = MsgBox(".لطفا فقط حرف و عدد وارد كنيد ", MsgBoxStyle.OkOnly, "Warning")
e.Handled = True
txt_stockcode.Text = txt_stockcode.Text.Remove(Len(txt_stockcode.Text) - 1, 1)
txt_stockcode.Focus()
End If
End If
End Sub
نقل قول:
خيلي راه داره همونجور كه H2 گفتن
سلام
باید کد خودتو توی روی داد KeyDown بنویسی و بعد از اینکه پیقام داد برای اینکه اون کاراکتر نوشته نشه از کد
E.Handle=True
استفاده بکن این کد باعت میشه تا تا اون کاراکتر به برنامه ارسال نشه .
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
بابای
سلام
من VS مشکل پیدا کرد و پاکش کردم و هنوز نصب مجدد نکردم، در نتیجه نمیتوانم کد خوبی بگذارم.
ولی همان دستور e.Handled = True که دوستان هم اشاره کردند کافیست و دو دستور زیر را اصلاً نمیخواهد!
آن شرط If هم زیاد قشنگ نیست! از توابع آماده عضو Char استفاده کنید، بهتر است.
Char.IsControl
Char.IsNumber
و....
دوست عزيز اگه چند صفحه قبل رو نگاه ميكردي چند تاپيك در اين مورد پيدا ميكني كه كاملا اونجا توضيح داده شده
سلام :
من در بخش vb.net و sql2000 سوال درستم را مطرح کردم
دوست عزيز بهتره اول قوانين انجمن هارو مطالعه ميكردي بعد اقدام به ارسال پست ميفرمودين :13::41:. تا اينجاي كار شما يك سوال رو در چند جاي مختلف مطرح كردي . معمولا انكار نتيجه منفي داره و مسئولان در صورت تكرار پست هاي شمارو پاك ميكنن.نقل قول:
سلام :
با عرض پوزش من قوانین را درس نخواندم