• 0
Sign in to follow this  
VBLOCO

Interruptor Lampada Virtual

Question

Estou querendo fazer uma lampada dessas do tipo que usamos em casa so que virtual.

Para o interruptor usei um ToggleButton e algumas images de apagado e acesso. O problema é que, o codigo so funciona uma vez e naõ repete infinito. O codigo que fiz foi esse

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then

Image2.Visible = True

Else

Image3.Visible = True

End If

End Sub

Como posso fazer o ToggleButton funcionar infinito?

Edited by VBLOCO

Share this post


Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Olá !

Como assim infinito ?

Se é no evento "Click" do ToggleButton só vai ser executado quando o mesmo for "clicado"...sem falar que desconheço este componente :unsure:

Em um botão funcionaria +/- assim:

Private Sub CommandButton1_Click()

   If CommandButton1.Caption = "Acender !" Then
      Image2.Visible = True
      CommandButton1.Caption = "Apagar !"
   
   Elseif CommandButton1.Caption = "Apagar !" Then
      Image2.Visible = False
      CommandButton1.Caption = "Acender !"
   End If


End Sub

Isso apenas com um objeto "Image".

Se não for isso, dá uma explicada melhor... :rolleyes:

VALEU !

Edited by Danleonhart

Share this post


Link to post
Share on other sites
  • 0

Infinto humm... na verdade queria achar um jeito de fazer o codigo funcionar sempre, nesse caso, esse simples que fiz, so executa uma vez depois não executa

Acredito que o Vba esta executando apanas ate a 4° linha do codigo e depois mesmo clicando no ToggleButton, nomeado de ligar, o mesmo não faz as imagens de aceso aparecer o mesmo acontece a imagem de apagado.

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then ' aqui ao clicar, a imgem, Image2, ou seja imagem de luz acesa, aparece.

Image2.Visible = True

Else

Image3.Visible = True ' aqui ao clicar, a imgem, Image3, ou seja, imagem de luz apagado, aparece.

End If

End Sub

Pronto depois disso se for clicar outra vez para que a imagem de aceso apareca nada mais aparece somente permanece a ultima imagem que foi o Image3.Visible = True.

Detalhe: o image1 é de apagado

Edited by VBLOCO

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this