vb6.0中两个列表框,单击其中一个里的内容,则显示在另外一个列表框中
若以下回答无法解决问题,邀请你更新回答
1个回答
展开全部
参考如下代码:
Private Sub Form_Load()
List1.AddItem "China"
List1.AddItem "America"
List1.AddItem "Japan"
List1.AddItem "Soccer"
List1.AddItem "Tennis"
List1.AddItem "Basketball"
End Sub
Private Sub List1_Click()
'将左边列表中所选元素移动到右边列表中
If List1.ListIndex >= 0 Then
'在右边列表中增加敬帆新元素
List2.AddItem List1.Text
'删除缓橘左亮哪雹边列表中的所选元素
List1.RemoveItem List1.ListIndex
End If
End Sub
Private Sub Form_Load()
List1.AddItem "China"
List1.AddItem "America"
List1.AddItem "Japan"
List1.AddItem "Soccer"
List1.AddItem "Tennis"
List1.AddItem "Basketball"
End Sub
Private Sub List1_Click()
'将左边列表中所选元素移动到右边列表中
If List1.ListIndex >= 0 Then
'在右边列表中增加敬帆新元素
List2.AddItem List1.Text
'删除缓橘左亮哪雹边列表中的所选元素
List1.RemoveItem List1.ListIndex
End If
End Sub
参考资料: http://hi.baidu.com/minaxinxin1/blog/item/48f2ad5192dcca5b1138c210.html
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询