0

我看过一些帖子提出了类似的问题，但我无法成功地在我的代码中复制答案。以下代码将项目及其值成员添加到列表框中。

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() 时，我可以访问我选择的第一个项目，但后续选择不会将值成员更改为所选项目的值成员。

请指导我。

谢谢您的回答。这是我的新代码：

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

结束类

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

4

2 回答 2

2

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

您没有向控件添加对象，因此Key哈希表中的ValueMember. 您的帖子在传递中引用了一个文件变量，因此我假设这围绕显示文件名，同时希望在选择/单击时获取完整路径名。未指明 WebForms/Winforms/WPF，我假设 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：

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 对象存储到 aList(of myFile)而不是将它们添加到控件中，我们可以将 List 绑定为 DataSource 而不必迭代或复制：

mylistBox.DataSource = myFileList

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

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

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

tl;博士

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

笔记：

于 2014-06-24T22:42:00.020 回答
0

我知道这是多年后的事，但仍然是相关信息。我花了一段时间来解析上面所说的内容，直到我完全理解它，所以我认为如果我稍微重述一下它可能会有所帮助。

当您选择一个列表框项目时，

  • myListBox.SelectedValue是字段的内容，myListBox.ValueMember。ValueMember包含Field Name,SelectedValue包含字段的内容。
  • myListBox.SelectedItem是字段的内容myListBox.DisplayMember。DisplayMember包含字段名称并SelectedItem包含字段的值。

SelectedIndex指的是列表中项目的索引。要查看选择了哪个项目，请参考myListBox.SelectedIndex。例如，您可以使用以下方法将选择更改为列表中的最后一项myListBox.SelectedIndex = myListBox.Items.Count - 1

如果要显示值，则

Console.WriteLine("The value of {0} is {1}",myListBoxDisplayMember,myListBox.SelectedItem)
Console.WriteLine("The Value of {0} is {1}",myListBox.ValueMember,myListBox.SelectedValue)
于 2021-03-09T13:47:17.093 回答