luckyboy
Level: VB Lord
Registered: 05-05-2005
Posts: 160
|
Re: MsgHook.dll download?
but i need Msghook. In order to make listview can not move pictures.
' REQUIRES THE MSGHOOK.DLL LIBRARY
Const WM_NOTIFY = &H4E
Const LVN_FIRST = -100&
Const LVN_BEGINDRAG = (LVN_FIRST - 9)
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
Any, source As Any, ByVal bytes As Long)
Private Type NMHDR
hwndFrom As Long
idFrom As Long
code As Long
End Type
Dim WithEvents FormHook As MsgHook
Private Sub Form_Load()
' start subclassing the current form
Set FormHook = New MsgHook
FormHook.StartSubclass Me
' fill the ListView1 control with data
' ... (omitted) ...
End Sub
' this event fires when the form is sent a message
Private Sub FormHook_BeforeMessage(uMsg As Long, wParam As Long, lParam As Long, _
retValue As Long, Cancel As Boolean)
' the ListView might be notifying something to its parent form
If uMsg = WM_NOTIFY Then
' copy the MNHDR structure pointed
' to by lParam to a local UDT
Dim nmh As NMHDR
CopyMemory nmh, ByVal lParam, Len(nmh)
' check whether the notification is from the ListView1 control
' and whether it's the beginning of a drag operation
If nmh.hwndFrom = ListView1.hWnd And nmh.code = LVN_BEGINDRAG Then
' yes, cancel this operation
retValue = 1
Cancel = True
End If
End If
End Sub
so more please?please?
____________________________
Please help out.
|
VBMsgHook.zip
