<< 向前        下一页 >>

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

<< 向前        下一页 >>