[2005] Select CASE [RESOLVED]

[selanec]

If Ctype(control, TextBox).Id.StartsWith("txtTest1") Then
  'do something
ElseIf Ctype(control, TextBox).Id.StartsWith("txtTest2") Then
 'do something
ElseIf Ctype(control, TextBox).Id.StartsWith("txtTest3") Then
 'do something
ElseIf Ctype(control, TextBox).Id.StartsWith("txtTest4") Then
 'do something
 '{more if statements}
Else If

Now i want to recode this with using SELECT CASE.
How do i use select case when i want that each case finds if certain control's id startswith given value?

Thanks

[Deepak Sakpal]

Dim condition As String = CType(Control, TextBox).Id
        Select Case condition
            Case condition.StartsWith("txtTest1")
            Case condition.StartsWith("txtTest2")
            Case condition.StartsWith("txtTest3")
            Case condition.StartsWith("txtTest4")
        End Select

[selanec]

This is not working, Sorry

[techgnome]

What do you mean it doesn't work? There's no reason it shouldn't.

-tg

[sallushan]

Select Case can only be used here, if the total number of characters are equal for all the cases.

Example:

Dim condition As String = CType(Control, TextBox).Id
Select Case Microsoft.VisualBasic.Left(condition, 8).ToUpper()
    Case "TXTTEST1"
    Case "TXTTEST2"
    ...
End Select

[Deepak Sakpal]

Private Sub Button2_Click( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs _
    ) Handles Button2.Click
 
        DoStuff(txtTest2)
    End Sub
 
    Private Sub DoStuff(ByVal control As Control)
        Dim condition As String = CType(control, TextBox).Name
        Select Case condition
            Case "txtTest1"
                MessageBox.Show("txtTest1")
            Case "txtTest2"
                MessageBox.Show("txtTest2")
            Case "txtTest3"
                MessageBox.Show("txtTest2")
            Case "txtTest4"
                MessageBox.Show("txtTest4")
        End Select
    End Sub

[techgnome]

Select Case can only be used here, if the total number of characters are equal for all the cases.

Example:

Dim condition As String = CType(Control, TextBox).Id
Select Case Microsoft.VisualBasic.Left(condition, 8).ToUpper()
    Case "TXTTEST1"
    Case "TXTTEST2"
    ...
End Select

regarding the statement... that's a bunch of hooey. Regarding the code, because of the design of the code, the statement becomes true.... but there's no need to grab only the left 8 characters. How would you test for "txtTest10".... or "txtTest12".... or "txtTest21" ???

-tg

[techgnome]

Dim condition As String = CType(Control, TextBox).Id
        Select Case condition
            Case condition.StartsWith("txtTest1")
            Case condition.StartsWith("txtTest2")
            Case condition.StartsWith("txtTest3")
            Case condition.StartsWith("txtTest4")
        End Select

Actually... this could work, with one modification:

        Dim condition As String = CType(Control, TextBox).Id
        Select Case True
            Case condition.StartsWith("txtTest1")
            Case condition.StartsWith("txtTest2")
            Case condition.StartsWith("txtTest3")
            Case condition.StartsWith("txtTest4")
        End Select

It's a usage of the Select Case that I don't personally care for... but, it should work.

@sallushan - I see what you meant now, and why only the left 8 were used... point taken. I'm the one that's dense this morning.

-tg

[selanec]

Select Case True

that's the winner. Thanks a lot Mr. MVP
I realized that SrartsWith is actually boolean function so your last suggestion worked like a charm

Thanks a lot

[sallushan]

Good one. It really increased my experience with SELECT CASE.