<< 前へ        次へ >>

ID : 118

#If ... #Endif

機能

指定した条件によってコンパイルするソースコードを選択します。

構文

#If 条件1
	コード1
#Elif 条件2
	コード2
#Else
	コード3
#Endif

指定項目

条件n
条件式を指定します。
コードn
ソースコードを指定します。

解説

指定した条件によってコンパイルするソースコードを選択します。

条件1が0以外(真)のとき、コード1がコンパイルされます。コード2およびコード3はコンパイルされません。

条件1が0(偽)のとき、条件2が判定されます。条件2が0以外(真)のとき、コード2がコンパイルされます。コード1およびコード3はコンパイルされません。

#Elif 条件2...コード2は複数指定できます。

条件1が0(偽)のとき、条件2が判定されます。条件2が0(偽)のとき、コード3がコンパイルされます。コード1およびコード2はコンパイルされません。

条件nはプリプロセッサの書式に従って記述してください。

関連項目

注意事項

用例

'!TITLE "条件コンパイル"
' マクロで定義した値を判定し、変数に値を加算

#Define TEST 10

Sub Sample_IfEndif

  Dim aaa As Integer

  aaa = 10

' マクロ名TESTが0の場合
#If TEST = 0

  aaa = aaa + 10

  ' メッセージ出力ウィンドウにaaaを表示
  PrintDbg aaa

' マクロ名TESTが0以上の場合
#Elif TEST > 0

  aaa = aaa + 20

  ' メッセージ出力ウィンドウにaaaを表示
  PrintDbg aaa

' マクロ名TESTが0以下の場合
#Else

  aaa = aaa + 30

  ' メッセージ出力ウィンドウにaaaを表示
  PrintDbg aaa

#Endif

End Sub

ID : 118

<< 前へ        次へ >>