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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Alinhando itens em um ListBox
Postada em 21/10/2002 por Ronaldo      Clique aqui para enviar email para o autor  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
 


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