|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Controles Intrínsecos (Padrão))
|
|
 |
Título da Dica: Multiplas Colunas em um ListBox
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
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]
|
|
|
|
|
