Is anyone know how to not resize the column of listview?

[daixinhou]

Like title.

[qkaibo]

HOOK ListView column change Size Message

[qkaibo]

another Method

Hide Header Column

using Lable insted of Header Column

put lable to the top of the listView

[vansoft]

昨天才看到VC寫的代碼，不過忘了網址了。

[feiyun0112]

use HOOK

'form1
Private Sub Form_Load()
Dim li As ListItem
Dim lCount As Long

With ListView1.ListItems
For lCount = 1 To 100
Set li = .Add(, , lCount)
li.SubItems(1) = lCount
li.SubItems(2) = lCount
Next
End With

glLVDefWindowProc = SetWindowLong(ListView1.hwnd, GWL_WNDPROC, AddressOf LVWindowProc)

End Sub
Private Sub Form_Unload(Cancel As Integer)
If glLVDefWindowProc Then
SetWindowLong ListView1.hwnd, GWL_WNDPROC, glLVDefWindowProc
glLVDefWindowProc = 0
End If
End Sub

'Module1
Option Explicit
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function DefWindowProc Lib "user32.dll" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const GWL_WNDPROC = (-4)
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
Public Type NMHDR
hwndFrom As Long ' Window handle of control sending message
idFrom As Long ' Identifier of control sending message
code As Long ' Specifies the notification code
End Type
Public Type NMHEADER
hdr As NMHDR
iItem As Long
iButton As Long
pitem As Long
End Type
Public Const WM_NOTIFY& = &H4E
Public Const HDN_FIRST = -300&
Public Const HDN_LAST = -399&
Public Const HDN_ITEMCHANGINGA As Long = HDN_FIRST - 0
Public Const HDN_ITEMCHANGINGW As Long = HDN_FIRST - 20
Public Const HDN_ITEMCHANGEDA As Long = HDN_FIRST - 1
Public Const HDN_ITEMCHANGEDW As Long = HDN_FIRST - 21
Public Const HDN_ITEMCLICKA As Long = HDN_FIRST - 2
Public Const HDN_ITEMCLICKW As Long = HDN_FIRST - 22
Public Const HDN_ITEMDBLCLICKA As Long = HDN_FIRST - 3
Public Const HDN_ITEMDBLCLICKW As Long = HDN_FIRST - 23
Public Const HDN_DIVIDERDBLCLICKA As Long = HDN_FIRST - 5
Public Const HDN_DIVIDERDBLCLICKW As Long = HDN_FIRST - 25
Public Const HDN_BEGINTRACKA As Long = HDN_FIRST - 6
Public Const HDN_BEGINTRACKW As Long = HDN_FIRST - 26
Public Const HDN_ENDTRACKA As Long = HDN_FIRST - 7
Public Const HDN_ENDTRACKW As Long = HDN_FIRST - 27
Public Const HDN_TRACKA As Long = HDN_FIRST - 8
Public Const HDN_TRACKW As Long = HDN_FIRST - 28
Public Const HDN_GETDISPINFOA As Long = HDN_FIRST - 9
Public Const HDN_GETDISPINFOW As Long = HDN_FIRST - 29
Public Const HDN_BEGINDRAG As Long = HDN_FIRST - 10
Public Const HDN_ENDDRAG As Long = HDN_FIRST - 11
Public Const HDN_FILTERCHANGE As Long = HDN_FIRST - 12
Public Const HDN_FILTERBTNCLICK As Long = HDN_FIRST - 13
Public glLVDefWindowProc As Long
Public Function LVWindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case uMsg
Case WM_NOTIFY
Dim tHD As NMHDR
CopyMemory tHD, ByVal lParam, Len(tHD)
Select Case tHD.code
Case HDN_BEGINTRACKA, HDN_DIVIDERDBLCLICKA, HDN_BEGINDRAG, HDN_TRACKA
Debug.Print "1"
LVWindowProc = 1
Exit Function
End Select
End Select
LVWindowProc = CallWindowProc(glLVDefWindowProc, hwnd, uMsg, wParam, lParam)
End Function

[proer9988]

是中国人的话在中文社区还是讲中文比较好。

现在的学生教育天天4，6级，中文都写不好了。。。

[zyl910]

我MSDN上的英文都看得懂，可就是4级老过不了

楼主的意思是：如何使ListView的表头不能改变大小

[zyl910]

好像没有办法（挂子类后拦截鼠标消息那种办法不算）

其实可以将ListView的表头设为不可见（设置HideColumnHeaders属性），这样别人就能不能改变大小了

[daixinhou]

Everybody,I help a peregrin friend,he don't know Chinese,can anyone solve this question?

Write in english if you can,thanks.