Bay Six Software

[Petrus]

Hi there,

I want to create a sub to select all checkboxes of the listview at once, and another for unselect at once too, but I have not succeeded yet.

Can someone help me please ?

The source program is as follows:


'ListView Report Example
'by Brent D. Thorn, 7/2002
NoMainWin
Call InitCommonControls
Open "ListView Report Example" For Window As #1
#1 "TrapClose [Quit]"
'set style = LVS_REPORT + LVS_SINGLESEL +
' LVS_SHOWSELALWAYS+ LVS_NOSORTHEADER
dwStyle = _WS_CHILD + _WS_VISIBLE + 1 + 4 + 8 + 32768
hLV = CreateListView(_WS_EX_CLIENTEDGE, _
dwStyle, 0, 0, 175, 150, hWnd(#1), 0)
Call InsertColumn hLV, 0, "English", 75
Call InsertColumn hLV, 1, "Español", 75
Restore [Data]
Read E$, S$: I = 0
While E$ <> "EOD"
Call InsertItem hLV, I, E$
Call SetItem hLV, I, 1, S$
Read E$, S$: I = I + 1
Wend
Wait
[Quit]
Close #1
End
[Data]
Data "One", "Uno", "Two", "Dos", "Three", "Tres"
Data "Four", "Cuatro", "Five", "Cinco"
Data "Six", "Seis", "Seven", "Siete", "Eight", "Ocho"
Data "Nine", "Nueve", "Ten", "Diez"
Data "EOD", "EOD"
Sub InitCommonControls
struct LVCOLUMN, _
mask As ulong, _
fmt As long, _
cx As long, _
pszText As ptr, _
cchTextMax As long, _
iSubItem As long, _
iImage As long, _
iOrder As long
struct LVITEM, _
mask As ulong, _
iItem As long, _
iSubItem As long, _
state As ulong, _
stateMask As ulong, _
pszText As ptr, _
cchTextMax As long, _
iImage As long, _
lParam As long, _
iIndent As long
End Sub
'The next line wraps and will need to be put back together
Function CreateListView(dwExStyle, dwStyle, x, y, nWidth, nHeight,hWndParent, nID)
CallDLL #user32, "GetWindowLongA", _
hWndParent As long, _
_GWL_HINSTANCE As long, _
hInst As long
CallDLL #user32, "CreateWindowExA", _
dwExStyle As long, _
"SysListView32" As ptr, _
0 As long, _
dwStyle As long, _
x As long, _
y As long, _
nWidth As long, _
nHeight As long, _
hWndParent As long, _
nID As long, _
hInst As long, _
0 As long, _
CreateListView As long
End Function
Sub InsertColumn hLV, iCol, Text$, cx
LVCOLUMN.mask.struct = 2 + 4 'LVCF_WIDTH + LVCF_TEXT
LVCOLUMN.cx.struct = cx
LVCOLUMN.pszText.struct = Text$
CallDLL #user32, "SendMessageA", _
hLV As long, _
4123 As long, _ 'LVM_INSERTCOLUMN
iCol As long, _
LVCOLUMN As struct, _
r As long
End Sub
Sub InsertItem hLV, iItem, Text$
LVITEM.mask.struct = 1 'LVIF_TEXT
LVITEM.iItem.struct = iItem
LVITEM.iSubItem.struct = 0
LVITEM.pszText.struct = Text$
CallDLL #user32, "SendMessageA", _
hLV As long, _
4103 As long, _ 'LVM_INSERTITEM
0 As long, _
LVITEM As struct, _
r As long
End Sub
Sub SetItem hLV, iItem, iSubItem, Text$
LVITEM.mask.struct = 1 'LVIF_TEXT
LVITEM.iItem.struct = iItem
LVITEM.iSubItem.struct = iSubItem
LVITEM.pszText.struct = Text$
CallDLL #user32, "SendMessageA", _
hLV As long, _
4102 As long, _ 'LVM_SETITEM
0 As long, _
LVITEM As struct, _
r As long
End Sub

[Brent]

Hello Pedro,

I am a little puzzled by your question. Apparently others feel the same because of the lack of responses on the LB Conforums where you cross-posted this question. Your subject and the demo code you posted seem to have no relation to one another because the demo shows no check boxes.

The following demo is my guess as to what you want. Please let me know if I am wrong.

[Petrus]

Yes. Sorry.

This is the code that i had wanted to show.
Have you any apicall to select and unselect all checkboxes also at a time. Thank you very much and sorry for the error code posted.

[Brent]

The code I posted today is not the same code posted on the Conforums. Please notice the addition of a Sub SetChecked, which takes the following parameters: hLV, the handle of a ListView control; item, the index of the item you want checked or unchecked, or -1 for all items; and checked, a flag to indicate whether the item should be checked (1) or unchecked (0).

[Petrus]

ok.

Thank you very much.

Regards,


Pere

[Petrus]

Thank you very much for all code provided. You are amazing.

Finally, you could generate a api code to create gridlines in this listbox.

Thank you very much.

Pere.

[Brent]

Gridlines are an extended style of ListViews. You just need to get the value of the constant LVS_EX_GRIDLINES, which happens to be 1, and add it to the dwStyle argument passed to SetExtendedStyle in the code I posted previously.

If you want to use these fancy controls, you should really take the time to understand the basics. All the information is on MSDN. Well, most of it--I usually Google for the values of constants that LB lacks. For example, I searched for "define lvs_ex_gridlines". Of course, you need to understand some C syntax to know how to translate it to LB.

[STPendl]

[Petrus]

Thank you very much to you both.

works perfectly.

Greetings




' Example
'
Sub SetExtendedStyleListView hLV, t
if t=1 then dwStyle = 1 + 4 + 32 'LVS_EX_GRIDLINES + LVS_EX_CHECKBOXES + LVS_EX_FULLROWSELECT
if t=0 then dwStyle = 32
CallDLL #user32, "SendMessageA", _
hLV As ULong, _
4150 As ULong, _ 'LVM_SETEXTENDEDLISTVIEWSTYLE
dwStyle As ULong, _
dwStyle As ULong, _
ret As Long
End Sub

[Petrus]

Finally,

if I create a listview without checkboxes, as I do to capture the selected item with doubleclick ?

Can anyone teach me this ?

Thanks for all, this forum is very formative
Listview get select item text on double click

[Brent]

I'm not exactly sure I understand, but if you want to know which item was double-clicked in a ListView, it requires some sophisticated programming. You have to use my WMLiberty DLL, a callback function, and some pointer manipulations.

I have a demo at www.b6sw.com/forum/content.php?mode=snips2&t=443.

[Petrus]

ok, perfect.

Thank you very much.

Pere