UC知道关于LIST选中的vb问题
来源：百度知道 编辑：UC知道 时间：2024/07/02 00:12:32
Private Sub cmd1_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = ture Then
txt1.Text = List1.List(i)
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem "第一个项目"
List1.AddItem "第二个项目"
List1.AddItem "第三个项目"
List1.AddItem "第四个项目"
End Sub
这个是要求选到LIST中的某项时，点击cmd1时，将所选中的内容复制到TXT1中
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = ture Then
txt1.Text = List1.List(i)
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem "第一个项目"
List1.AddItem "第二个项目"
List1.AddItem "第三个项目"
List1.AddItem "第四个项目"
End Sub
这个是要求选到LIST中的某项时，点击cmd1时，将所选中的内容复制到TXT1中
Private Sub cmd1_Click()
txt1.Text = list1.text
End Sub
就可以把LIST1当前选中的文本送到TEXT1了
把点击事件改为
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = ture Then
Text1.Text = List1.Text
End If
Next i
就没问题了
1楼和2楼回答的都正确！
2楼画蛇添足啊
如果你想找到多选的项应是
Text1.Text = Text1.Text & vbCrLf & List1.List(i)