Mudar botão opção para um botão normal ao clicar

Moderador: Avelino Sampaio

Abegahil
Mensagens: 43
Registrado em: 07 Jun 2015, 13:39

Mudar botão opção para um botão normal ao clicar

Mensagempor Abegahil » 29 Jun 2018, 23:01

Boa noite pessoal,é o seguinte como faço pra que esse código que esta em um botão de opção,funcionar em um botão normal ao clicar ele.
No botão opção funciona.

Código:
If Me.selRecebido = True Then
Me.cboFormaPagamento.Visible = True
Me.cboFormaPagamento.SetFocus
Me.cboFormaPagamento.Dropdown
Else
Me.cboFormaPagamento = ""
Me.cboFormaPagamento.Visible = True
End If

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


bydevsis
Mensagens: 12
Registrado em: 09 Jun 2015, 01:47

Re: Mudar botão opção para um botão normal ao clicar

Mensagempor bydevsis » 02 Jul 2018, 19:02

Olá prezada,

Não ficou bem claro o que realmente você quer, mas entendi bem, você quer controlar as ações de uma combobox, no evento AO CLICAR (_Click) você deve especificar o comportamento do botão.

Você pode controlar dois comportamentos diferentes para o mesmo botão usando alguma flag de controle, normalmente eu uso a legenda (caption) do botão, exemplo se o botão tem uma legenda escrita "Ligar" o botão faz alguma coisa e muda a legenda para "Desligar", assim quando clicar no mesmo botão com a legenda "Desligar" ele vai fazer alguma outra coisa, segue este exemplo e veja lhe ajuda.

Exemplo:

Código: Selecionar todos

Private Sub btnTeste2_Click()
    If Me.btnTeste2.Caption = "Ligar" Then
       Me.lstArquivos.Visible = True
       Me.btnTeste2.Caption = "Desligar"
    Else
       Me.lstArquivos.Visible = False
       Me.btnTeste2.Caption = "Ligar"
    End If
End Sub


Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante