Soiraian Ответов: 3

код проверки в vb.net

привет
мне нужен код проверки для текстового поля в vb. net2010
просто я хочу принять символ и не принимать его за интервал

Shahin Khorshidnia

Пожалуйста, укажите, что вы работаете над WinForm или ASP.Net? или ....?

Нажав на кнопку улучшить вопрос и пометить его.

3 Ответов

Рейтинг:
27

Abhinav S

Есть несколько способов сделать это.
1) Вы можете обрабатывать события keydown / keypress текстового поля.
2) Вы можете использовать маскированное / пользовательское текстовое поле (пример - VB.NET проверяющий элемент управления текстовое поле [^]).

Maciej Los

Отличный ответ! Мои 5!

Abhinav S

Спасибо.

Shahin Khorshidnia

Хороший ответ.

Abhinav S

Спасибо.

Рейтинг:
12

Prasad_Kulkarni

Попробовать это:

void CharacterValidation(object sender, KeyPressEventArgs e)
       {
           if ((e.KeyChar >= 65 && e.KeyChar <= 90) || (e.KeyChar >= 97 && e.KeyChar <= 122) || e.KeyChar == 32 || e.KeyChar == 8)
           {
               e.Handled = false;
           }
           else
           {
               e.Handled = true;
           }
       }


Вот еще один:

Public Class MainForm

    Dim charactersAllowed As String = " abcdefghijklmnopqrstuvwxyz"

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim theText As String = TextBox1.Text
        Dim Letter As String
        Dim SelectionIndex As Integer = TextBox1.SelectionStart
        Dim Change As Integer

        For x As Integer = 0 To TextBox1.Text.Length - 1
            Letter = TextBox1.Text.Substring(x, 1)
            If charactersAllowed.Contains(Letter) = False Then
                theText = theText.Replace(Letter, String.Empty)
                Change = 1
            End If
        Next

        TextBox1.Text = theText
        TextBox1.Select(SelectionIndex - Change, 0)
    End Sub

End Class

Shahin Khorshidnia

Или вместо символов: если буква.прописная буква.строчные() Затем... (Мой голос 4)

Prasad_Kulkarni

Спасибо Шахин

Abhinav S

Правильный. 5.

Prasad_Kulkarni

Спасибо Тебе, Абхинав.

Рейтинг:
0

PingLocalHost 

Private Sub txtName_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtItemCode.KeyPress
        If Asc(e.KeyChar) = Keys.Space Then
            MessageBox.Show("Space not acceptable")
            Exit Sub
        Else
            MessageBox.Show("GOOD")
        End If
    End Sub