تابع كد اسكي كاراكتر تايپ شده در TextBox

[sharifat]

سلام!
دنبال تابعي ميگردم كه:
كد اسكي كاراكتر تايپ شده در TextBox رو برگردونه
در واقع ميخواهم كاراكتر تايپ در لحظه رو داشته باشم

[ACorvinus]

سلام!
دنبال تابعي ميگردم كه:
كد اسكي كاراكتر تايپ شده در TextBox رو برگردونه
در واقع ميخواهم كاراكتر تايپ در لحظه رو داشته باشم


سلام. این چطوره؟ ----> لینک دانلود: 44927

[sharifat]

دست شما درد نكند اما منظور من اين نيست
"از طرفي فايل شما فقط اجرايي بود و سورس كد رو نداشت"

من مي خوام تو كد نويسي، به كد اسكي كاراكتر تايپ شده دسترسي داشته باشم كه با چند كاراكتر خاص مقايسه اش كنم اگر لازم نبود اجازه تايپ بهش بدم. در واقع از تايپ كاراكتر غير مجاز جلوگيري كنم من يك همچين كدي رو تو VB6 نوشته بودم حالا معادل vb.net رو ميخوام معادل KeyAscii رو ميخوام كد vb6 رو گذاشتم.
از كمك شما ممنون ميشم


Private Sub txttel_KeyPress(KeyAscii As Integer)
Dim str As String
str = "1234567890"
If InStr(str, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

[amin_iman82]

برای دات نت از کد زیر استفاده کنید.
این کد باعث میشه داخل TextBox فقط بشه عدد تایپ کرد. فکر کنم شما همینو نیاز داشتید.

من قبلا این کد رو داخل MSDN که با Visual Studio.net نصب پیدا کردم و کاملا اصولی نوشته شده.



Private nonNumberEntered As Boolean

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
nonNumberEntered = False
If (e.KeyCode < Keys.D0 OrElse e.KeyCode > Keys.D9) And (e.KeyCode < Keys.NumPad0 OrElse e.KeyCode > Keys.NumPad9) Then
If e.KeyCode <> Keys.Back Then nonNumberEntered = True
End If
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If nonNumberEntered = True Then
e.Handled = True
End If
End Sub

[sharifat]

دوست عزيز بسيار عالي بود
دقيقا منظور من هم همين بود
حسابي حالم رو سر جاش آوردي
واقعا متشكرم :لبخند::بوس::لبخندساده: