我的清单框未在VB中显示我的阵列

Question

I'm writing a program to be used by my library as a step by step checklist when adding new materials (books) to the collection.

Option Explicit On
Option Strict On

Public Class frmCircCounter

    Public ReadOnly Property Items As CheckedListBox.ObjectCollection

    'confirms all boxes have been checked, and clears them
    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

        'If

        '    End If

    End Sub

    Private Sub CheckedListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox4.SelectedIndexChanged

        'I'm not sure what this is for the internet told me to add this?
        InitializeComponent()

        'establishes the arrary displayed in the checklistbox
        Dim strProperPackage() As String = {"Call Number and Authors Last name?", "Sub-Category Sticker?", "Plastic Wrapping on the Cover if needed?"}

        'displays it... or it should!!!?
        clbProperPackage.Items.AddRange(strProperPackage)

    End Sub

End Class

I expect to have the array displayed in the CLB upon execution

Answer 1

Try looping through your array and add each item into it.

For Each item As String In strProperPackage
  clbProperPackage.Items.Add(item)
Next

Answer 2

Your script will not execute the correct way because your using selected index changed but this will only run when a item has been selected in the list.

The best way to test this is by creating a new button and assigning this code to that button. With the button, the script will execute on click.

Public sub btnAccept (sender as object, e and eventargs) handles btnAccept.click

Dim strProperPackage() As String = {"Call Number and Authors Last name?", "Sub-Category Sticker?", "Plastic Wrapping on the Cover if needed?"}

'displays it... or it should!!!? clbProperPackage.Items.AddRange(strProperPackage)

End Sub