Question

listbox中的项目怎样实现上移和下移

知道的告诉我

Answer 1

Private Sub Command1_Click() '上移
If List1.ListIndex = 0 Then
List1.ListIndex = List1.ListCount - 1
Else
List1.ListIndex = List1.ListIndex - 1
End If
End Sub

Private Sub Command2_Click() '上移
If List1.ListIndex = List1.ListCount - 1 Then
List1.ListIndex = 0
Else
List1.ListIndex = List1.ListIndex + 1
End If
End Sub

Private Sub Form_Load()
List1.List(0) = "1111"
List1.List(1) = "2222"
List1.List(2) = "3333"
List1.List(3) = "4444"
End Sub

Answer 2

第2个按钮是下移.