[Resolvido]Código com ElseIf

Boa noite!
Alguém pode me dar uma explicação de quando usar ElseIf?

if then else eu sei, mas já vi varios codigos com ElseIf mas não entendi.

Obrigado

Boa Noite,

Voce pode usar o ELSEIF para uma ou mais condições antes de fechar com END IF.

Segue exemplo de uma função que Habilita/Desabilita botoes de comando conforme o parametro informado.


If nParam = 1 Then 'Habilita todos os comandos
With nForm
.cmdSair.enabled = True
.cmdNovo.enabled = True
.cmdSalvar.enabled = True
.cmdExcluir.enabled = True
.cmdAlterar.enabled = True
.cmdCancelar.enabled = True
.cmdPesquisar.enabled = True
End With
ElseIf nParam = 2 Then 'Novo registro
With nForm
.cmdSair.enabled = True
.cmdNovo.enabled = False
.cmdSalvar.enabled = True
.cmdExcluir.enabled = False
.cmdAlterar.enabled = False
.cmdCancelar.enabled = True
.cmdPesquisar.enabled = False
End With
ElseIf nParam = 3 Then 'Alterar registro
With nForm
.cmdSair.enabled = True
.cmdNovo.enabled = False
.cmdSalvar.enabled = True
.cmdExcluir.enabled = False
.cmdAlterar.enabled = False
.cmdCancelar.enabled = True
.cmdPesquisar.enabled = False
End With
End If

OBS.: Existem situações que poderá existir mais de 3 condições. Neste caso eu sugiro a utilização do SELECT CASE.

Exemplo de SELECT CASE usado em ribbon:

Select Case control.ID
Case "sair": visible = True
Case "admin": visible = True
Case "alterarsenha": visible = True
Case "parametros": visible = True
Case "usuarios": visible = False
Case "empresa": visible = True
Case "clientes": visible = True
Case "produtos": visible = True
Case "fornecedores": visible = True
Case "transportadoras": visible = True

Case "formapagto": visible = True
Case "planocontas": visible = True
Case "caixafin": visible = True
Case "bancos": visible = True
Case "origemestoque": visible = True
Case "origemreceber": visible = True
Case "produtogrupo": visible = True
Case "produtotipo": visible = True


Case "statuspagamento": visible = True
Case "statusreceber": visible = True
Case "tipoentrega": visible = True
Case "tiponegociacao": visible = True


Case "pedidovenda": visible = True
Case "liberarpedido": visible = True
Case "tabelapreco": visible = True

Case "requisicaocompras": visible = True
Case "cotacaocompras": visible = False
Case "pedidocompras": visible = False

Case "estoqueprod": visible = True

Case "faturarpedido": visible = True
Case "controlecheque": visible = True
Case "contaspagar": visible = True
Case "lancamentospagar": visible = True
Case "contasreceber": visible = True
Case "lancamentosreceber": visible = True

Case "rel_pedido_venda": visible = True
Case "rel_comissao_vendedor": visible = True
Case "rel_posicao_estoque": visible = True
Case "rel_vendas_produto": visible = True

Case "rel_fluxo_caixa": visible = True
Case "rel_devedor": visible = True
Case "rel_credor": visible = True
Case "rel_controle_cheque": visible = True

Case "rel_cliente": visible = True


Case Else

visible = True
End Select



Espero ter ajudado.

[]'s

Amigo, muito obrigado pela aula.
Valeu mesmo!

Obrigado.

Valeu João.
Boa sorte e bons estudos.

[]'s