Страница: 1 |
Hi All! Подскажите, плз, кто знает, как в VBNET сделать так, чтобы в TextBox можно было вводить только числа. IsNumeric пробовал, но дробная часть может вводиться только с разделителем запятой, хотелось бы по человечески, чтобы разделителем была бы точка. В моих региональных настройках винды разделитель десятичных точка. В VB6 пуляет все правильно так: Private Function ValidateNumeric(strText As String) _ В VBNETе разделитель не ругается только на запятую? Как быть?
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 Страница: 1 |
Вопрос: Только числа TextBox в VBNET
Добавлено: 04.02.03 22:08
Автор вопроса: kmk
As Boolean
ValidateNumeric = CBool(strText = "" _
Or strText = "-" _
Or strText = "-." _
Or strText = "." _
Or IsNumeric(strText))
End Function
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
Chill
ICQ: 554200
Вопросов: 101
Ответов: 343
Профиль | | #1
Добавлено: 05.02.03 00:43
Номер ответа: 2
Автор ответа:
kmk
Вопросов: 16
Ответов: 18
Профиль | | #2
Добавлено: 06.02.03 12:49
Chill! Болбшое спасибо!