Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Проверка на ввод текста Добавлено: 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
  1. Private Sub txtUserID_KeyPress(KeyAscii As Integer)
  2.     If Not ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then KeyAscii = 0
  3. 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 элементу массива т.е. можно конечно написать что нибудь наподобие:
-----------------------------------------------
  1. dim myArray(100), myString as String
  2.   i = 0
  3.   do
  4.      i = i + 1
  5.      myArray(i) = mid(myString,i,1)
  6.  
  7.   loop

----------------------------------------------

простите за карявость кода и нубство (ибо я нуб в VB)

тобишь, другими словами мне нужен аналог myString(i) = x из паскаля в VB

Ответить

Страница: 1 |

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



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