Usando Access

Alinhar valores à direita em uma Listbox

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

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 - Aprenda sobre filtragens

Vídeo - Segurança máxima, usando o OPEN

Uma ajuda para quem está começando um negócio ou um projeto

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Programação de relatórios - Parte 1

Integrando o Access com Servidor MySQL - Introdução

Como carregar o seu menu sem que ele vá para lista de suplementos

Adquira o kit UsandoAccess e aprenda em alta velocidade

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |