欧盟能抗衡美国吗:如何使用ListBox 控件
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/02 07:53:50
将ListBox1中所选的项如何移动到ListBox2中?bcb编程
Dim j As Integer
For j = 0 To List1.ListCount - 1
If List1.Selected(j) = True Then
List2.AddItem List1.List(j)
End If
Next
杭州交通信息网是一部内容开放、自由的互动网络百科全书
客观、专业、权威的知识性百科全书
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/02 07:53:50
Dim j As Integer
For j = 0 To List1.ListCount - 1
If List1.Selected(j) = True Then
List2.AddItem List1.List(j)
End If
Next