获取列表框中的所选项目

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