set Selection Style of Listbox to LED Checkbox using VBScript

[ni_avoss]

hi there,

for a specific application I want to give users the possibility to change the the selection style using a macro (toggle between classic and LED Checkbox).

So far I was successful writing a script like

sub SetSelectionTypeCHECKBOX

        set docprop = ActiveDocument.GetProperties

        docprop.SelectionStyle = 3   'LED

        ActiveDocument.SetProperties docprop

end sub

the problem I stumbled upon: SelectionStyle does not offer LED Checkboxes. It supports values from 0 to 3 which represents Classic, Windows Checkboxes, Corner Tag and LED but NO LED Checkboxes (which is also stated in API Guide).

The Windows Checkboxes are to ugly to be used.

my assumption is now that the LED Checkboxes are the same as the Windows Checkboxes with different style setting. Here I struggle to find the right property using VBScript - or maybe the assumption is even wrong ? how the get the LED Check Box ?

thanks for any help

[ni_avoss]

btw: I already tried to read out the property of the LED Checkbox using and prj folder and there it only says

<SelectionStyle>SS_LED_CHECKBOX</SelectionStyle>

[flipside · Accepted solution]

Try using 7. This works for me (QV11.2)

FYI - 6 seems to change it to <user default>.

flipside

[ni_avoss]

great, thanks!

I tried till 6 and then lost hope ... to early as it seems.

have a nice day