求解一道VB题目

题目为：单击“左边列表框”后“右移”按钮可用，单击“右移”按钮将左边列表框中选中的内容移到右边列表框中。单击“右边列表框”后“左移”按钮可用，单击“左移”按钮将右边列表框中选中的内容移到左边列表框中。单击“退出”按钮结束程序的运行。界面有两个list,上面有左移，右移两个按钮，求详细代码。

Private Sub Command1_Click() 'Command1为右移命令按钮
If List1.ListCount > 0 And List1.SelCount > 0 Then 'List1为左边列表框，此处判断其是否有列表项和选中项
List2.AddItem List1.Text 'List2为右边列表框，此处将左边列表框的选中项内容添加到右边列表框
List1.RemoveItem List1.ListIndex '清除左边列表框的选中项内容
End If
End Sub

Private Sub Command2_Click() 'Command2为左移命令按钮
If List2.ListCount > 0 And List2.SelCount > 0 Then
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
End If
End Sub

Private Sub Command3_Click() 'Command3为退出命令按钮
End '结束应用程序
End Sub

Private Sub Form_Load()
Dim I As Integer

'以下代码是将数字1至10添加到左边列表框，方便用于测试，你应该根据自己的实际需要进行设置
For I = 1 To 10
List1.AddItem I
Next I
End Sub

以上代码注释那么详细，你应该看得明白吧？

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/7qspq7mm.html