[Resolvido]Ajustar tamanho da caixa de texto aos caracteres digitados

Bom dia Amigos

Damasceno escreveu
"Até é possível codificar algo para que a caixa se ajuste à quantidade de caracteres"

Como ??

Obrigado

Se 1 carácter ocupa 0,5 centímetro, dois caracteres ocupam 1, três ocupam 1,5. Seguindo essa lógica, basta multiplicar a quantidade de carácter por 0,5 centímetro para se ter a largura da caixa de texto.

Não acho muito legal ter um objeto que pode "esticar" a ponto de sobrepor outro objeto. Melhor ter uma ideia do tamanho máximo que o objeto pode chegar e fixá-lo aí. Por isso no comentário também disse ser desnecessário.

Bom, ressalvas dadas, segue o exemplo.

Código:

'função única para ser usada por dois eventos distintos
Private Sub fncAjustaCaixa(strTexto As String)

    'a caixa de texto usa uma fonte em que cada caracter ocupa o mesmo espaço
    'a caixa está ajustada para 5 caracteres, medindo 1,095 centímetros
    'as medidas no VBA são em twips, cada centímetro vale 567 twips

    'se já tiver atingido o limite de caracteres então
    If Len(strTexto) >= 5 Then
        'a medida da caixa deve ser reajustada dando espaço para um caracter extra
        Me.Texto0.Width = (Len(strTexto) + 1) * (1.095 / 5 * 567)
    'senão
    Else
        'a caixa deve permanecer com o tamanho padrão, isto é, ajustada para 5 caracteres
        Me.Texto0.Width = 5 * (1.095 / 5 * 567)
    End If
    
    'tudo em uma linha só
    'Me.Texto0.Width = IIf(Len(strTexto) >= 5, Len(strTexto) + 1, 5) * (1.095 / 5 * 567)

End Sub

'evento "No Atual" do formulário
Private Sub Form_Current()

    Call fncAjustaCaixa(Nz(Me!Texto0.Value))
    
End Sub

'evento "Ao Alterar" da caixa de texto
Private Sub Texto0_Change()

    Call fncAjustaCaixa(Nz(Me!Texto0.Text))

End Sub


Obrigado Damasceno

Olá a todos,

Ivan Damasceno, está tudo dito, parabéns pela partilha.
Assis, não se esqueça do resolvido.

Teixeira
Algo está errado . Não fui eu que iniciei o post

Estranho Assis, é você que consta na primeira mensagem de abertura do tópico. Via das dúvidas, finalizei-o.

Damasceno

Eu dou o tópico como resolvido. Mas repare como eu iniciei o meu primeiro comentário.


Damasceno escreveu
"Até é possível codificar algo para que a caixa se ajuste à quantidade de caracteres"


Vou colocar e Resolvido.

Eu reparei. Esse trecho é da minha mensagem do tópico abaixo
https://www.maximoaccess.com/t37998-resolvidoaparece-qd-o-dado-nao-cabe-na-caixa-de-texto#259420

Ainda não entendi bem como a minha mensagem abriu o tópico automaticamente. Algo deve estar errado.

Bom, espero que o exemplos tenha ajudado em seus estudos.

Aguardamos o resolvido.

Olá a todos,

Considerando as afirmações, também não compreendo.
Mas ficou um tópico com uma bela solução à questão.
Dei como resolvido.

Teixeira
O covid 19 parece andar por aqui, pois como disse o autor deste post não fui eu ..... em frente