Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Только числа TextBox в VBNET Добавлено: 04.02.03 22:08  

Автор вопроса:  kmk

Hi All!

Подскажите, плз, кто знает, как в VBNET сделать так, чтобы в  TextBox можно было вводить только числа. IsNumeric пробовал, но дробная часть может вводиться только с разделителем запятой, хотелось бы по человечески, чтобы разделителем была бы точка. В моих региональных настройках винды разделитель десятичных точка. В VB6 пуляет все правильно так:

Private Function ValidateNumeric(strText As String) _
    As Boolean
ValidateNumeric = CBool(strText = "" _
    Or strText = "-" _
    Or strText = "-." _
    Or strText = "." _
    Or IsNumeric(strText))
End Function

В VBNETе разделитель не ругается только  на запятую? Как быть?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Chill



ICQ: 554200 

Вопросов: 101
Ответов: 343
 Профиль | | #1 Добавлено: 05.02.03 00:43

Private Sub TextBox1_KeyPress(KeyAscii As Integer)

'эти строки не позволяют вводить буквы

Select Case KeyAscii

Case 0, 8, 48 To 57

Case Else

KeyAscii = 0

Beep

End Select

End Sub

Ответить

Номер ответа: 2
Автор ответа:
 kmk



Вопросов: 16
Ответов: 18
 Профиль | | #2 Добавлено: 06.02.03 12:49
Chill! Болбшое спасибо!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам