Página 1 de 1

é posssivel criar rotina para varias textbox ao mesmo tempo?

Enviado: Qua Mai 16, 2018 6:44 am
por pedro_mexico
Bom dia.
tenho um formulario em que tenho uma rotina para quando o valor das textbox's sao mudados, uma para cada textbox,
agora estou fazer um novo forumlario ,e queria adaptar esses codigos, mas como as textboxs aumentaram,
queria saber se é possivel fazer um codigo tipo para colocar
na userforme_initialize tipo "Call actualizar_textbox"

eu tenho este codigo para cada textbox change
private sub textbox1change()
select case.value
case is <1500
.blackstyle=fmbackStyleopaque
.blackcolor=vred
.forecolor=vbwhite
case is <3000
.backstyle=fmbackstyleopaque
.backcolor=vryellow
a ideia era ter uma rotina em que fizesse essas mudanças mas tivessem todas as textbox incuidas, (textbo1 textbox2 a textbox 10 etc).
obrigado

Re: é posssivel criar rotina para varias textbox ao mesmo tempo?

Enviado: Qua Mai 16, 2018 10:47 am
por Mikel Silveira Fraga
Pedro, bom dia.

É possível sim, mas teríamos que criar um Objeto de Classe para realizar essa operação.

Se quiser, me envia seu modelo e o código que deseja, para que possa dar uma olhada e configurar o que precisa.

Fico no aguardo.

Re: é posssivel criar rotina para varias textbox ao mesmo tempo?

Enviado: Qua Mai 16, 2018 5:10 pm
por pedro_mexico
boa noite mikel,
ocodigo foi o que eu postei em cima.
passo a escrever:

Private Sub TextBox20_Change()
'codigo para fazer com que o fundo da caixa de texto mude conforme os klm
With Me.TextBox20
Select Case .Value
Case Is < 1500
.BackStyle = fmBackStyleOpaque
.BackColor = vbRed
.ForeColor = vbWhite
Case Is < 3000
.BackStyle = fmBackStyleOpaque
.BackColor = vbYellow
End Select
End With
End Sub

tenho este codigo para 30 textbox's. e gostava de saber se dava para colocar um so codigo

Re: é posssivel criar rotina para varias textbox ao mesmo tempo?

Enviado: Qui Mai 17, 2018 1:24 pm
por Mikel Silveira Fraga
Pedro, boa tarde.

Havia pedido o arquivo para facilitar pra você em adaptar o código.

De qualquer forma, veja se consegue adaptar o modelo em anexo a sua necessidade. Quero ressaltar que todos os TextBox´s que irão receber essa formatação, será necessário preencher a propriedade Tag deles, com o valor <fColor>, que serve como identificador/diferenciador de todos os Controles que receberão ou não as formatações.
ColorClass.zip
(17 KiB) Baixado 238 vezes
Quaisquer dúvidas, a disposição.

Re: é posssivel criar rotina para varias textbox ao mesmo tempo?

Enviado: Sex Mai 18, 2018 6:29 am
por pedro_mexico
Bom dia mikel.
Obrigado pela resposta.
Não tenho andado muito por o fórum e office esta com problemas.
O ficheiro que me enviou, se colocar o valor abaixo de 1500fica a vermelho, até aí está bem, mas se colocar o valor acima de 3000,ele continua com a formatação vermelha

Re: é posssivel criar rotina para varias textbox ao mesmo tempo?

Enviado: Sex Mai 18, 2018 8:50 am
por Mikel Silveira Fraga
Pedro, bom dia.

Cara, peguei apenas o seu código e transportei para multiuso, nada mais.

Podemos dar uma melhorada nisso, mas seria interessante você descrever, em detalhes, exatamente o que é esperado de resultado. Eu não sei exatamente o que você quer que seja feito com essa rotina e nem o tipo de formatação esperado.

Aguardo retorno.

Re: é posssivel criar rotina para varias textbox ao mesmo tempo?

Enviado: Ter Jun 12, 2018 1:29 pm
por pedro_mexico
Mikel Silveira Fraga escreveu: Sex Mai 18, 2018 8:50 am Pedro, bom dia.

Cara, peguei apenas o seu código e transportei para multiuso, nada mais.

Podemos dar uma melhorada nisso, mas seria interessante você descrever, em detalhes, exatamente o que é esperado de resultado. Eu não sei exatamente o que você quer que seja feito com essa rotina e nem o tipo de formatação esperado.

Aguardo retorno.
boa tarde Mikel Silveira Fraga
o exemplo que deu tem um pouco do que quero, mas passo a explicar melhor.
tenho uma userform que tem umas textboxs que recebem os valores da panilha e eu queria que ao abrir o formulario e se os valores na panilha "mapa Viaturas" coluna G e M estiverem <3000 as textboxs que recebem os valores ficassem com o fundo amarelo , <1500 fundo a vermelho.

o codigo que coloquei acima , faz isso textbox a textbox, mas queria saber se existe algo mais rapido e melhor como voce enviou mas em vez de ser quando coloco na textbox(textbox change) o valor seria quando ela inicia o userform (initialize).
envio ficheiro em anexo.
obrigado