Klasse , SelectedObjectCollection

Question

Hallo Experten

habe 'mal wieder' ein Klassenproblem. Folgendes Property in der Klasse

Dim _DokumentRubriken As CheckedListBox.SelectedObjectCollection
 Public Property DokumentRubriken As CheckedListBox.SelectedObjectCollection
        Get
            Return _DokumentRubriken
        End Get
        Set(ByVal value As CheckedListBox.SelectedObjectCollection)
            _DokumentRubriken = value
        End Set
    End Property

Jetzt möchte aus/innerhalb einer Form alle Einträge einer CheckedListBox welche Selected sind mit einem Rutsch übergeben

Klasse.DokumentRubriken = ...

Habe es schon mit CheckedListBox.SelectedItems versucht funzt aber nicht ....

Wo habe ich jetzt schon wieder mein Denkfehler?

mfg eem monarch

Answer 1

Hallo monarch,

Das ginge so:

Public Class Form1
  Private mobjClass1 As New Class1

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim lstItems As Object() = { _
        "Item1",
        "Item2",
        "Item3", _
        "Item4", _
        "Item5", _
        "Item6", _
        "Item7", _
        "Item8", _
        "Item9", _
        "Item10"}
    CheckedListBox1.Items.AddRange(lstItems)
  End Sub


  Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
                                                                                                                                  Button1.Click
    Dim str As String = ""

    mobjClass1.DokumentRubriken = CheckedListBox1.CheckedItems

    For Each obj As Object In mobjClass1.DokumentRubriken
      str = str & obj.ToString & vbCrLf
    Next

    MsgBox(str)
  End Sub
End Class


Public Class Class1
  Dim _DokumentRubriken As CheckedListBox.CheckedItemCollection

  Public Property DokumentRubriken As CheckedListBox.CheckedItemCollection
    Get
      Return _DokumentRubriken
    End Get
    Set(ByVal value As

CheckedListBox.CheckedItemCollection)
      _DokumentRubriken = value
    End Set
  End Property
End Class

Answer 2

Danke, funzt ....