Consultor Eletrônico



Kbase P175879: How to check/uncheck ALL checkboxes in checkedlistbox control
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   10/21/2010
Status: Unverified

SYMPTOM(s):

How to check/uncheck ALL checkboxes in checkedlistbox control

How to select/deselect all items in the list with the MS CheckedListBox control

FACT(s) (Environment):

Windows
OpenEdge 10.2x

FIX:


DEFINE VARIABLE lChecked AS LOGICAL NO-UNDO.
DEFINE VARIABLE iItem AS INTEGER NO-UNDO.

DO iItem = 0 TO THIS-OBJECT:checkedListBox1:Items:Count - 1:
lChecked = THIS-OBJECT:checkedListBox1:GetItemChecked(iItem).
THIS-OBJECT:checkedListBox1:SetItemChecked(iItem, (NOT lChecked)).
END.