USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  conteúdo do listbox alinhado a direita
lu_sandman
CAMPINAS
SP - BRASIL
Postada em 19/10/2005 07:29 hs         
bom dia pessoal,
 
como alinhar o conteúdo de um listbox (formato moeda) a sua direita?
 
obrigado
     
rdeletric
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 19/10/2005 12:11 hs            
'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...
     
lu_sandman
CAMPINAS
SP - BRASIL
Postada em 21/10/2005 08:25 hs         
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
     
rdeletric
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 21/10/2005 10:59 hs            
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...
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página