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

 

  Dicas

  Visual Basic    (Controles Intrínsecos (Padrão))

Título da Dica:  Multiplas Colunas em um ListBox
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  milinha_meiga@hotmail.com
'''[CODE language=VB]
' no Módulo
Private Declare Function SendMessage Lib "user32" _
        Alias "SendMessageA" (ByVal hwnd As Long, _
        ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Any) As Long

Private Const LB_SETTABSTOPS = &H192

Public Sub ListColumns(lListHandle As Long)
  Dim iNumColumns As Long
  
  ' Coloque o nº de colunas que o ListBox e terá -1 no array a seguir:
  Dim iListTabs(1) As Long
  Dim Ret As Long
  
  ' O ListBox terá 2 colunas
  iNumColumns = 2
  
  ' A 1º coluna terá 24 caracteres e a 2º 48
  ' 24 caracteres * 4 = 96
  iListTabs(0) = 96 ' 96/4 = 24 caracteres
  ' 48 caracteres * 4 = 192
  iListTabs(1) = 192 ' 192/4 = 48 caracteres
  
  Ret = SendMessage(lListHandle, _
  LB_SETTABSTOPS, iNumColumns, iListTabs(0))
End Sub

Private Sub Command1_Click()
   ' P/ adicionar os ítens faça da seguinte maneira:
   List1.AddItem "Coluna 1" & vbTab & "Coluna 2"
  
   ' Por exemplo (seguindo o nome da ListBox passado p/ a função no Form_Load):
   List2.AddItem "Coluna 1 data1" & vbTab & "Coluna 02 data1"
   List2.AddItem "Coluna 01 data2" & vbTab &"Coluna 02 data2"
   List2.AddItem "Coluna 001 data3" & vbTab & "Coluna 02 data3"
   List2.AddItem "Coluna 0001 data4" & vbTab & "Coluna 02 data4"

End Sub

' No Form_Load:
Private Sub Form_Load()
  ' lListHandle é o handle da ListBox
  Call ListColumns(List2.hwnd)
End Sub
'''[/CODE]
 


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