ALINHA LISTBOX A DIREITA
Amigos Alguém Sabe como faço para Alinha o ListBox a Direita ... mais eu queria que só ficase a Direita o Sinistrado ....pois do jeito que esta fica um nome aqui outro mais pra tras e assim vai " dependendo do nome do Segurado fica cada um em um posicão .. e eu queria que ficasse um embaixo do outro com o Segurado
Lstmostrar.AddItem Sinistro("Segurado") & vbTab & vbTab & vbTab & Sinistro("Sinistrado")
Lstmostrar.AddItem Sinistro("Segurado") & vbTab & vbTab & vbTab & Sinistro("Sinistrado")
Eu defino a fonte do list para uma de tamanho fixo (como Courier New, por exemplo) ae é só controlar usando os Len e os String$.
pode me mostrar como vc faria com len
eu tentei assim mais não mostrar os nomes só mostrar o numeros de letras digitadas em cada segurado ..
sera que dá pra definir tipo Len(70) ai o Sinistro Ficaria um em baixo do outro mais eu não consigo ele só aparece o numeros de letras digitada ...
Lstmostrar.AddItem Len(Sinistro("Segurado")) & vbTab & vbTab & vbTab & Sinistro("Sinistrado")
sera que dá pra definir tipo Len(70) ai o Sinistro Ficaria um em baixo do outro mais eu não consigo ele só aparece o numeros de letras digitada ...
Lstmostrar.AddItem Len(Sinistro("Segurado")) & vbTab & vbTab & vbTab & Sinistro("Sinistrado")
Ninguem Pd me ajudar ...?? eu tenho um ListBox e nele eu estou atribuindo dois valores Segurado e Sinistrado eu queria deixar o Sinistrado um Em Baixo do Outro
Segurado Sinistrado
Alexandre Aparecido de Almeida Luiza Aparecida de Almeida
Carlos Lopes Rita de Cassia
Segurado Sinistrado
Alexandre Aparecido de Almeida Luiza Aparecida de Almeida
Carlos Lopes Rita de Cassia
Propar, eu desenvolvir duas Functions para alinhamento de Strings, que server para alinha listbox, nas impressões em geral e etc.
Pege ai...
'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
Voce usa assim:
List1.additem RSeta "Blablabla", 12)
Valeu
Pege ai...
'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
Voce usa assim:
List1.additem RSeta "Blablabla", 12)
Valeu
sSegurado1 = "Jean Jedson Adriano"
sSinistrado1 = "Joaquim da Silva"
sSegurado2 = "Joaquim da Silva"
sSinistrado2 = "Jean Jedson Adriano"
MsgBox Left(sSegurado1 & Space(30), 30) & Right(Space(30) & sSinistrado1, 30) & vbCrLf & Left(sSegurado2 & Space(30), 30) & Right(Space(30) & sSinistrado2, 30)
por ai vc tem um exemplo...
sSinistrado1 = "Joaquim da Silva"
sSegurado2 = "Joaquim da Silva"
sSinistrado2 = "Jean Jedson Adriano"
MsgBox Left(sSegurado1 & Space(30), 30) & Right(Space(30) & sSinistrado1, 30) & vbCrLf & Left(sSegurado2 & Space(30), 30) & Right(Space(30) & sSinistrado2, 30)
por ai vc tem um exemplo...
lembrando que considerei que o tamanho de seus campos no banco são de apenas 27 posições. as 3 restantes servem para, depois de juntar, deixar 6 espaços em branco entre os dois campos... entende?
amigos dar espaço não me serve pq na mesma lista e na mesma linha eu estou incluido dois Nomes como pode ver
Alexandre Aparecido de Almeida Luiza Aparecida de Almeida
Carlos Lopes Rita de Cassia
se eu der espaco ele fica dessa forma pq na linha um 30 caracter no nome alexandre mais os espaco fica assim ... e na linha dos tem 12 caracter mais os mesmos espaco da linha 1 fica dessa forma desalinhado .... tem um jeito de determinar que todos Sinistro comecem apartir da string(50) sei lá ... um jeito de alinha
Alexandre Aparecido de Almeida Luiza Aparecida de Almeida
Carlos Lopes Rita de Cassia
se eu der espaco ele fica dessa forma pq na linha um 30 caracter no nome alexandre mais os espaco fica assim ... e na linha dos tem 12 caracter mais os mesmos espaco da linha 1 fica dessa forma desalinhado .... tem um jeito de determinar que todos Sinistro comecem apartir da string(50) sei lá ... um jeito de alinha
olhe o código que passei... eu estou truncando os nomes com 30 posições... se vc tem os seus campos com 50, faça o teste no exemplo que te mandei modificando 30 por 50... e verá que funciona como vc quer... vai lá... naun custa nada...
jean não adiantou está da mesma forma ...
Tópico encerrado , respostas não são mais permitidas