sp; LVS_REPORT Or Style, x, y, nWidth, nHeight, hWndParent, ID, App.hInstance, 0&)
End Function
Public Function ListView_InsertColumn(hwnd As Long, iCol As Long, ColumnText As String, Optional mnWidth As Long = 88) As Boolean
' 插入列表头
Dim pcol As LVCOLUMN
With pcol
.mask = LVCF_FMT Or LVCF_TEXT Or LVCF_WIDTH
.fmt = LVCFMT_LEFT
.CX = mnWidth
.pszText = ColumnText
End With
Call SendMessage(hwnd, LVM_INSERTCOLUMN, iCol, pcol)
End Function
Public Function ListView_SetExtendedListViewStyleEx(Optional dwExStyle As Long)
' Visual C++ Macros
' 设置扩展风格
'SendLongMessage
Call SendLongMessage(hwndLV, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, LVS_EX_FULLROWSELECT Or LVS_EX_GRI 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
|
