Text box عددی

[sabair]

چگونه یک text box را به صورتی عددی تنظیم کنیم ،که اطلاعاتی را با فرمت ععد نشان دهد.
باتشکر

[ehsan_zanganeh]

چگونه یک text box را به صورتی عددی تنظیم کنیم ،که اطلاعاتی را با فرمت ععد نشان دهد.
باتشکر

دوست عزیز از نوع MaskTextBox ،توی جعبه ToolBox استفاده کن و به آن Mask مورد نظر خودتو بده:کف:

[saeed_rezaei]

سلام.
با جستجو زود تر به نتیجه می رسید.


Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If (Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 59) And Asc(e.KeyChar) <> 8 Then e.Handled = True
End Sub

[zarrin_306]

Private Sub TextBox1_KeyPress1(ByVal eventsender As Object, ByVal EventArgs As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim keyascii As Short = Asc(EventArgs.KeyChar)
keyascii = IIf(IsNumeric(Chr(keyascii)) Or (InStr(TextBox1.Text, ".") = 0 And _
keyascii = 46) Or keyascii = 8, keyascii, 0)
If keyascii = 0 Then
EventArgs.Handled = True
End If
End Sub

[Business Analyst]

if not isnumeric(textbox1.text) then
textbox1.text=""
in key down event

[غلامرضا شریفی]

سلام
PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Microsoft.VisualBasic.Chr(8) Then
e.Handled = False
ExitSub
EndIf
If Microsoft.VisualBasic.IsNumeric(e.KeyChar) = FalseThen
e.Handled = True
ExitSub
EndIf
If e.KeyChar = Microsoft.VisualBasic.Chr(13) Then
e.Handled = True
EndIf
EndSub