USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Simplificando o código com IIF
Postada em 23/12/2003 por [_Chuck_]            
A estrutira IF é a seguinte...
If <Condição> Then
    <caso verdadeira>
Else
    <caso falsa>
End if

Se você quiser que A seja 20 se B for par e 10 se for impar ficaria +/- assim..
If B mod 2 = 0 Then ' Se for par
    A = 20
Else
    A = 10
End if

É claro que esse é um exemplo fictício... mais veja só como é a estrutura IIF

IIF(<condição>,<caso verdadeira>, <caso falsa>)

Veja com ficaria o exemplo anterior com o IIF
A = IIF(B mod 2 = 0,20,10)

viu só?? Simplificamos 5(cinco) linhas de código em apenas uma.... Mais você deve estar se perguntandu.. "tá... mais como eu posso usar isso realmente???". Pra responde isso veja só um procedimento de uma agenda que eu fiz...

Sub Corfirme(Status as Boolean)
   If Status Then
       incluir.Caption = "OK"
       excluir.Caption = "Cancelar"
       Alterar.Visible = False
       FrmL.Enabled = False
   Else
       incluir.Caption = "Incluir"
       excluir.Caption = "Excluir"
       Alterar.Visible = True
       FrmL.Enabled = True
   End if
End Sub

Essa é uma das rotinas muito comuns em meus programas... Onde eu coloca duas açoes para um só botão.... Agora veja só... Se eu contei certo foram 11 linhas de código, né? Veja como ficaria com o IIF e algumas adequações a mais...

Private Sub Confirme(status As Boolean)
    incluir.Caption = IIf(status, "&OK", "Incluir")
    excluir.Caption = IIf(status, "&Cancelar", "Excluir")
    alterar.Visible = Not (status)
    frmL.Enabled = Not (status)
End Sub

Veja só... acabamos de eliminar só 7(sete) linhas de código... iradu naum???

Agora é com você... Estude o seu código e veja onde você poderá implementa o IIF e descubra como irá facilitá muito a sua vida...

Boum.. Eu achu que é só isso.... Qualquer dúvida...
E-Mail: MayconMaia@yahoo.com.br
ICQ: 289609955

Maycon Maia Vitali [_Chuck_]
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página