vb6 - 获取列表框中的选定项

Question

我是 VB6 的新手。我需要在列表框中获取所选项目当我按下 Modify 按钮时，将其内容设置为文本框的文本。

Private Sub Modify_Click()
    List2.List(0) = Text3.Text
End Sub

我需要更改列表框中所选项目的索引 0。

在 VB.Net 中，我使用了以下语句，但在 VB6 中，我不知道该怎么做。

val=ListBox2.SelectedItem.Value 

Answer 1

ListIndex 返回所选项目的从零开始的索引，如果未选择任何项目，则返回 -1。将它与 List() 集合结合使用以检索所选项目。

例如:

If List2.ListIndex < 0 Then
    Debug.Print "No item selected."
Else
    Debug.Print "Selected text = " & List2.List(List2.ListIndex)
End If

或者，您可以只使用 Text 属性。如果未选择任何项目，Text 将返回一个空字符串。

Debug.Print List2.Text

如果您的 ListBox 允许多项选择，您将需要遍历项目并使用 Selected() 函数来确定选择了哪些:

For i = 0 To List2.ListCount - 1
    If List2.Selected(i) Then Debug.Print List2.List(i)
Next

因此，要回答您的问题，将所选项目的文本更改为文本框的文本，请使用以下命令:

If List2.ListIndex >= 0 Then
    List2.List(List2.ListIndex) = Text3.Text
End If