Notifications
Clear all

Que Evento usar ao clicar em uma textbox e fazer uma ação

8 Posts
3 Usuários
0 Reactions
1,726 Visualizações
(@ednaldosdl)
Posts: 0
New Member
Topic starter
 

Boa tarde, pessoal
estou tentando criar uma macro que oculte um objeto assim que eu clicar na textbox e quando eu clicar no userform a textbox seja inativa da mesma forma que ela iniciou, estou usando esse código abaixo. mas esse evento Change não faz o que preciso, Já tentei vários eventos e não obtive excito. alguém poderia me ajudar nessa questão?

Private Sub TextBox1_Change()

    If TextBox1.Value = "" Then
       Label1.Visible = True
       Label2.Top = 294
     Else:
       Label1.Visible = False
       Label2.Top = 264
    End If

End Sub

Eventos usados sem excito.
Change
DropButtonClick
MouseDown
BeforeUpdate

 
Postado : 16/06/2018 2:33 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

ednaldosdl,

Boa noite!

Ao inserir código VBA aqui no fórum pedimos, por gentileza, utilizar a ferramenta CODE (quinto botão da esquerda para a direita) logo acima da caixa de mensagem.

Confesso que não entendi muito bem o que você realmente quer. Pra mim ficou meio confuso...

Veja, você diz que quer que um objeto seja ocultado assim que clicar na TextBox. Para ter êxito nisso você deve usar o Evento ENTER do TextBox. Por exemplo, se você quer ocultar o Label2 (como está no seu código), basta fazer isso:

Private Sub TextBox1_Enter()
       Label2.Visible = False
End Sub

Em seguida você diz que quer que ao clicar no Userform, a caixa de texto seja inativa da mesma forma que ela iniciou. Ora, se a Caixa de Texto inicia inativa, jamais ela disparará evento nenhum... concorda?

Assim, explique melhor o que deseja que podemos tentar ajudar você.

 
Postado : 16/06/2018 3:14 pm
(@ednaldosdl)
Posts: 0
New Member
Topic starter
 

Bom dia
Primeiramente quero me desculpar por não ter postado o código da maneira correta e por não ter conseguido explicar direito. vamos lá, como falei na portagem anterior quero saber um evento que ao clicar na textbox ela execute conforme o evento change, porém o evento change, faz a ação qunado escrevemos, quero que ação seja feita ao clicar na textbox. já na segunda parte, quando eu estiver com a textbox ativa, ou seja em foco, quero ao clicar no userform o foco saia da textbor e vá para o userform e vice e verso.

 
Postado : 17/06/2018 2:23 am
(@klarc28)
Posts: 0
New Member
 

Não é possível tirar o cursor da caixa de texto ao clicar no formulário.

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "Você clicou na caixa"
End Sub

Private Sub UserForm_Activate()
MsgBox "Ativou o formulário"
End Sub


Private Sub UserForm_Click()
MsgBox "Clicou no formulário"
End Sub
 
Postado : 17/06/2018 6:37 am
(@ednaldosdl)
Posts: 0
New Member
Topic starter
 

Bom dia, klarc28.
Não entenda errado, só abri um tópico por que já tinha testado os eventos e pesquisado em vários lugares e não obtive excito, sem contar que o fórum é para isso ou estou errado?. Porém não quer dizer que não seja possível, já vi tantos tópico que aparece essa resposta que é possível fazer algo e do nada aparece uma solução. mas enfim, obrigado pela tentativa.

 
Postado : 17/06/2018 7:08 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

ednaldosdl,

Boa tarde!

Acredito que o klarc28 apenas especificou que o objeto formulário não possui foco, pois os formulário são apenas repositórios dos demais controles. Desse modo, jamais o foco sairá da caixa de texto para o formulário.

 
Postado : 17/06/2018 10:46 am
(@ednaldosdl)
Posts: 0
New Member
Topic starter
 

Boa tarde, pessoal
Primeiramente quero pedir desculpas ao klarc28, na verdade a resposta era para o wagner e acabei mencionado o klarc28, mas quero deixar bem claro que não quis ser grosso ou algo do tipo com o wagner. Quero agradecer a todos que tentaram me ajudar de alguma forma, realmente o klarc28 e wagner estavam certo, o objeto formulário não possui foco, porém encontrei uma forma de resolver esse problema, na verdade resolve todos os problemas que postei nesse tópico. Só relembrando o que falei na resposta para o wagner, que sempre vi alguém respondendo que não há como fazer, mas estou aqui para dizer que do nada a solução aparece, como apareceu para mim. Mas uma vez quero me desculpar e agradecer.

 
Postado : 18/06/2018 2:08 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

ednaldosdl,

Boa noite!

Fique tranquilo. Aproveite e poste a solução encontrada para que também aprendamos. Afinal... estamos todos aqui é aprendendo mesmo.

 
Postado : 18/06/2018 4:35 pm