代码:
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0, 2
Call SingleMove((Index + 1) \ 2, (Index + 1) Mod 3)
Case 1, 3
Call WholeMove(Index \ 3, Index Mod 3)
End Select
Call ButtonEffectiveness
End Sub
Private Sub Form_Load()
List1(0).AddItem "赵大鹏"
List1(0).AddItem "刘丽娟"
List1(0).AddItem "孙宏伟"
List1(0).AddItem "王天宇"
List1(0).AddItem "李天华"
List1(0).AddItem "郭晓燕"
List1(0).AddItem "黄海燕"
List1(0).AddItem "冯提莫"
List1(0).AddItem "郑元畅"
List1(0).AddItem "王佳欣"
List1(0).AddItem "崔雪莉"
List1(0).AddItem "徐歌阳"
Call ButtonEffectiveness
End Sub
Private Sub SingleMove(ByVal Subscript1 As Integer, ByVal Subscript2 As Integer)
If List1(Subscript1).ListIndex = -1 Then
MsgBox "请选择要移动的项", vbOKOnly + vbInformation
Else
List1(Subscript2).AddItem List1(Subscript1).List(List1(Subscript1).ListIndex)
List1(Subscript1).RemoveItem List1(Subscript1).ListIndex
End If
End Sub
Private Sub WholeMove(ByVal Subscript1 As Integer, ByVal Subscript2 As Integer)
For i = 0 To List1(Subscript1).ListCount - 1
List1(Subscript2).AddItem List1(Subscript1).List(i)
Next i
List1(Subscript1).Clear
End Sub
Private Sub ButtonEffectiveness()
For i = 0 To 1
If List1(i).ListCount = 0 Then
For j = 0 To 1
Command1(j + 2 * i).Enabled = False
Next j
Else
For j = 0 To 1
Command1(j + 2 * i).Enabled = True
Next j
End If
Next i
End Sub
设计界面:
运行界面: