ALINHA LISTBOX A DIREITA

WHELLNET 08/06/2005 16:12:00
#87792
Eu faço assim proprer, digamos que vc tem os nomes
Segurados
André [5]
Carlos [6]
Hildebrando [11]
Sinistrados
Luiz [4]
Golçalves [9]
Pereira [7]

Ae vc pode criar um função desta forma
Private Sub Adiciona(Segurado As String, Sinistrado As String)
List1.AddItem Segurado & String$(20 - Len(Segurado) + 20 - Len(Sinistrado), " ") & Sinistrado
End Sub


Repare que deixei 20 espaços para cada campo (segurado e sinistrado) ae vc pode colocar mais ou menos, mas se a qtde de caracteres do campos for menor q o valor informado vai dar um errinho.

Veja se é isso que vc quer
JEAN.JEDSON 08/06/2005 16:34:45
#87803
como vc fez? pode postar? chegou a rodar o exemplo que eu mandei? ele não mostrou certo na tela?
JEAN.JEDSON 08/06/2005 16:36:11
#87804
pelo menos aqui, quando eu fiz... ele mostrou na tela ok...
PROPAR 08/06/2005 16:38:48
#87806
Jean não mostrou da mesma forma .. se eu aumentar de 30 pra 50 ou outro ele se move porém não linha pq eles movem todos juntos e como está desalinhado permanece...
JEAN.JEDSON 08/06/2005 16:47:33
#87809
da forma que te mandei, deve mostrar

Jean Jedson Adriano Joaquim da Silva
Joaquim da Silva Jean Jedson Adriano

ou seja, alinhando segurado pela esquerda, sinistrado pela direita...

qual o tamanho de seus campos no banco de dados?
PROPAR 08/06/2005 16:51:33
#87811
sim mais esse é o problema o sinistrado tinha que fica um embaixo do outro como no Segurado

tinha que ficar assim ...

Segurado Sinistrado
Jean Jedson Adriano Joaquim da Silva
Joaquim da Silva Jean Jedson Adriano
JEAN.JEDSON 08/06/2005 16:58:28
#87812
ahhh
então tente assim: num form, insira um textbox com as propriedades multiline=true, e a fonte como courier... e no evento load do form, use este código

sSegurado1 = "Jean Jedson Adriano"
sSinistrado1 = "Joaquim da Silva"
sSegurado2 = "Joaquim da Silva"
sSinistrado2 = "Jean Jedson Adriano"

Text1 = Left(sSegurado1 & Space(30), 30) & Left(sSinistrado1 & Space(30), 30) & vbCrLf & Left(sSegurado2 & Space(30), 30) & Left(sSinistrado2 & Space(30), 30)



ou seja, no teu caso, o listbox deve ter a fonte definida como courier tbm
FABIO.ALEXANDRE 09/06/2005 01:15:42
#87898
TENTA ASSIM

Private Sub Command1_Click()
List1.Clear
List1.Font = "COURIER NEW"
For VAI = 0 To 100
List1.AddItem Space(Abs(ScaleX(List1.Width, 1, 4) - Len(Text1 & String(5, " ") & Text2))) & Text1 & String(5, " ") & Text2
Next

End Sub


ESPERO TER AJUDADO
PROPAR 09/06/2005 09:13:37
#87929
Jean Valeu deu Certo eu Mudei a o tipo da letra e deu certo..Muito Obrigado Pela Atenção ....
Página 2 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar