ListView Howto

[metro]

This is the best way I've found, thanks to Brandon


'Insert code here
NoMainWin
Global False : False = 0
Global True : True = 1
Global currentRow : currentRow = 0

listViewHandle(0) = _NULL


Call initializeListViewConstants

WindowWidth = 530
WindowHeight = 335
Button #Example.btnAddItem, "Add Item", AddItem, UL, 5, (WindowHeight - 65)
Button #Example.btnEditItem, "Edit Item", EditItem, UL, 202.5, (WindowHeight - 65)
Button #Example.btnDeleteItem, "Delete Item", DeleteItem, UL, 405, (WindowHeight - 65)

Open "ListView Example" For Window As #Example
Call InitCommonControls
style = _WS_CHILD Or _WS_VISIBLE Or listViewConstants.LVS.NOSORTHEADER.struct _
Or listViewConstants.LVS.REPORT.struct Or listViewConstants.LVS.SHOWSELALWAYS.struct _
Or listViewConstants.LVS.SINGLESEL.struct
styleEx = _WS_EX_CLIENTEDGE Or _WS_EX_DLGMODALFRAME 'Or listViewConstants.LVS.EX.DOUBLEBUFFER.struct
listViewHandle(0) = CreateListView(style, styleEx, Hwnd(#Example), GetWindowLong(Hwnd(#Example), _GWL_HINSTANCE), 5, 23, 505, 244)
result = setListViewFullRowSelect(listViewHandle(0))
result = listViewShowGrid(listViewHandle(0))
result = createNewListColumn(listViewHandle(0), 0, 100, " Item 1")
result = createNewListColumn(listViewHandle(0), 1, 100, " Item 2")
result = createNewListColumn(listViewHandle(0), 2, 100, " Item 3")
#Example "TrapClose Quit"

While Hwnd(#Example)
Scan

Wend

Sub Quit handle$
result = DestroyWindow(listViewHandle(0))
Close #handle$
End
End Sub



Sub AddItem handle$
result = AddListViewData(listViewHandle(0), currentRow, 0, "Data1")
result = EditListViewData(listViewHandle(0), currentRow, 1, "Data2")
result = EditListViewData(listViewHandle(0), currentRow, 2, "Data3")
result = SelectListViewRow(listViewHandle(0), currentRow, True)
currentRow = (currentRow + 1)
End Sub

Sub EditItem handle$
numListViewEntries = GetListViewItemCount(listViewHandle(0))
If Not(numListViewEntries) Then Exit Sub
row = GetSelectedListViewRow(listViewHandle(0))
item1$ = GetListViewText$(listViewHandle(0), row, 0)
item2$ = GetListViewText$(listViewHandle(0), row, 1)
item3$ = GetListViewText$(listViewHandle(0), row, 2)

result = EditListViewData(listViewHandle(0), row, 0, GetListViewText$(listViewHandle(0), row, 0) + " Edited")
result = EditListViewData(listViewHandle(0), row, 1, GetListViewText$(listViewHandle(0), row, 1) + " Edited")
result = EditListViewData(listViewHandle(0), row, 2, GetListViewText$(listViewHandle(0), row, 2) + " Edited")

result = SelectListViewRow(listViewHandle(0), row, True)
End Sub

Sub DeleteItem handle$
numListViewEntries = GetListViewItemCount(listViewHandle(0))
If Not(numListViewEntries) Then Exit Sub
row = GetSelectedListViewRow(listViewHandle(0))
result = SendMessageLVITEMStruct(listViewHandle(0), listViewConstants.LVM.DELETEITEM.struct, row)
currentRow = (currentRow - 1)
End Sub

Sub InitCommonControls
CallDLL #comctl32, "InitCommonControls", ret As void
End Sub

Sub initializeListViewConstants
'Create the structs for ListViews

Struct LVITEM, mask As ulong, _
iItem As long, _
iSubItem As long, _
state As ulong, _
stateMask As ulong,_
pszText As ptr, _
cchTextMax As long, _
iImage As long, _
lParam As long, _
iIndent As long

Struct LVCOLUMN, mask As ulong, _
fmt As long, _
cx As long, _
pszText As ptr, _
cchTextMax As long, _
iSubItem As long, _
iImage As long, _
iOrder As long

Struct LVFINDINFO, flags As ulong, _
psz As ptr, _
lParam As ulong, _
pt As ulong, _ 'point structure
vkDirection As ulong

Struct listViewConstants, LVP.DBLCLK As long, _
LVS.REPORT As long, _
LVS.SINGLESEL As long, _
LVS.SHOWSELALWAYS As long, _
LVS.NOSORTHEADER As long, _
LVS.EXDOUBLEBUFFER As long, _
LVS.EX.FULLROWSELECT As long, _
LVS.EX.CHECKBOXES As long, _
LVIS.FOCUSED As long, _
LVIS.UNSELECTED As long, _
LVIS.SELECTED As long, _
LVIS.CHECKED As long, _
LVIS.UNCHECKED As long, _
LVIS.STATEIMAGEMASK As long, _
LVIF.TEXT As long, _
LVIF.STATE As long, _
LVIR.BOUNDS As long, _
LVFI.STRING As long, _
LVFI.PARTIAL As long, _
LVN.ITEMCHANGED As long, _
LVM.ENSUREVISIBLE As long, _
LVM.SETITEMSTATE As long, _
LVM.GETITEMSTATE As long, _
LVM.GETITEMTEXT As long, _
LVM.FINDITEMA As long, _
LVM.SETITEM As long, _
LVM.GETITEMCOUNT As long, _
LVM.GETITEMA As long, _
LVM.GETSUBITEMRECT As long, _
LVM.DELETEITEM As long, _
LVM.INSERTITEM As long, _
LVM.INSERTCOLUMN As long, _
LVM.SETEXTENDEDLISTVIEWSTYLE As long

'LVM_FIRST = &H1000 or 4096
listViewConstants.LVP.DBLCLK.struct = False
listViewConstants.LVS.REPORT.struct = 1
listViewConstants.LVS.SINGLESEL.struct = 4
listViewConstants.LVS.SHOWSELALWAYS.struct = 8
listViewConstants.LVS.NOSORTHEADER.struct = 32768
listViewConstants.LVS.EXDOUBLEBUFFER.struct = 10000
listViewConstants.LVS.EX.FULLROWSELECT.struct = 32
listViewConstants.LVS.EX.CHECKBOXES.struct = 4
listViewConstants.LVIS.FOCUSED.struct = 1
listViewConstants.LVIS.UNSELECTED.struct = 0
listViewConstants.LVIS.SELECTED.struct = 2
listViewConstants.LVIS.CHECKED.struct = 8192
listViewConstants.LVIS.UNCHECKED.struct = 4096
listViewConstants.LVIS.STATEIMAGEMASK.struct = 61440
listViewConstants.LVIF.TEXT.struct = 1
listViewConstants.LVIF.STATE.struct = 8
listViewConstants.LVIR.BOUNDS.struct = 0
listViewConstants.LVFI.STRING.struct = 2
listViewConstants.LVFI.PARTIAL.struct = 8
listViewConstants.LVN.ITEMCHANGED.struct = -101
listViewConstants.LVM.ENSUREVISIBLE.struct = 4115
listViewConstants.LVM.SETITEMSTATE.struct = 4139
listViewConstants.LVM.GETITEMSTATE.struct = 4140
listViewConstants.LVM.GETITEMTEXT.struct = 4141
listViewConstants.LVM.FINDITEMA.struct = 4109
listViewConstants.LVM.SETITEM.struct = 4102
listViewConstants.LVM.GETITEMCOUNT.struct = 4100
listViewConstants.LVM.GETITEMA.struct = 4101
listViewConstants.LVM.GETSUBITEMRECT.struct = 4152
listViewConstants.LVM.DELETEITEM.struct = 4104
listViewConstants.LVM.INSERTITEM.struct = 4103
listViewConstants.LVM.INSERTCOLUMN.struct = 4123
listViewConstants.LVM.SETEXTENDEDLISTVIEWSTYLE.struct = 4150
End Sub


Function CreateListView(ByRef style, ByRef styleEx, ByRef hParent, ByRef hInstance, ByRef xloc, ByRef yloc, ByRef width, ByRef height)
className$ = "SysListView32" + chr$(0)
CallDLL #user32, "CreateWindowExA", styleEx As ulong, _ ' extended style
className$ As ptr, _ ' class name
"" As ptr, _
style As ulong, _ ' style
xloc As long, _ ' left x
yloc As long, _ ' top y
width As long, _ ' width
height As long, _ ' height
hParent As ulong, _ ' parent hWnd
_NULL As ulong, _
hInstance As ulong, _ ' hInstance
_NULL As ulong, _
CreateListView As ulong 'Hwnd to ListView

'LVCF.WIDTH = 2 : LVCF.TEXT = 4
LVCOLUMN.mask.struct = LVCF.WIDTH OR LVCF.TEXT
End Function

Function GetWindowLong(hWnd, index)
CallDLL #user32, "GetWindowLongA", hWnd As ulong, _
index As long, _
GetWindowLong As long
End Function

Function GetListViewItemCount(hWndLV)
GetListViewItemCount = SendMessage(hWndLV, listViewConstants.LVM.GETITEMCOUNT.struct, 0, 0)
End Function

Function createNewListColumn(hListView, columnIndex, columnWidth, headerCaption$)
LVCOLUMN.cx.struct = columnWidth
LVCOLUMN.pszText.struct = headerCaption$
LVCF.WIDTH = 2 : LVCF.TEXT = 4
LVCOLUMN.mask.struct = LVCF.WIDTH OR LVCF.TEXT
createNewListColumn = SendMessageLVCOLUMNStruct(hListView, listViewConstants.LVM.INSERTCOLUMN.struct, columnIndex)
End Function

Function AddListViewData(hWndLV, row, column, myData$)
LVITEM.mask.struct = listViewConstants.LVIF.TEXT.struct
LVITEM.iItem.struct = row
LVITEM.iSubItem.struct = column
LVITEM.pszText.struct = myData$
result = SendMessageLVITEMStruct(hWndLV, listViewConstants.LVM.INSERTITEM.struct, 0)
AddListViewData = SendMessage(hWndLV, listViewConstants.LVM.GETITEMSTATE.struct, 0, 0)
End Function

Function EditListViewData(hWndLV, row, column, myData$)
LVITEM.mask.struct = listViewConstants.LVIF.TEXT.struct
LVITEM.iItem.struct = row
LVITEM.iSubItem.struct = column
LVITEM.pszText.struct = myData$
EditListViewData = SendMessageLVITEMStruct(hWndLV, listViewConstants.LVM.SETITEM.struct, 0)
End Function

Function SelectListViewRow(hWndLV, row, setFocus)
LVITEM.iItem.struct = row
LVITEM.iSubItem.struct = 0
LVITEM.mask.struct = listViewConstants.LVIF.STATE.struct
LVITEM.state.struct = listViewConstants.LVIS.SELECTED.struct
If setFocus = True Then
LVITEM.state.struct = (LVITEM.state.struct Or listViewConstants.LVIS.FOCUSED.struct)
End If
'SelectListViewRow = SetFocus(hWndLV)
SelectListViewRow = SendMessage(hWndLV, listViewConstants.LVM.ENSUREVISIBLE.struct, row, False)
SelectListViewRow = SendMessageLVITEMStruct(hWndLV, listViewConstants.LVM.SETITEM.struct, 0)
End Function

Function setListViewFullRowSelect(hListView)
setListViewFullRowSelect = SendMessage(hListView, 4150, 32, 32)'LVS_EX_FULLROWSELECT
End Function

Function listViewShowGrid(hListView)
listViewShowGrid = SendMessage(hListView, 4150, 1, 1)'LVS_EX_GRIDLINES
End Function

Function SendMessage(hWnd, Msg, wParam, lParam)
CallDLL #user32, "SendMessageA" , hWnd As ulong, _
Msg As long, _
wParam As long, _
lParam As long, _
SendMessage As long
End Function

Function SendMessageLVITEMStruct(hWnd, Msg, wParam)
CallDLL #user32, "SendMessageA" , hWnd As ulong, _
Msg As long, _
wParam As long, _
LVITEM As struct, _
SendMessageLVITEMStruct As long
End Function

Function SendMessageLVCOLUMNStruct(hWnd, Msg, wParam)
CallDLL #user32, "SendMessageA" , hWnd As ulong, _
Msg As long, _
wParam As long, _
LVCOLUMN As struct, _
SendMessageLVCOLUMNStruct As long
End Function

Function DestroyWindow(hWnd)
CallDLL #user32, "DestroyWindow", hWnd As ulong, _
DestroyWindow As long
End Function

Function GetSelectedListViewRow(hWndLV)
GetSelectedListViewRow = -1

numListViewEntries = GetListViewItemCount(hWndLV)
For row = 0 To (numListViewEntries - 1)
LVITEM.mask.struct = listViewConstants.LVIF.STATE.struct
LVITEM.iItem.struct = row
LVITEM.iSubItem.struct = 0 'first column
LVITEM.stateMask.struct = listViewConstants.LVIS.SELECTED.struct
result = SendMessageLVITEMStruct(hWndLV, listViewConstants.LVM.GETITEMA.struct, 0)
If LVITEM.state.struct And listViewConstants.LVIS.SELECTED.struct Then
GetSelectedListViewRow = row
Exit Function
Else
If row = (numListViewEntries - 1) Then
GetSelectedListViewRow = -1
Exit Function
End If
End If
Next row

End Function

Function GetListViewText$(hWndLV, row, column)
LVITEM.mask.struct = listViewConstants.LVIF.TEXT.struct
LVITEM.iSubItem.struct = column
LVITEM.pszText.struct = Space$(_MAX_PATH) + chr$(0)
LVITEM.cchTextMax.struct = Len(Winstring(LVITEM.pszText.struct))
EditListViewData = SendMessageLVITEMStruct(hWndLV, listViewConstants.LVM.GETITEMTEXT.struct, row)
GetListViewText$ = Trim$(Winstring(LVITEM.pszText.struct))
End Function

[metro]

Adding a double click to select a record

insert code here'This demo requires msghook.dll by Dennis McKinney
'Get it here: http://www.syberden.net/libertybelle/dlls.htm
'Alyce Watson provided the listview code.
'http://www.alycesrestaurant.com

'listview control with double click  10/09/2006 Eldron Gill

'constants
LVS.NOSORTHEADER = 32768
LVS.REPORT = 1
LVS.SINGLESEL = 4
LVS.SHOWSELALWAYS = 8
LVS.SORTASCENDING = 16
LVS.SORTDESCENDING = 32
LVS.NOLABELWRAP = 128
LVS.AUTOARRANGE = 256
LVS.NOSCROLL = 8192
LVS.ALIGNTOP = 0
LVS.ALIGNLEFT = 2048
LVS.NOCOLUMNHEADER = 16384
LVIF.TEXT = 1
LVIF.STATE = 8
LVIS.UNSELECTED = 0
LVIS.FOCUSED = 1
LVIS.SELECTED = 2
LVM.FIRST = 4096
LVM.SETITEM = 4102
LVM.INSERTITEM = 4103
LVM.INSERTCOLUMN = 4123
LVM.GETITEMCOUNT = 4100
LVM.GETITEMA = 4101
LVM.GETITEMTEXTA = 4141
LVM.GETITEMSTATE = 4138
LVM.SETITEMSTATE = 4139
LVM.DELETEITEM = 4104
LVM.DELETEALLITEMS = 4105
LVCF.WIDTH = 2
LVCF.TEXT = 4
nomainwin


call Check4Dll
dim info$(0,0)
If fileExists(DefaultDir$, "msghook.dll") < 1 then
   notice ""+chr$(13)+"This demo requires msghook.dll by Dennis McKinney"+chr$(13)+_
   "Download the dll from here : http://www.syberden.net/libertybelle/dlls.htm"+chr$(13)+_
   "Place it in the folder with this code."
   End
End If


'create structs
Struct LVCOLUMN, _
       mask As ulong, _
       fmt As long, _
       cx As long, _
       pszText$ As ptr, _
       cchTextMax As long, _
       iSubItem As long, _
       iImage As long, _
       iOrder As long

Struct LVITEM, _
       mask As ulong, _
       iItem As long, _
       iSubItem As long, _
       state As ulong, _
       stateMask As ulong, _
       pszText$ As ptr, _
       cchTextMax As long, _
       iImage As long, _
       lParam As long, _
       iIndent As long

struct msg,_
   hndl as ulong,_
   message as long,_
   wParam as long,_
   lParam as long,_
   LOWORDwparam as word,_
   HIWORDwparam as word,_
   LOWORDlparam as word,_
   HIWORDlparam as word

'initialize common controls:

calldll #comctl32, "InitCommonControls",re as void

' Open a window
WindowWidth = 240: WindowHeight = 200
'UpperLeftX = 10: UpperLeftY = 10
button #1.b, "Add",[add],UL,10,10,90,24
button #1.d, "Delete",[delete],UL,120,10,90,24
button #1.GetMsgHookCallback, "", [choice], ul, 0, 0, 0, 0
statictext #1.s, "List count: 2",10,140,100,30
open "Listview Example" for dialog as #1

print #1, "trapclose [quit]"

   hwndParent = hwnd(#1)


' Get window instance handle
CallDLL #user32, "GetWindowLongA",_
       hwndParent As ulong,_        'parent window handle
       _GWL_HINSTANCE As long,_'flag to retrieve instance handle
       hInstance As ulong         'instance handle
' Create control
       style = _WS_CHILD OR _WS_VISIBLE OR LVS.NOSORTHEADER _
       OR LVS.REPORT OR LVS.SINGLESEL OR LVS.SHOWSELALWAYS

calldll #user32, "CreateWindowExA",_
       _WS_EX_CLIENTEDGE As long,_ ' extended style
       "SysListView32" as ptr,_         ' class name
       "" as ptr,_
       style as long,_                         ' style
       10 as long,_                                 ' left x
       50 as long,_                                 ' top y
       200 as long,_                                ' width
       80 as long,_                                 ' height
       hwndParent as ulong,_                 ' parent hWnd
       0 as long,_
       hInstance as ulong,_                 ' hInstance
       "" as ptr,_
       hwndLV as long                         ' listview handle
'insert  columns:
   Call InsertColumn hwndLV, 0, "Name", 105
   Call InsertColumn hwndLV, 1, "Rank", 50

'insert text for first row, first column
'requires message to insert item
       LVITEM.mask.struct = LVIF.TEXT
       LVITEM.iItem.struct = 0         'first row
       LVITEM.iSubItem.struct = 0 'first column
       LVITEM.pszText$.struct = "Carl Gundel"
       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.INSERTITEM As long, _
               0 As long, _
               LVITEM As struct, _
               r As long
'insert text for second column, first row
       LVITEM.iItem.struct = 0         'first row
       LVITEM.iSubItem.struct = 1 'second column
       LVITEM.pszText$.struct = "Expert"
       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.SETITEM As long, _ '
               0 As long, _
               LVITEM As struct, _
               r As long
'insert second row, first column
       LVITEM.iItem.struct = 1         'second row
       LVITEM.iSubItem.struct = 0 'first column
       LVITEM.pszText$.struct = "Bill Gates"
       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.INSERTITEM As long, _
               0 As long, _
               LVITEM As struct, _
               r As long
'add second column to second row
       LVITEM.iItem.struct = 1         'second row
       LVITEM.iSubItem.struct = 1 'second column
       LVITEM.pszText$.struct = "Novice"
       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.SETITEM As long, _ '
               0 As long, _
               LVITEM As struct, _
               r As long

   'full row select
   LVM.FIRST = hexdec("1000")
   LVM.SETEXTENDEDLISTVIEWSTYLE = LVM.FIRST + 54
   LVS.EX.FULLROWSELECT = hexdec("20")

       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.SETEXTENDEDLISTVIEWSTYLE As long, _ '
               LVS.EX.FULLROWSELECT As long, _
               LVS.EX.FULLROWSELECT As long, _
               r As long

   ' if you want a grid, leave next message uncommented...
       CallDll #user32, "SendMessageA" , hwndLV as uLong, 4150 as Long,_
               1 As Long, 1 As Long, re as Long '

   open "MsgHook" for dll as #MsgHook

   hMsgProc = hwnd(#1.GetMsgHookCallback)
   calldll #MsgHook, "TrapMsgFor",hwndLV as ulong, ret as boolean
   calldll #MsgHook, "WatchMsg", hwndLV as ulong, _WM_LBUTTONDBLCLK as long, ret as boolean
   hMsgProc = hwnd(#1.GetMsgHookCallback)
   calldll #user32, "GetWindowLongA",hMsgProc as ulong,_GWL_ID as short,callbackID as long
   calldll #MsgHook, "CreateGetMsgProcHook", hwndParent as ulong, callbackID as long, _
   hMsgProc as ulong, hHook as ulong

   wait

[choice] 'determine user selection

       calldll #MsgHook, "GetMsg", msg as struct, ret as void
       'get number of items in list:

       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.GETITEMCOUNT As long, _
               0 As long, _ 'always 0
               0 As long, _ 'always 0
               total As long
       for index = 0 to total-1 'check each row
               LVITEM.mask.struct = LVIF.TEXT OR LVIF.STATE
               LVITEM.iItem.struct = index 'row
               LVITEM.iSubItem.struct = 0 'first column
               LVITEM.cchTextMax.struct = 32
               LVITEM.pszText$.struct = space$(32)
               LVITEM.stateMask.struct = LVIS.SELECTED
        CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.GETITEMA As long, _
               index As long, _        'index of row
               LVITEM As struct, _
               r As long
        state = LVITEM.state.struct 'selected state of item
        if state and LVIS.SELECTED then
               txt$=winstring(LVITEM.pszText$.struct)
               notice "Selected: ";txt$
               exit for
        end if
       next
       if txt$="" then notice "No selection."
       txt$=""
       wait
[add]
       'make sure no item is in selected state:
               LVITEM.stateMask.struct = LVIS.SELECTED 'bit to set
               LVITEM.state.struct = LVIS.UNSELECTED
       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.SETITEMSTATE As long, _
               -1 As long, _ 'change applies to all items
               LVITEM As struct, _
               r As long
       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.GETITEMCOUNT As long, _
               0 As long, _ 'always 0
               0 As long, _ 'always 0
               count As long
       name$="No Name"
       prompt "Name?";name$
       if name$="" then name$="No Name"
'insert next row, first column
       LVITEM.mask.struct = LVIF.TEXT
       LVITEM.iItem.struct = count 'next row
       LVITEM.iSubItem.struct = 0 'first column
       LVITEM.pszText$.struct = name$
       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.INSERTITEM As long, _
               0 As long, _
               LVITEM As struct, _
               r As long
       level$="No Level"
       prompt "Level?";level$
       if level$="" then level$="No Level"
'add second column to row
       LVITEM.iItem.struct = count 'next row
       LVITEM.iSubItem.struct = 1 'second column
       LVITEM.pszText$.struct = level$
       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.SETITEM As long, _
               0 As long, _
               LVITEM As struct, _
               r As long
       print #1.s, "List count: ";count+1
wait


[delete]'get user selection and delete
       'get number of items in list:
       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.GETITEMCOUNT As long, _
               0 As long, _ 'always 0
               0 As long, _ 'always 0
               total As long
       for index = 0 to total-1 'check each row
               LVITEM.mask.struct = LVIF.STATE
               LVITEM.iItem.struct = index 'row
               LVITEM.iSubItem.struct = 0 'first column
               LVITEM.stateMask.struct = LVIS.SELECTED
        CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               LVM.GETITEMA As long, _
               index As long, _        'index of row
               LVITEM As struct, _
               r As long
        state = LVITEM.state.struct 'selected state of item
        if state and LVIS.SELECTED then
               CallDLL #user32, "SendMessageA", _
                       hwndLV As ulong, _
                       LVM.DELETEITEM As long, _
                       index As long, _
                       LVITEM As struct, _
                       r As long
               exit for
        end if
       next
       print #1.s, "List count: ";total-1
       wait
[quit]
calldll #MsgHook, "UnhookMsgHook", hHook as ulong, ret as void

close #MsgHook
calldll #user32, "DestroyWindow", _
       hwndLV as ulong, re as long
' Close handles.
close #1:end

'Function to determine if a file exists
function fileExists(path$, filename$)
 files path$, filename$, info$()
 fileExists = val(info$(0, 0))  'non zero is true
end function


'Sub InsertColumn hwndLV, iCol, Text$, cx
'     LVCOLUMN.mask.struct = 2 + 4 'LVCF_WIDTH + LVCF_TEXT
'     LVCOLUMN.cx.struct = cx
'    LVCOLUMN.pszText.struct = Text$
'    CallDLL #user32, "SendMessageA", _
 '   hwndLV As long, _
  '  4123 As long, _ 'LVM_INSERTCOLUMN
  '  iCol As long, _
  '  LVCOLUMN As struct, _
  '  r As long
  '  End Sub
Sub InsertColumn hwndLV, iCol, Text$, cx
     LVCOLUMN.mask.struct = 2 + 4
      LVCOLUMN.cx.struct = cx
       LVCOLUMN.pszText$.struct = Text$
       CallDLL #user32, "SendMessageA", _
               hwndLV As ulong, _
               4123 As long, _
              iCol As long, _                '0 = first column
               LVCOLUMN As struct, _
               r As long
End Sub

sub Check4Dll
dim info$(0,0)
If fileExists(DefaultDir$, "msghook.dll") < 1 then
   notice ""+chr$(13)+"This demo requires msghook.dll by Dennis McKinney"+chr$(13)+_
   "Download the dll from here : http://www.syberden.net/libertybelle/dlls.htm"+chr$(13)+_
   "Place it in the folder with this code."
End If
end sub

sub addRow row,rd$
   LVITEM.iItem.struct = row
   LVITEM.iSubItem.struct = 0
   LVITEM.pszText$.struct =word$(rd$,1,",")
   calldll #user32, "SendMessageA" , hwndListView1 as uLong, LVM.INSERTITEM as Long,_
       0 As Long, LVITEM As struct, re as Long
   for x=1 to columnIndex-1
       LVITEM.iItem.struct = row
       LVITEM.iSubItem.struct = x
       LVITEM.pszText$.struct = word$(rd$,x+1,",")
       calldll #user32, "SendMessageA" , hwndListView1 as uLong, LVM.SETITEM as Long,_
           0 As Long, LVITEM As struct, re as Long
   next x
end sub


Attachments:

MSGHOOK.C (3.92 KB)

msghook.dll (19.5 KB)