MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

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

    Mensagem  Assis em 11/6/2020, 10:51

    Bom dia Amigos

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

    Como ??

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 11/6/2020, 20:35

    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
    Anexos
    [Resolvido]Ajustar tamanho da caixa de texto aos caracteres digitados AttachmentAutoAjustaCaixaTexto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 12 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

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

    Mensagem  Assis em 12/6/2020, 12:25

    Obrigado Damasceno


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6757
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 12/6/2020, 14:46

    Olá a todos,

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

    cheers
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

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

    Mensagem  Assis em 12/6/2020, 16:04

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


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 12/6/2020, 23:13

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

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

    Mensagem  Assis em 13/6/2020, 01:30

    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.


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 13/6/2020, 02:10

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6757
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 13/6/2020, 10:17

    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.

    cheers
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

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

    Mensagem  Assis em 13/6/2020, 10:26

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


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6757
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 14/6/2020, 00:13

    scratch
    lol!

      Data/hora atual: 5/7/2020, 21:08