だから私はVB.Netでプログラムを書いていて、Select / Caseステートメントについて簡単な質問がありますが、答えが見つからないようです。だから今私のケースは次のようになります:
Select Case numColumns
Case 0
numColumns = numColumns + 1
'Some code
Case 1
numColumns = numColumns + 1
'Some different code
Case 2
numColumns = numColumns + 1
'Some even more different code
Case Else
'Do Nothing
End Select
基本的に、を除くnumColumns = numColumns + 1
すべてのケースでステートメントを用意する必要がありCase Else
ます。すべてのCaseステートメントに同じコード行を追加せずにこれを行う方法はありますか?
私が考えることができる簡単な解決策は、選択の前にifステートメントを置き、そこでインクリメントを行うことですが、Case All
行などでそれを行う方法があるかどうか疑問に思っています。
これは機能するはずです:
Select Case numColumns
Case 0 To 2
numColumns = numColumns + 1
'Some code
Case Else
'Do Nothing
End Select
編集:
以前Select/Case
のIf
ステートメントよりも美しいと考える場合は、追加で解決できます。
Select Case numColumns
Case 0 To 2
numColumns = numColumns + 1
Select Case numColumns
Case 0
'Some code
Case 1
'Some different code
Case 2
'Some even more different code
End Select
Case Else
'Do Nothing
End Select
また、Else
-partで実際に「何もしない」場合は、完全に省略できます。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加