我是 VB6 的新手。我需要在列表框中获取所选项目
当我按下 Modify
按钮时,将其内容设置为文本框的文本。
Private Sub Modify_Click()
List2.List(0) = Text3.Text
End Sub
我需要更改列表框中所选项目的索引 0。
在 VB.Net 中,我使用了以下语句,但在 VB6 中,我不知道该怎么做。
val=ListBox2.SelectedItem.Value
最佳答案
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
关于vb6 - 获取列表框中的选定项,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/31638894/