I am attempting to use
SendMessage to retrieve
LB_GETSELITEMS.
This is not possible with normal AHK due to the requirement of an
array parameter:
(
Line from VB Code) --->
SendMessage ThisBox.hwnd, LB_GETSELITEMS, iNumItems, ItemIndexes(0)
VB Code:
Code:
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_GETSELITEMS = &H191
Public Function SelectedItems(ThisBox As ListBox) _
As Collection
Dim ItemIndexes() As Long, x As Integer
Dim colItems As Collection, iNumItems As Integer
iNumItems = ThisBox.SelCount
If iNumItems Then
ReDim ItemIndexes(iNumItems - 1)
Set colItems = New Collection
SendMessage ThisBox.hwnd, LB_GETSELITEMS, _
iNumItems, ItemIndexes(0)
End If
For x = 0 To iNumItems - 1
colItems.Add ThisBox.List(ItemIndexes(x))
Next x
Set SelectedItems = colItems
Set colItems = Nothing
End Function
I can LB_GETCOUNT with an AHK function:
Code:
LB_GetCount(byRef controlName="", byRef activeWin="")
{
activeWin := (!activeWin ? "A" : activeWin)
if( !controlName )
ControlGetFocus, controlName, %activeWin%
; LB_GETCOUNT = 0x18B
sendMessage, 0x18B, 0x0, 0x0, %controlName%, %activeWin%
return !(ErrorLevel=="FAIL" ? ErrorLevel : 0)
}
(
Related VB Code above) --->
iNumItems = ThisBox.SelCountWhat I can't figure out, is if it's possible to do something like the following for LB_GetSelItems()
Code:
LB_GetSelItems(controlName="", byRef activeWin="")
{
if( !(iNumItems := LB_GetCount(controlName, activeWin)) )
return 0
ControlGet, cID, Hwnd,, %controlName%, %activeWin%
A__itemDX := Object()
SendMessage, %cID%, 0x191, %iNumItems%, %A__itemDX%
return A__itemDX
}
Which doesn't work as is.
I also thought perhaps that's not the correct parameter order,
but neither of these SendMessage's work either:
--> SendMessage, 0x191, %iNumItems%, &A__itemDX, ahk_id %cID%
--> SendMessage, 0x191, %iNumItems%, %A__itemDX%, ahk_id %cID%
--> SendMessage, 0x191, %iNumItems%, A__itemDX[0], ahk_id %cID%
--> SendMessage, 0x191, %iNumItems%, A__itemDX, ahk_id %cID%
Possibly address referencing could be used, from the Help:
Object( address | object )
Quote:
address := Object(object)
object := Object(address)
But I'm not familiar enough to know where to start with that.
Login
Register
FAQ
Search
- though I just realized that's the 
