Select all in listview

[manavo11]

Const LVM_FIRST As Long = &H1000
Const LVIF_STATE As Long = &H8
Const LVIS_SELECTED As Long = &H2
Const LVIS_FOCUSED As Long = &H1
Const LVM_SETITEMSTATE As Long = (LVM_FIRST + 8)
 
 
Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
     ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByRef lParam As Any) As Long
     
Private Sub Command1_Click()
With myLVitem
      .mask = LVIF_STATE
      .state = &HF
      .stateMask = LVIS_SELECTED Or LVIS_FOCUSED
      End With
      
        dmWriteProcessData lvItemPointer, VarPtr(myLVitem), Len(myLVitem)
        apiResult = SendMessage(lvWindow, LVM_SETITEMSTATE, 1, lvItemPointer)
End Sub

You didn't add the LVM_FIRST declaration that I posted above. The above should work and highlight the first item. For the 2nd item you should use (I'm guessing) :

apiResult = SendMessage(lvWindow, LVM_SETITEMSTATE, 2, lvItemPointer)

For the 3rd item :

apiResult = SendMessage(lvWindow, LVM_SETITEMSTATE, 3, lvItemPointer)

And so on...

[tony007]

Now this errorshowin in pic attached:




pointing at :

Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
     ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByRef lParam As Any) As Long

HAve u tried this code ? did it work for u?
I think this code will not work for external listview since at no point code is looking for a window that holds the listvidew!!

AS u see i provied the classname and listview info beleow so i be happy if u have a look at it.Thanks




This is the informaton i got from my external listview using api spy:


Window Handle == 0x00310520.
Class Name : SysListView32.
RECT.left == 799.
RECT.top == 195.
RECT.right == 995.
RECT.bottom == 462.


and

'************************************************************************************
'*****                        FindWindow Source [Code]                          *****
'*****        By Sean Gallardy    E-Mail [email protected]                  *****
'************************************************************************************
 
 
'API Calls
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
 
Function GetMyWindow() as long
 
 
'Variables
Dim lParent as long
Dim lChild(1 to 5) as long
 
 
'Get Parent Window
lParent = FindWindow("My Window Class", "window caption")
'Get Child Window(s)
lChild(1) = FindWindowEx(lParent, 0, "WTL_SplitterWindow", "")
lChild(2) = FindWindowEx(lChild(1), 0, "WTL_SplitterWindow", "")
lChild(3) = FindWindowEx(lChild(2), 0, "WTL_SplitterWindow", "")
lChild(4) = FindWindowEx(lChild(3), 0, "ATL:0053D8D0", "")
lChild(5) = FindWindowEx(lChild(4), 0, "SysListView32", "")
 
 
GetMyWindow = lChild(5)
 
 
End Function