O sistema operacional Windows se baseia em uma constante troca de mensagens entre o que o usuário faz no computador ou sobre outros eventos que acontecem sem o conhecimento do usuário. Por exemplo, para ler o conteúdo de uma caixa de texto , o Windows envia uma mensagem WM_GETTEXT . Visual Basic (VB) simplifica a programação porque o escritor código não tem que escrever código detalhado para fazer isso acontecer . No entanto, há limites para a capacidade do Visual Basic para trabalhar com todas as mensagens necessárias . API ( Application Programming Interface ) funções podem ignorar essas limitações. Para demonstrar o processo , os seguintes passos utilizar uma função API para ligar uma caixa de listagem em uma tabela de quatro colunas . Coisas que você precisa
Visual Basic ou Visual Basic Express
Show Mais instruções
1

Abra o Visual Basic, clique em "Arquivo " "New Project " e selecione " Standard EXE "a partir da lista de modelos .
2

clique duas vezes no " controle de caixa de listagem "no painel Toolbox do lado esquerdo para colocar esse controle no formulário. Use as alças de arrasto (o caixinhas quadradas nos cantos e meio da caixa ) para aumentar o tamanho para preencher cerca de 3 /4 do formulário.
3

Clique em "Exibir " " código " para abrir a janela de código. Digite o seguinte como uma longa linha: Private Declare Function SendMessage Lib " user32 " Alias ​​" SendMessageA " (ByVal hWnd As Long , ByVal wMsg As Long , ByVal wParam As Long , ByVal lParam As Long ) As Long
4

Digite o seguinte abaixo o texto na Etapa 3: Private Sub Form_Load ( ) Dim abas ( 1 a 3) Como Longtabs (1) = 20: abas (2) = 50: abas (3) = 50SendMessage List1.hWnd , LB_SETTABSTOPS , 3, guias (1) List1.AddItem "1" e vbTab e "Janeiro" e vbTab & "2009" e vbTab e "Itália" List1.AddItem "2" e vbTab & vTab e "Fevereiro" e vbTab & " 2009 "& vbTab &" França " List1.AddItem " 3 " e vbTab & " Março " e vbTab & " 2009 " e vbTab e " Espanha " End Sub
5

Pressione" F5 "para ver o resultado . Você deverá ver quatro colunas com números, meses , datas e lugares. Se não, verifique novamente o código no Passo 3 .