Bonjour à tous
---------------------
Comment faire pour placer des tabulations dans un ListBox,donc créer des colonnes grace à l' API Windows je cherche avec ce code mais ca ne fonctionne pas! où est mon erreur?.
=====================
' Dans un module
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
Const WM_USER = &H400
Const LB_SETTABSTOPS = WM_USER + 19
============================
' Dans le load de la form
Dim lResponse As Long
Dim nNbTab As Long
Dim nTab(5) As Long
nTab(0) = 15 ' 15 correspond a la premiere tabulation
nTab(1) = 30 ' 30 correspond a la deuxieme tabulation
....
nNbTab = 3 ' 3 correspond nombre de tabulations a
placer
lResponse = SendMessage(ListeArticles.hwnd, LB_SETTABSTOPS, nNbTab, nTab(0))
Merci .
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement