|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Alinhando itens em um ListBox
|
 |
|
|
|
Postada em 21/10/2002 por Ronaldo
ronaldovoito@bol.com.br
Option Explicit
Private Const LB_SETTABSTOPS = &H192
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 Sub form_load()
Dim Tabs(1 To 8) As Long
Tabs(1) = 0
Tabs(2) = 90 'Onde 0,e 90,e 130, é o numero de caracteres'
Tabs(3) = 130
SendMessage List1.hwnd, LB_SETTABSTOPS, 3, Tabs(1)
List1.AddItem "Romeu" & vbTab & "julieta" & vbTab & "Titanic"
End Sub
|
|
|
|
|
