C# と VB.NET の質問掲示板

開発環境
OS:　Windows7　SP1
言語:　VisualStudio2008　VB


    Private Sub sample(ByVal Test As Boolean)

        If Test = True Then
　　　　　　　　' ON
    　　　　　If x = True Then
                ' ONの場合

                If MessageStatus = False Then
                    ' 何も表示されてない場合ﾒｯｾｰｼﾞ表示
                Else
                    If MessageStatus = True Then
                        ' 表示ある場合ﾒｯｾｰｼﾞ継続
                    Else
                        ' ﾒｯｾｰｼﾞ表示
                    End If
                End If
            Else
                ' OFFの場合、ﾒｯｾｰｼﾞ表示
            End If
        Else
            ' OFF

            If MessageStatus = True Then
                ' ONの場合、ﾒｯｾｰｼﾞ表示
            Else
                ' ﾒｯｾｰｼﾞ無し
            End If
        End If
    End Sub

この文をcase文で表現したいのですが、どのように書けばよいのでしょう？
よろしくお願いいたします。

あなたが求めているのはこんなもの?

'ビットフィールドの定義
<FlagsAttribute()> _
Enum Flags As Short
  Test = 1
  x = 2
  MessageStatus = 4
End Enum


Module Module1

  Sub Main()
    Dim Test As Boolean
    Dim x As Boolean
    Dim MessageStatus As Boolean

    Test = True
    x = True
    MessageStatus = False

    ' 上記３つの条件からビットフィールドを作る
    Dim f As Flags
    If Test Then f = f Or Flags.Test
    If x Then f = f Or Flags.x
    If MessageStatus Then f = f Or Flags.MessageStatus

    ' Select-Case で処理を振り分ける
    Select Case f
    Case (Flags.Test Or Flags.MessageStatus)
      Console.WriteLine("Test と MessageStatus が true だね")
    Case (Flags.Test Or Flags.x)
      Console.WriteLine("Test と x が true だね")
    '.... などなど、好きなこと書くヨロシ
    Case Else
      Console.WriteLine("どれも false だよ")
    End Select
  End Sub

End Module

■No61235 (επιστημη さん) に返信
>>元のコードより、ちょっと変わったかな？程度でよろしいのですが。
> 
> 霊能者じゃあるまいし、そんなサジ加減わかるわけないって^^;
> 
申し訳ありません、やはりそうですよね。
自分でも無茶な質問だと思ったので。

Case Test = True ' ONの場合
     If〜
Case Test = False ' OFFの場合
     If〜

このような文で簡単なCaseが書ければと思ったのですが。

Select Case True
    Case Test AndAlso x AndAlso MessageStatus 

    Case Test AndAlso x AndAlso Not MessageStatus 

    Case Test AndAlso Not x

    Case Not Test AndAlso MessageStatus 

    Case Not Test AndAlso Not MessageStatus 

End Select

もう少し詳細に書くとこんな感じ？