VBNet - Форум - Проверка на ввод текста

Вопрос: Проверка на ввод текста Добавлено: 13.06.02 14:55

Автор вопроса: Scout | Web-сайт: atp36forever.topcities.com

Ребятки помогите, нужно при вводе текста в текстовое поле проверять его на правильность ввода, то есть текст должен быть:
-написан только латинскими символами (не по русски)
-не начинаться с цифр
Парюсь над этим же неделю, может кто подскажет?

Ответить

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

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

User Unknown

Вечный Юзер!

ICQ: uu@jabber.cz

Вопросов: 120
Ответов: 3302

Профиль | | #1

Добавлено: 13.06.02 15:04

Латинские не латинские проверяй по ASCII.

А ввод только чисел есть на "улицах".

http://www.vbstreets.ru/download.asp?id=382

Ответить

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

Scout

Вопросов: 2
Ответов: 3

Web-сайт: atp36forever.topcities.com
Профиль | | #2

Добавлено: 13.06.02 15:11

А как проверить по ASCII

А тот файл дает вводить только цифры, а мне надо чтобы не начинался с цифры

Ответить

Номер ответа: 3
Автор ответа:

Alexis

Вопросов: 12
Ответов: 12

Профиль | | #3

Добавлено: 13.06.02 15:48

На счет чисел, можно проверить так:

Private Sub Text1_Change()

If Text1.Text Is Not Numeric Then

MsgBox "Ввод чисел запрещен."

End if

End Sub

Ответить

Номер ответа: 4
Автор ответа:

Alexis

Вопросов: 12
Ответов: 12

Профиль | | #4

Добавлено: 13.06.02 15:50

в предыдущем ответе Not нужно убрать, а то получится, что он не будет вводить текст...

Private Sub Text1_Change()

If Text1.Text Is Numeric Then

...............

End Sub

Ответить

Номер ответа: 5
Автор ответа:

SAVok

ICQ: 155153916

Вопросов: 2
Ответов: 126

Профиль | | #5

Добавлено: 13.06.02 17:19

Так для ввода с клавиатуры:

Private Sub txtText_KeyPress(KeyAscii As Integer)
    If (Len(txtText.Text) = 0 And KeyAscii > 47 And KeyAscii < 58) Or KeyAscii < 97 Or KeyAscii > 122 Then
        KeyAscii = 0
    End If
End Sub

Ответить

Номер ответа: 6
Автор ответа:

Павел

Администратор

ICQ: 326066673

Вопросов: 368
Ответов: 5968

Web-сайт: www.vbnet.ru
Профиль | | #6

Добавлено: 17.06.02 17:49

Проверку делай в обработчике события Validate или Change.

Ответить

Номер ответа: 7 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #7	Добавлено: 18.11.09 23:57
	Private Sub txtUserID_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then KeyAscii = 0 End Sub Отредактируй немного Ответить

Номер ответа: 8 Автор ответа: gor Вопросов: 0 Ответов: 1	Профиль \| \| #8	Добавлено: 20.04.11 23:55
	народ подскажите плиз, это конечно маленько не по теме, но тоже соотносится (для меня) к контролю ввода, беда в следующем, в паскале при обращении к переменной типа String можно обращаться следующим образом myString (i) где i № символа в строке т.е. я могу написать выражение x = myString(i)(помещаем в переменную х символ из строки) или myString(i) = x (помещаем в строку под номером i переменную х) ; В VB чтобы выудить нужный символ из строки приходится писать: x = Mid(myString, i, 1) -аналог x = myString(i), а вот чтобы обратно загнать нужный символ в строку под номером i придумать ничего не могу, кроме как присваивать каждый элемент переменной String элементу массива т.е. можно конечно написать что нибудь наподобие: ----------------------------------------------- dim myArray(100), myString as String i = 0 do i = i + 1 myArray(i) = mid(myString,i,1) loop ---------------------------------------------- простите за карявость кода и нубство (ибо я нуб в VB) тобишь, другими словами мне нужен аналог myString(i) = x из паскаля в VB Ответить

Страница: 1 |