سؤال درباره ساخت تكست باكس عددي

سلام.من تو وب فرمم چند تا textbox دارم كه تو يكي از اونها ميخوام فقط عدد تايپ بشه.يعني اگه بقيه كليدها رو زديم هيچي تايپ نكنه و پيغام خطا بده.براي اينكار بايد چي كار كنم؟ ( C# ) ممنون

جاوا اسکریپت فقط .

در خاصيت KeyPress مربوط به تكست باكس اين كد را بنويس

کد:

---


IfChar.IsNumber(e.KeyChar) = FalseThen
e.Handled = True
EndIf
If e.KeyChar = (vbBack) Then
e.Handled = False
EndIf
If e.KeyChar = (vbTab) Then
e.Handled = False
EndIf


---

و اگر خواستي پيغام بگه كنار دستور e.Handled=True يك MessageBox قرار بده
در ضمن اگر خواستي عددهاي داخل تكست باكس داراي كاما باشه مثل 1,200,456 از كد زير در خاصيت TextChanged تكست باكس استفاده كن

کد:

---


Dim str AsString
If Textbox1.Text.Length > 3 Then
SendKeys.Send("{end}")
str = Format$(Textbox1.Text.Replace(",", ""))
Textbox1.Text = Format$(Val(str), "###,###,###")
EndIf


---

سلام
من اينو پيدا كردم.

کد:

---

<scripttype="text/javascript"language="javascript">
function
AllowOnlyNumbers() {

return

 

((event.keyCode >= 47 && (event.keyCode <= 57)) ||

(event.keyCode = 13);

</script>

---

اينم تكست باكس.

کد:

---

<asp:TextBoxID="size"runat="server"style="z-index: 107; right: 67px; position: absolute; top: 150px"Width="132px"

OnKeyPress="javascript:return AllowOnlyNumbers();"

></asp:TextBox>

---

تقريبا همه جا همين رويداد onkeypress رو آورده.ولي من تو رويدادهاي تكست باكس اينو نمي بينم.خطا هم مي گيره.

نقل قول:

---

نوشته شده توسط MTPROG [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

در خاصيت KeyPress مربوط به تكست باكس اين كد را بنويس

کد:

---

IfChar.IsNumber(e.KeyChar) = FalseThen
e.Handled = True
EndIf
If e.KeyChar = (vbBack) Then
e.Handled = False
EndIf
If e.KeyChar = (vbTab) Then
e.Handled = False
EndIf

---

و اگر خواستي پيغام بگه كنار دستور e.Handled=True يك MessageBox قرار بده
در ضمن اگر خواستي عددهاي داخل تكست باكس داراي كاما باشه مثل 1,200,456 از كد زير در خاصيت TextChanged تكست باكس استفاده كن

کد:

---

Dim str AsString
If Textbox1.Text.Length > 3 Then
SendKeys.Send("{end}")
str = Format$(Textbox1.Text.Replace(",", ""))
Textbox1.Text = Format$(Val(str), "###,###,###")
EndIf

---

---

hamantor ke dosteman goftand shoma mitonid moshkeleton hal konid vali be nazare man ssadetarin rah ine ke az masktextbox estefadeh konid va khasiate set maskesho tanzim konid be add
inam ye raheshe