Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Alinhar na terceira a direita Como?
Alinhar na terceira a direita Como?
Obrigado por ter respondido, eu até ja tinha feito por este exemplo, não sei se eu fiz certo mas, no meu caso eu percebi que eles alinhavam a direita até aquela quantidade de linhas do exemplo, talvez tivesse escrito código errado, vou pedir uma explicação quando não tenho planilha digitando direto na TextBox para o ListBox na terceira coluna valor, se puder me ajudar, pois quebrei a cabeça e estou achando que não tem jeito, segue o exemplo abaixo sendo a terceira coluna como valor as duas primeiras são letras.
- Anexos
-
- TextBox para ListBox Dê Enter na terceiro textbox.rar
- Como alinhar a direita assim?
- (19.84 KiB) Baixado 195 vezes
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Alinhar na terceira a direita Como?
Como diria no TC2º++>"Vamos pensar"<++
no seu tópico anterior (https://www.tomasvasquez.com.br/forum/v ... =20&t=7332)
"disse":
..."configurar o listbox com uma fonte regular"..., seu modelo não foi "configurado".
..."Defina o tamanho (quantidade de caracteres)"..., voce não definiu/informou
..."Na linha de inclusão desse(s) itens efetuar a "manobra"..., aparentemente não fez/efetuou
experimente:
no seu tópico anterior (https://www.tomasvasquez.com.br/forum/v ... =20&t=7332)
"disse":
..."configurar o listbox com uma fonte regular"..., seu modelo não foi "configurado".
..."Defina o tamanho (quantidade de caracteres)"..., voce não definiu/informou
..."Na linha de inclusão desse(s) itens efetuar a "manobra"..., aparentemente não fez/efetuou
experimente:
Código: Selecionar todos
Function retornaUserForm1(ByVal vCodigo As String)
Dim i As Integer
Dim vlr As String
'pre formata o campo desejada da forma esperada
vlr = Format(TextBox3.Text, "###,##0.00")
'obtem qtde de itens no listbox
i = Me.ListBox1.ListCount
'inclui os itens no listbox
Me.ListBox1.AddItem
ListBox1.List(i, 0) = TextBox1.Text
ListBox1.List(i, 1) = TextBox2.Text
'inclui o campo desejado "alinhado" a esquerda tamanho de 15 caracteres
ListBox1.List(i, 2) = Space(15 - Len(vlr)) & vlr
'limpa as txt1s
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Function
Re: Alinhar na terceira a direita Como?
RobertoCM,
Parece que a dúvida foi iniciada em outro tópico. Se este for o caso, peço que mantenha a discussão no mesmo sem criar outros. Com isso, o assunto se perde e o fórum fica bagunçado com tópicos sem sentido.
Parece que a dúvida foi iniciada em outro tópico. Se este for o caso, peço que mantenha a discussão no mesmo sem criar outros. Com isso, o assunto se perde e o fórum fica bagunçado com tópicos sem sentido.