Is this really possible ?[Resolved]

[Pirate]

I want to use Select Case in this way (evaluation two values at the same time) , is it legal (It works half way though )?

'Class member variables 
 Dim a As Integer
 Dim b As Integer
 
 
'Inside a method .
Select Case a AndAlso b
 
            Case a = 20, b = 40
 
            Case a = 70, b = 30
 
            Case a = 0, b = 1
 
        End Select

[taxes]

Hi

I find that your code works all the time. Why do you say "Halfway"?


A shorter way would be


select case true

.................

[Pirate]

I don't think it's going to solve the problem but how would you write the cases to evalutate two variables ?

[taxes]

Hi,

After trying your code I edited my first reply just as you were posting.


If using Select Case True the leave the rest of your code as it was:


Select Case True
Case a = 20, b = 40

Case a = 70, b = 30

Case a = 0, b = 1

End Select


or

Select Case a AndAlso b

Case (a = 20, b = 40)

Case (a = 70, b = 30)

Case (a = 0, b = 1)

End Select


I have no problems with any of them

[crptcblade]

Originally posted by Pirate
I don't think it's going to solve the problem but how would you write the cases to evalutate two variables ?

Select Case True
 
            Case a = 20 And b = 40
 
            Case a = 70 And b = 30
 
            Case a = 0 And b = 1
 
End Select

Does that work?

[taxes]

Hi,

On looking at MSDN AndAlso, I see that it states a boolean comparison is required, so may be it does not work consistently with non boolean variables, but I have not found that to be correct yet. If you have, post a sample, please.

[Pirate]

Cheers taxes , that works .

Yes , crptcblade I used that and it works too.

[taxes]

Hi crptcblade


Yes, although the code I posted was OR I have tried it with AND.

BUT see my last post and wait for Pirate's reply in case it is not consistent.

[taxes]

Hi Pirate,

REf. my first response to you.


"I find that your code works all the time. Why do you say "Halfway"?"



Any enlightenment? Bearing in mind my subsequent comments on the MSDN notes.

[Pirate]

It seems consistent after couple of testing .

[Pirate]

Originally posted by taxes
Hi Pirate,

REf. my first response to you.

"I find that your code works all the time. Why do you say "Halfway"?"

Any enlightenment? Bearing in mind my subsequent comments on the MSDN notes.

For example :

When a = 0 and b =1
If I check this case like this

Select Case a AndAlso b
 
            Case a = 0, b = 0
msgbox "first case"
            Case a = 0, b = 1
msgbox "second case"
        End Select

This would returns msgbox "first case" . Because it evaluates a as true and forget about the rest .

[taxes]

Hi Pirate,


Of course it does,


the "," is an OR operator not an AND

[Pirate]

Originally posted by taxes
Hi Pirate,


Of course it does,
the "," is an OR operator not an AND

Yes , it's true . But it's a bit confusing when I even tried this one and was the same result :

Case a = 0 AndAlso b = 1

If clauses are usually better and safer but longer .

[taxes]

Hi Pirate,

"Yes , it's true . But it's a bit confusing when I even tried this one and was the same result :

visual basic code:--------------------------------------------------------------------------------Case a = 0 AndAlso b = 1"


We are going round in ever decreasing circles here. The above works perfectly O.K. although it is unnecessarliy long. You must be doing something else wrong in your code. Are you declaring your variables in a location which make them invisible to your Select Case procedure/method?

[Pirate]

This is how I used it anyway . I set the variables a and b from different locations and I made sure have been set to different values every time .

Private a As Integer
Private b As Integer
 
 
    Private Sub ValidateMe()
        Select Case a AndAlso b
            Case a = 0 And b = 0
                MsgBox("index0  index0")
            Case a = 0 And b = 1
                MsgBox("index0  index1")
            Case a = 0 And b = 2
                MsgBox("index0  index2")
            Case a = 1 And b = 0
                MsgBox("index1  index0")
        End Select
    End Sub

[taxes]

Hi Pirate,

I think we are getting somewhere!


It is the use of "0" (zero) which is causing the problem. The programme is confusing it with Boolean. Change your checks for numbers 1 & 2 and it will work.


Man, I think we've both learned a bit here!

[Pirate]

Originally posted by taxes
Hi Pirate,

I think we are getting somewhere!


It is the use of "0" (zero) which is causing the problem. The programme is confusing it with Boolean. Change your checks for numbers 1 & 2 and it will work.

Man, I think we've both learned a bit here!

What if I want to check if these vars has 0s ? I mean , my implementation depends on these 0s .

[taxes]

Hi,

Then you have to use the


Select Case True

Select Case True
Case (a = 0 And b = 0)
MsgBox("index0 index0")
Case (a = 1 And b = 2)
MsgBox("index1 index2")
Case (a = 0 And b = 2)
MsgBox("index0 index2")
Case (a = 1 And b = 0)
MsgBox("index1 index0")
End Select

It looks at though this is the reason for MSDN using the operator "AndAlso" as a Boolean.

After all that I reckon were are ahead of the field on this one!!