displaying a listbox item as checked or unchecked

[daughtery]

In the code below I want to display the checkbox as checked or unchecked depending on a value in the recordset. I haven't been able to find how to do this. I've tried
"lstRtnMthProfile.Selected (1)" to check them but that throws an error.

 Do While Not rsMethodProfiles.EOF
        lstRtnMthProfile.Font = "Times New Roman"
        lstRtnMthProfile.FontBold = True
        lstRtnMthProfile.FontSize = 12
        lstRtnMthProfile.AddItem rsMethodProfiles.Fields("MethodDesc")
        If (IsNull(rsMethodProfiles("ruleID"))) Then
           lstRtnMthProfile.Selected (0) [red]'uncheck the box [/red]
        Else
           lstRtnMthProfile.Selected (1) [red]'Check the box[/red]
        End If
        rsMethodProfiles.MoveNext
   Loop

 

[Andrzejek]

Did you try:

Dim i As Integer

With lstRtnMthProfile
    .Font = "Times New Roman"
    .FontBold = True
    .FontSize = 12

    Do While Not rsMethodProfiles.EOF
        .AddItem rsMethodProfiles!MethodDesc
        If (IsNull(rsMethodProfiles!ruleID)) Then
           .Selected(i) = False 'uncheck the box 
        Else
           .Selected(i) = True 'Check the box
        End If
        i = i +1
        rsMethodProfiles.MoveNext
   Loop
End With

Have fun.

---- Andy

 

[daughtery]

Works great. But I have another question. How can I disable the ability for the user to check and uncheck the checkbox while still allowing them to select list items?