Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Не учитывать регистр текста

Автор: abalich 8.3.2007, 21:05

Как не учитывать геристр букв во всей прогнрвмме т.е. у меня в ней много TextBox-ов.

Код


if text1.text = text2.text then end

Допустим text1.text = "Ok" а text2.text = "ok" - как мне их уровнять.

Автор: W4FhLF 8.3.2007, 21:13

Код


if not StrComp(Text1.Text, Text2.Text) then Msgbox "Равно"

Код


if LCase(Text1.Text) = LCase(Text2.Text) then Msgbox "Равно"

Автор: abalich 8.3.2007, 21:27

У меня 3 textBox text1,text2,text3

Код


dim a as string
dim p as integer
p = 1
a = text1.text
a = a  & " " & text2.text
a = a & " " & text3.text
If InStr(p, Text4.Text, a) <> 0 Then
MsgBox "ok"
Else
MsgBox "not ok"
End If

Как мне уровнять "a" и text4.text

Автор: W4FhLF 8.3.2007, 21:45

Ну это же элементарно!
If InStr(p, lcase(Text4.Text), lcase(a)) <> 0 Then

Автор: bom 8.3.2007, 22:42

Код


Option Compare Text