Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Alinhar na terceira a direita Como?

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
RobertoCM
Colaborador
Colaborador
Mensagens: 51
Registrado em: Sáb Set 28, 2019 9:57 am

Alinhar na terceira a direita Como?

Mensagem por RobertoCM »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
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?

Mensagem por Reinaldo »

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:

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


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Alinhar na terceira a direita Como?

Mensagem por webmaster »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder