ab.com コミュニティ

'参考
'http://hira.hopto.org/absample1.htm#ListView
'http://www.kumei.ne.jp/c_lang/sdk2/sdk_198.htm


'拡張リストビューのチェックボックスの有無を調べるのに必要
Const LVIS_STATEIMAGEMASK = &hF000
Function ListView_GetCheckState( hListV As Long, nIndex As Long )
	ListView_GetCheckState = ( SendMessage( hListV, LVM_GETITEMSTATE, nIndex, LVIS_STATEIMAGEMASK) >> 12) - 1
EndFunction
'上記とは逆に、チェックをつける／外すを受け持つ。
Sub ListView_SetCheckState( hListV As DWord, nIndex As Long, fCheck As Long )
	Dim lvitem As LVITEM 
	With lvitem
		.stateMask = LVIS_STATEIMAGEMASK
		.state = (fCheck + 1) << 12
	End with
	SendMessage( hListV, LVM_SETITEMSTATE, nIndex, VarPtr(lvitem) )
EndSub




'リストビュー用LV_COLUMN構造体
Type LV_COLUMN
	mask As Long
	fmt As Long
	cx As Long
	pszText As String 
	cchTextMax As Long
	iSubItem As Long
End Type




'リストビュー用LV_ITEM構造体
Type LV_ITEM
	mask As Long
	iItem As Long
	iSubItem As Long
	state As Long
	stateMask As Long
	pszText As BytePtr
	cchTextMax As Long
	iImage As Long
	lParam As Long
End Type



'リストビュー用LV_DISPINFO構造体
Type LV_DISPINFO
	hdr As NMHDR
	item As LV_ITEM 
End Type




'アイテムを追加。
'Text=一番左の列に表示する文字列、hWnd=ListViewコントロールのハンドル、
'Index=アイテムの番号(通常は上から0,1,2…と通し番号にすればOK)
Sub AddListVItem( hWnd As Long, nIndex As Long, pText As BytePtr )
	Dim lvitem As LV_ITEM

    lvitem.mask = LVIF_TEXT
    lvitem.iItem = nIndex
    lvitem.pszText = pText
    lvitem.iSubItem = 0
    SendMessage( hWnd , LVM_INSERTITEM, NULL, VarPtr( lvitem ) )
End Sub



'サブアイテムを設定。
'Text=設定する文字列、hWnd=ListViewコントロールのハンドル、Index=アイテムの番号、IndexSub=列番号(一番左の列が0、2列目が1…)
Sub SetListVItem( hWnd As Long, nIndex As Long, nIndexSub As Long, pText As BytePtr )
	Dim lvitem As LV_ITEM

    lvitem.mask = LVIF_TEXT
    lvitem.iItem = nIndex
    lvitem.pszText = pText
    lvitem.iSubItem = nIndexSub
    SendMessage( hWnd , LVM_SETITEM, NULL, VarPtr( lvitem ) )
End Sub



'アイテムを追加する（サブもメインも関係なくｗ）
Sub AddListViewItem( hWnd As Long, nIndex As Long, nIndexSub As Long, pText As BytePtr )
	If( nIndexSub=0 )Then
		AddListVItem( hWnd, nIndex, pText )
	Else
		SetListVItem( hWnd, nIndex, nIndexSub, pText )
	EndIf
EndSub



'アイテムを削除。
'hWnd=ListViewコントロールのハンドル、Index=アイテムの番号
Sub DelListItem( hWnd As Long, nIndex As Long )
    SendMessage( hWnd, LVM_DELETEITEM, nIndex, 0 )
End Sub


'全アイテムを削除。
'hWnd=ListViewコントロールのハンドル
Sub DelAllListItem( hWnd As Long )
    SendMessage( hWnd, LVM_DELETEALLITEMS, NULL, NULL )
End Sub


'カラムを削除。
'hWnd=ListViewコントロールのハンドル、Index=カラムの番号。但し0(一番左のカラム)を指定することはできない。
Sub DelColumn( hWnd As Long, nIndex As Long)
    SendMessage( hWnd, LVM_DELETECOLUMN, nIndex, NULL )
End Sub


'選択されているアイテムの番号を取得。
'hWnd=ListViewコントロールのハンドル
Function FindSelListItem( hWnd As Long ) As Long
    FindSelListItem=SendMessage( hWnd, LVM_GETITEMCOUNT, -1, 2 )
	'&H100C
End Function

Dim g_hListView As DWord
Dim g_fListViewSort As Long
Const MaxPath_LV = 260


'リストビュー（hWnd）のサブインデックス（nSubIndexSort）のカラムを
'昇順（fUpDown=+1）／降順（fUpDown=-1）に並び替える。
Sub ListView_SortItems_UpDown( hWnd As DWord, nSubIndexSort As Long, fUpDown As Long )

	g_hListView = hWnd
	If( fUpDown>0 )Then
		g_fListViewSort = +1
	Else
		g_fListViewSort = -1
	EndIf
	ListView_SortItems( hWnd, AddressOf( CompareProc ), nSubIndexSort )

EndSub




'指定されたサブアイテムインデックスのカラムを並び替える
Sub ListView_SortItems( hWnd As DWord, pfnCompare As DWord, lParamSort As Long )

    SendMessage( hWnd, LVM_SORTITEMS, lParamSort, pfnCompare )

EndSub


'アイテムのインデックスを得る＋使用する構造体
Type LV_FINDINFO
	flags As DWord
	psz As BytePtr
	lParam As Long
	pt As POINTAPI
	vkDirection As DWord
EndType
Sub ListView_FindItem( hWnd As DWord, iStart As Long, ByRef plvfi As LV_FINDINFO )

	SendMessage( hWnd, LVM_FINDITEM, iStart, plvfi )

EndSub
'#define ListView_FindItem(hwnd, iStart, plvfi) \
'    (int)SNDMSG((hwnd), LVM_FINDITEM, (WPARAM)(int)(iStart), (LPARAM)(const LV_FINDINFO *)(plvfi))



'アイテムインデックスから内容を得る
Sub ListView_GetItemText( hWnd As DWord, iItem As Long, iSubItem As Long, pszText As BytePtr, cchTextMax As Long )

	Dim _ms_lvi As LV_ITEM

	_ms_lvi.iSubItem = iSubItem
	_ms_lvi.cchTextMax = cchTextMax
	_ms_lvi.pszText = pszText
	SendMessage( hWnd, LVM_GETITEMTEXT, iItem, _ms_lvi )

EndSub
'#define ListView_GetItemText(hwndLV, i, iSubItem_, pszText_, cchTextMax_) \
'{ LV_ITEM _ms_lvi;\
'  _ms_lvi.iSubItem = iSubItem_;\
'  _ms_lvi.cchTextMax = cchTextMax_;\
'  _ms_lvi.pszText = pszText_;\
'  SNDMSG((hwndLV), LVM_GETITEMTEXT, (WPARAM)(i), (LPARAM)(LV_ITEM *)&_ms_lvi);\
'}



'比較のためのコールバック関数
Function CompareProc( lp1 As Long, lp2 As Long, lpSort As Long ) As Long

	Dim nItem1 As Long
	Dim nItem2 As Long
	Dim bBuf1[ MaxPath_LV ] As Byte
	Dim bBuf2[ MaxPath_LV ] As Byte
	Dim lvf As LV_FINDINFO

	lvf.flags = LVFI_PARAM
	lvf.lParam = lp1
	nItem1 = ListView_FindItem( g_hListView, -1, lvf )

	lvf.lParam = lp2
	nItem2 = ListView_FindItem( g_hListView, -1, lvf )

	ListView_GetItemText( g_hListView, nItem1, lpSort, bBuf1, MaxPath_LV )
	ListView_GetItemText( g_hListView, nItem2, lpSort, bBuf2, MaxPath_LV )

	If( g_fListViewSort>0 )Then
		'昇順
		CompareProc = lstrcmp( bBuf1, bBuf2 )
	Else
		'降順
		CompareProc = lstrcmp( bBuf1, bBuf2 ) * -1
	EndIf

End Function

'---------------------------
'  Window Message Loop
'---------------------------
Dim msgMain As MSG, iResult As Long
Do
	iResult=GetMessage(msgMain,0,0,0)
	If iResult=0 or iResult=-1 Then Exit Do
	If msgMain.hwnd=hMainWnd Then
		TranslateMessage(msgMain)
		DispatchMessage(msgMain)
	End If
Loop
ExitProcess(0)

'---------------------------
'  Window Message Loop
'---------------------------

Dim msgMain As MSG, iResult As Long
Do
	iResult=GetMessage(msgMain,0,0,0)
	If iResult=0 or iResult=-1 Then Exit Do
	If (msgMain.hwnd=hMainWnd) and _
	(msgMain.message=WM_NCLBUTTONDOWN) and _
	(msgMain.wParam=HTZOOM) Then
		OutputDebugString(Ex"メインウィンドウの最大化は無視されました。\n")
	Else
		TranslateMessage(msgMain)
		DispatchMessage(msgMain)
	End If
Loop
ExitProcess(0)