1

Select Caseステートメントで、Case Elseの場合、他のすべてのCaseオプションで指定されているすべてのアクションを実行するように指示する簡単な方法はありますか?関連するコードをコピーするだけでよいことはわかっていますが、よりシンプルでクリーンなソリューションを探しています。

SELECT CASE answer
   CASE "1"
    *Do something*

   CASE "2"
    *Do something else*

   Case "3"
    *Do all actions in CASE 1 and in Case 2*
END SELECT
4

1 に答える 1

3
PRIVATE SUB YourMethod()
   SELECT CASE answer
       CASE "1"
           Method1()

       CASE "2"
           Method2()

       Case "3"
           Method1()
           Method2()
    END SELECT
END SUB

PRIVATE SUB Method1()
   *Do something*
END SUB

PRIVATE SUB Method2()
   *Do something else*
END SUB
于 2012-12-12T15:50:24.020 に答える