Alinhar valores à direita em uma Listbox
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Em uma Listbox, os números ficam alinhados à esquerda, conforme você pode observar na indicação da seta abaixo:
Para alinhar os números à direita, além de programação é preciso utilizar fontes de tamanho padronizado, tais como a Courier e a Consolas. A fonte que utilizei é a Courier.
Em um módulo global acrescente o seguinte código:
Public Function fncAjustaCampo(varCampo) As String Dim j As Byte varCampo = Format(varCampo, "#,##0.00") j = Len(Replace(varCampo, ",", "") & "") fncAjustaCampo = Space(9 - j) & varCampo End Function
Basicamente, o que este código faz é acrescentar espaços à esquerda, de acordo com o comprimento de cada valor. A função Space() é a encarregada de acrescentar esses espaços. Utilizei como referência 9 espaços totais (99.999,99), incluindo o ponto e a vírgula.
Aplicamos a função fncAjustaCampo(), no código que carrega a Listbox. Atenção para a parte em vermelho:
Private Sub Form_Load() dim strSql$ strSql = "SELECT IdEstoque,Peça,fncAjustaCampo([valorPeça]) As ValorP, " strSql = strSql & "iif(Descontinuado=-1,ChrW$(10007),'') FROM tblEstoque " strSql = strSql & "ORDER BY [Peça];" Me!Lista2.RowSource = strSql End Sub
Veja o resultado na figura abaixo:
Baixe o exemplo da dica 71 e bom estudo!
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Vídeo - Aprenda sobre filtragens
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Adquira o kit UsandoAccess e aprenda em alta velocidade
Integrando o Access com Servidor MySQL - Introdução
Como carregar o seu menu sem que ele vá para lista de suplementos
1 comentário(s) Francirley Santos 20/07/2017 06:45:22 Obrigado pela dica, me serviu muito bem... |