在列表框中获取所选项目的ValueMember

问题描述：

我看过几篇类似的问题，但是我无法成功地在代码中重复答案. 以下代码将项目及其值成员添加到列表框中.

I've seen a couple of posts asking a similar question but I have not been able to duplicate the answers in my code successfully. The following code adds items and their value member to a list box.

Public Shared Sub ListFiles(hTab As Hashtable)
    Debug.Print("create file and key" & Now)
    Dim Enumerator As IDictionaryEnumerator
    Enumerator = hTab.GetEnumerator()

    Dim MyKeys As ICollection
    Dim Key As Object
    MyKeys = hTab.Keys()

    If (hTab.Count > 0) Then
        For Each Key In MyKeys
            Dim sfileName As String = hTab(Key)
            Dim first As Integer = sfileName.IndexOf("_")
            Dim last As Integer = sfileName.LastIndexOfAny("_")
            Dim first2 = (first + 1)
            Dim splitFile = sfileName.Substring(first2)
            frmViewFiles.ListBox1.Items.Add(splitFile)
            frmViewFiles.ListBox1.ValueMember = Key
            frmViewFiles.ListBox1.SelectedValue = Key


        Next
    End If
End Sub

当我运行代码以获取所选项目的值成员时 Dim file = ListBox1.ValueMember.ToString() 我可以选择我选择的第一个项目，但随后的选择不会将值成员更改为所选项目的成员.

When I run my code to get the selected items value member Dim file = ListBox1.ValueMember.ToString() I can acess the first item I choose but subsequent selections dont change the value member to that of the selected item.

请指引我.

谢谢您的回答.这是我的新代码:

Thank you for your answers. this is my new code:

Public Shared Sub runListFiles(CustomerId As String)

    Dim cfp As New CloudFilesProvider(cloudId)
    Dim containerObjectList As IEnumerable(Of ContainerObject) = cfp.ListObjects(container:="EstherTest", identity:=cloudId, prefix:=CustomerId & "_")
   For Each file As ContainerObject In containerObjectList
        Dim sFullFileName As String = file.Name
        Dim first As Integer = sFullFileName.IndexOf("_")
        Dim first2 = (first + 1)
        Dim splitFile = sFullFileName.Substring(first2)
        'frmViewFiles.ListBox1.Items.Add(splitFile)
        'frmViewFiles.ListBox1.ValueMember = sFullFileName

        Dim fb = New myFile
        fb.FileName = splitFile
        fb.FullPath = sFullFileName


        frmViewFiles.ListBox1.Items.Add(fb)

        frmViewFiles.ListBox1.DisplayMember = fb.FileName   
        frmViewFiles.ListBox1.ValueMember = fb.FullPath

这是我的课程:

Public Class myFile

Public Property FileName As String
Public Property FullPath As String

Public Sub New(f As String, b As String)
    FileName = f
    FullPath = b

End Sub

结束班级

请在下面查看我的评论并提供帮助

Please see my comment below and assist

答

ValueMember应该表示添加到Items集合中的对象的属性名称:the property to use as the actual value for the items in the ListControl.

ValueMember is supposed to indicate the property name of an object added to the Items collection: the property to use as the actual value for the items in the ListControl.

您没有将对象添加到控件中，因此哈希表中的Key与ValueMember毫无意义.您的帖子在传递时引用了一个文件变量，因此我假设这与显示文件名有关，同时希望在选择/单击时获取完整的路径名.未显示WebForms/Winforms/WPF，我假设使用WinForms:

You are not adding objects to the control, so Key from the hashtable is meaningless as the ValueMember. Your post references a file variable in passing, so I will assume this revolves around showing the filename while wanting to get the full pathname when selected/clicked. WebForms/Winforms/WPF was not indicated, I am assuming WinForms:

Public Class myFile
   Public Property FileName As String
   Public Property FullPath  As String

   Public Property FileSize As Int64      ' just so there is something else

   Public Sub New(f as String, p as String, s as Int64)
       FileName = f
       FullPath = b
       FileSize = s
   End Sub

End Class

让我们说我们想将其中一些添加到ListBox中，对于添加的每个项目，我们希望FileName显示为文本，但希望通过FullPath找回它们:

Lets say we want to add some of these to a ListBox, for each item added we want FileName to display as the text, but want to get them back by FullPath:

Dim f As myFile
' assume these come from a fileinfo

For Each fi as FileInfo in DirectoryInfo.GetFiles(searchFor)
    f = New myFile
    f.FileName = fi.Name
    f.FullPath = fi.FullPath
    f.FileSize = fi.Length

    ' myFile accepts all the prop values in the constructor
    ' so creating a new one could also be written as:
    ' f = New myFile(fi.Name, fi.FullPath, fi.Length)

    myListBox.Items.Add(f)
Next n

如果myFile对象存储在List(of myFile)中，而不是将它们添加到控件中，则可以将List绑定为数据源，而不必进行迭代或复制:

If the myFile objects were stored to a List(of myFile) rather than adding them to the control, we can bind the List as the DataSource and not have to iterate or copy:

mylistBox.DataSource = myFileList

无论哪种方式，Display-和ValueMember都是指我们希望使用的属性名称:

Either way, Display- and ValueMember refer to the property names we wish to use:

myListBox.DisplayMember = "FileName"    ' indicate property name of obj to SHOW
myListBox.ValueMember = "FullPath"      ' prop name of object to return

当您选择一个列表框项目时，myListBox.SelectedValue将引用单击的myFile对象的FullPath. SelectedIndex仍将引用列表中该项目的索引.

When you select a listbox item, myListBox.SelectedValue would refer to the FullPath of the myFile object clicked on. The SelectedIndex would still refer to the index of the item in the list.

tl;博士

ValueMember和DisplayMember是指列表中表示的对象的属性名称.

ValueMember and DisplayMember refers to the Property Names of Objects represented in the list.

注意:

在列表框中获取所选项目的ValueMember

相关推荐