Diretivas #If...Then...#Else
Condicionalmente compila blocos de código Visual Basic selecionados.
#If expression Then
statements
[ #ElseIf expression Then
[ statements ]
...
#ElseIf expression Then
[ statements ] ]
[ #Else
[ statements ] ]
#End If
Partes
expression
Necessário para instruções #If e #ElseIf, opcionais em outro lugar. Qualquer expressão, consistindo exclusivamente de uma ou mais constantes, literais e operadores de compilação condicional, que seja avaliada como True ou False.statements
Obrigatório para bloco de declaração #If, opcional em outro lugar. Visual Basic programa linhas ou diretivas de compilador que são compiladas se a expressão associada for avaliada como True.#End If
Finaliza o bloco de declaração #If.
Comentários
Na superfície, o comportamento das diretivas #If...Then...#Else aparenta ser igual ao das instruções If...Then...Else. No entanto, as diretivas #If...Then...#Else avaliam o que é compilado pelo compilador, enquanto as instruções If...Then...Else avaliam condições em tempo de execução.
Compilação condicional é normalmente usada para compilar o mesmo programa para diferentes plataformas. Ela também é usado para evitar que o código depurado seja exibido em um arquivo executável. Código excluído durante compilação condicional é completamente omitido do arquivo executável final, para que ele não tenha efeito sobre o tamanho ou desempenho.
Independentemente do resultado de qualquer avaliação, todas as expressões são avaliadas usando Option Compare Binary. A instrução Option Compare não afeta as expressões nas instruções #If e #ElseIf.
Dica
Não exite formato de linha única das diretivas #If, #Else, #ElseIf e #End If.Nenhum outro código pode aparecer na mesma linha que qualquer um das diretivas.
Exemplo
Este exemplo usa a construção #If...Then...#Else para determinar se determinadas instruções serão compiladas.
#Const CustomerNumber = 36
#If CustomerNumber = 35 Then
' Insert code to be compiled for customer # 35.
#ElseIf CustomerNumber = 36 Then
' Insert code to be compiled for customer # 36.
#Else
' Insert code to be compiled for all other customers.
#End If
Consulte também
Referência
Instrução If...Then... (Visual Basic)