چگونگی بردن یک کد از فرم به 1کلاس (یا ماژول)

[mahdyeh]

سلام



PrivateSub txtCode_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCode.KeyPress
IfNot IsNumeric(e.KeyChar) And e.KeyChar <> Convert.ToChar(Keys.Back) And e.KeyChar <> Convert.ToChar(Keys.Delete) Then
e.Handled = True
EndIf
EndSub

این کد باعث میشه که تکست فقط مقدار عددی رو بپذیرد
من کلی تکست توی چندتا فرم دارم که بایست همشون فقط مقدار عددی رو بپذیرن ، نمی خوام برای کی پرس هر کدوم همسن کد رو تکرار کنم خیلی سعی کردم این رو داخل یم ماژول یا کلاسی بنویسم و از هر تکست فقط فراخوانیش کنم ولی نشد

ارور داد که :

'KeyChar' is not a member of 'System.EventArgs'.
منم نوشتم :


Imports System.EventArgs

ولی چیزی تغییر نکرد و نشد
شما میتونید کمکم کنید ؟
مرسی

[anooshiran]

سلام دوست عزيز

به لينك زير سري بزن مسكلت حل خواهد شد.

http://barnamenevis.org/forum/showthread.php?t=174653

[salehbagheri]

اینطوری فکر کنم میشه! (فکر کنم)

خودت امتحان کن!



Public Shared Function IsNumerical(ByVal e As System.Windows.Forms.KeyPressEventArgs) As Boolean
If Not IsNumeric(e.KeyChar) And e.KeyChar <> Convert.ToChar(Keys.Back) And e.KeyChar <> Convert.ToChar(Keys.Delete) Then
Return True
Else
Return False
End If
End Function




Private Sub txtCode_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCode.KeyPress
e.Handled = IsNumerical(e)
End Sub