Как зделать?

[Nazarey]

Подскажите пожайлуста-на участке кода например вот этом
Private Sub Command1_Click()
If Len(пр.Text) = 0 Then
l = MsgBox("Ещё попытка?", vbYesNo, "my programm")
Else
Когда в строке не введены данные-выскакивает MsgBox,а как зделать чтобы при
неверном введении строковых данных выскакивал MsgBox?
Вводиш например Вася и выскакивает MsgBox.
If Len(пр.Text) = Я идиот! Убейте меня, кто-нибудь! Then что должно быть?
Большое спасибо за помощь!
P.S (ПРОШУ ПРОЩЕНИЯ ЗА НЕ КОРЕКТНЫЕ ВОПРОСЫ-УЧУСЬ)

[burik]

Код: Выделить всё


Private Sub Command1_Click()
If pr.Text = "Вася" Then
    MsgBox "Твоё сообщение"
Else
    ...


P. S. Ты бы код в code и /code заключал, а то читать неудобно..

[Хакер]

при неверном введении строковых данных

Сначала тебе, Nazarej, следует дать определение того, что в твоём понимании "неверное введение строковых данных", а что "верное".

И потом, не "зделать" а "сделать. И про теги [cоde] [/сode] тоже не забывай.

[Nazarey]

Прошу прощения-я наверно неправильно поставил свой вопрос.

If Len(пр.Text) = 0 Then-при пустой строке выскакивает Msg

If Len(пр.Text) = ???? Then
а здесь что подставить чтоб при любом введёном слове(кроме тех,которым я задал значение) выскакивало сообщение Msg?

[Хакер]

Здесь невозможно что-то подставить, чтобы добиться требуемого тобой результата.

Для начала тебе следует понять, что функция Len применительно к строке, возвращает кол-во символов (т.е. длину) строки. Для пустой строки Len возвращает 0. Поэтому, при сравнении Len(пр.Text) и 0 получается истина (True), и записанная после Then часть (в данном случае) выполняется.

Теперь перейдём к твоеу вопросу. Ты спрашиваешь, что нужно поставить вместо вопросов, в условии "Len(пр.Text) = ????" чтобы сообщение выдавалось тогда, когда введённый в пр текст, не являлся одним из заранее указанных тобой вариантов. Вдумайся в условие: разве можно сравнивая длину введённого текста с каким-то числом однозначно заявить, что введённые текст не удовлетворяет условию?

В твоём случае я бы использовал следующий код:

Код: Выделить всё

Select Case пр.text
    case "первый вариант", "Asdwwq", "ТретийВАРИАНТ", "565"
    case else
         msgbox "Введено неверное значение"
end select


Но это только способ. TextBox предполагает свободу вводимых данных. Когда же необходимо выбрать один из нескольких вариантов, следует использовать ListBox или ComboBox в режиме List.

И потом, использование русского названия для TextBox как минимум некрасиво, а как максимум, может привести к неработоспособности программы.

[Nazarey]

Хакер-большое спасибо -теперь есть хоть с чего начать,а то столько за это время пересмотрел и нечего
СПАСИБО