新建一个工程,左右两边各放置一个列表框ListBox的控件List1和List2,在List1中竖排显示内容“第一题、第二题、第三题、第四题、第五题”这五项。在两个列表框中间竖排四个命令按钮,标题分别为“<”、“>”、“<<”、“>>”。实现程序功能:
1)点击“<”将List1中所选中的项添加到List2中,并将List1中的项删除。
2)点击“>”将List2中所选中的项添加到List1中,并将List2中的项删除。
3)点击“<<”将Lixt1中所有的选项添加到List2中,并将List1中的项清空。
4)点击“>>”将List2中所有的选项添加到List1中,并将List2中的项清空。
最后保存。
VB题目,求详细过程,谢谢!!
答案:2 悬赏:20
解决时间 2021-03-10 06:10
- 提问者网友:房东的猫
- 2021-03-09 10:43
最佳答案
- 二级知识专家网友:废途浑身病态
- 2021-03-09 12:12
'将 list2 中选中的项目移动到 list1 中
Private Sub Command2_Click()
moveSelItem List2, List1
End Sub
'将 list1 中选中的项目移动到 list2 中
Private Sub Command3_Click()
moveSelItem List1, List2
End Sub
'将 source 中选中的项目移动到 target 中(支持多选功能)。
Private Sub moveSelItem(source As ListBox, target As ListBox)
Dim i As Integer
i = 0
While i < source.ListCount
If source.Selected(i) Then
target.AddItem source.List(i)
source.RemoveItem (i)
Else
i = i + 1
End If
Wend
End Sub
'将 list2 中所有的项目移动到 list1 中
Private Sub Command4_Click()
moveAllItem List2, List1
End Sub
'将 list1 中所有的项目移动到 list2 中
Private Sub Command5_Click()
moveAllItem List1, List2
End Sub
'将 source 中所有的项目移动到 target 中。
Private Sub moveAllItem(source As ListBox, target As ListBox)
Dim i As Integer
i = 0
For i = 0 To source.ListCount - 1
target.AddItem source.List(i)
Next
source.Clear
End Sub
Private Sub Command2_Click()
moveSelItem List2, List1
End Sub
'将 list1 中选中的项目移动到 list2 中
Private Sub Command3_Click()
moveSelItem List1, List2
End Sub
'将 source 中选中的项目移动到 target 中(支持多选功能)。
Private Sub moveSelItem(source As ListBox, target As ListBox)
Dim i As Integer
i = 0
While i < source.ListCount
If source.Selected(i) Then
target.AddItem source.List(i)
source.RemoveItem (i)
Else
i = i + 1
End If
Wend
End Sub
'将 list2 中所有的项目移动到 list1 中
Private Sub Command4_Click()
moveAllItem List2, List1
End Sub
'将 list1 中所有的项目移动到 list2 中
Private Sub Command5_Click()
moveAllItem List1, List2
End Sub
'将 source 中所有的项目移动到 target 中。
Private Sub moveAllItem(source As ListBox, target As ListBox)
Dim i As Integer
i = 0
For i = 0 To source.ListCount - 1
target.AddItem source.List(i)
Next
source.Clear
End Sub
全部回答
- 1楼网友:万千宠爱
- 2021-03-09 13:28
变量z未定义错误张志晨,计算过程也不同。 定义的方式不同
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯