bom dia pessoal,

 

como alinhar o conteúdo de um listbox (formato moeda) a sua direita?

 

obrigado

'no modulo cole:
Public Function RSeta(strCampo As String, intTamanho As Integer, Optional intEspacos As Integer) As String
   'Funcao que alinha a string a direita
   RSeta = Right(Space(CInt(intTamanho) - _
   Len(Right(CStr(RTrim(strCampo)), CInt(intTamanho)))) & _
   RTrim(strCampo), CInt(intTamanho)) & Space(CInt(intEspacos))
End Function

Public Function LSeta(strCampo As String, intTamanho As Integer, Optional intEspacos As Integer) As String
   'Funcao que alinha a string a esquerda
   LSeta = Left(LTrim(strCampo) & _
   Space(CInt(intTamanho) - Len(Left(CStr(LTrim(strCampo)), _
   CInt(intTamanho)))), CInt(intTamanho)) & Space(CInt(intEspacos))
End Function

 

 

'Chamar função:

List1.AddItem RSeta("Blablabla", 40) ' onde o 40 é o deslocamento

 

 

té mais...

obrigado pela ajuda.. isso dá certo, mas eu preciso de uma maneira de alinha a direita sem utilizar espaços, por tenho uma função que calcula os valores deste listbox e não pode haver outro valor dentro do listbox a não ser valores numéricos... com os espaços a função de cálculo dá erro...

 

se alguém souber outra maneira de alinhar o conteúdo do listbox a direita, sem utilizar espaços, por favor poste aí..

 

mas mesmo assim obrigado

Caro Amigo o ListBox não tem nenhum recurso interno para isso, vê se esta te agrada ela serve para se alinhar um texto pela direita em uma máscara de espaços:

 

Dim nome As String

nome = Space(20)
RSet nome = "teste1"
List1.AddItem nome
RSet Mascara = "teste2"
List1.AddItem nome

 

té mais...