how to case select with case-insensitive string ?

[Tee]

Hi,

How to case select with case-insensitive ?

eg:

Select Case Textbox1.Text
Case "Hello" -- ( this will include "Hello", "HELLO", "hElLo" etc etc. )

Case "Bye"

End Select

anyone know how ?
Thanks.

[Steve C. Orr [MVP, MCSD]]

Try this syntax:

Select Case Textbox1.Text.ToLower()
Case "hello"

Case "bye"

End Select

--
I hope this helps,
Steve C. Orr, MCSD, MVP
http://Steve.Orr.net
"Tee" <th*@streamyx.com> wrote in message
news:%2****************@TK2MSFTNGP10.phx.gbl...

Hi,

How to case select with case-insensitive ?

eg:

Select Case Textbox1.Text
Case "Hello" -- ( this will include "Hello", "HELLO", "hElLo" etc etc. )
Case "Bye"

End Select

anyone know how ?
Thanks.

[Ken Tucker [MVP]]

Hi,

Add Option Compare Text to the top of your file. Simple console app
example.

Option Compare Text

Module Module1

Sub Main()
Dim strOne As String = "hello"
Dim strTwo As String = "HELLO"

Console.WriteLine(strOne = strTwo)
End Sub

End Module
Ken
-------------

"Tee" <th*@streamyx.com> wrote in message
news:#x**************@TK2MSFTNGP10.phx.gbl:

Hi,

How to case select with case-insensitive ?

eg:

Select Case Textbox1.Text
Case "Hello" -- ( this will include "Hello", "HELLO", "hElLo" etc etc. )

Case "Bye"

End Select

anyone know how ?
Thanks.

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.3.3 - Release Date: 6/18/2004

[Herfried K. Wagner [MVP]]

* "Tee" <th*@streamyx.com> scripsit:

How to case select with case-insensitive ?

eg:

Select Case Textbox1.Text
Case "Hello" -- ( this will include "Hello", "HELLO", "hElLo" etc etc. )

Case "Bye"

End Select

anyone know how ?

In the project properties, set "Option Compare" to "Text", or on
per-file basis you can add 'Option Compare Text' in the declaration area
of your file.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>