Контроль вводимой информации в текстовое поле

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

SpeedCuber1
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 12.03.2012 (Пн) 21:26

Контроль вводимой информации в текстовое поле

Сообщение SpeedCuber1 » 26.03.2012 (Пн) 21:46

Подскажите как проверить наличие русских букв в текстовом поле??? то есть мне нужно чтобы вводить можно было только русские буквы, пробелы и точки.

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 26.03.2012 (Пн) 22:34

Мне нравится так:
Код: Выделить всё
Imports System.Text.RegularExpressions

Public Class RegexedTextBox
Inherits TextBox

Private MyPattern As String = "^.*$"
Private MyErrorColor As Color = Color.Red
Private MyNormalColor As Color = Color.White

Public Property Pattern As String
  Get
    Return MyPattern
  End Get
  Set(ByVal value As String)
    MyPattern = value
    Me.BackColor = If(IsValid, NormalColor, ErrorColor)
  End Set
End Property

Public Property ErrorColor As Color
  Get
    Return MyErrorColor
  End Get
  Set(ByVal value As Color)
    MyErrorColor = value
    Me.BackColor = If(IsValid, NormalColor, ErrorColor)
  End Set
End Property

Public Property NormalColor As Color
  Get
    Return MyNormalColor
  End Get
  Set(ByVal value As Color)
    MyNormalColor = value
    Me.BackColor = If(IsValid, NormalColor, ErrorColor)
  End Set
End Property

Public ReadOnly Property IsValid As Boolean
  Get
    Return Regex.IsMatch(Me.Text, Pattern)
  End Get
End Property

Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
  Me.BackColor = If(IsValid, NormalColor, ErrorColor)
  MyBase.OnTextChanged(e)
End Sub

End Class
Поставь Pattern="^[А-ЯЁа-яё\. ]*$".


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12

    TopList