VB LISTBOX属性

additem 添加属性

listcount总记录数

listindex索引值

Private Sub Form_Load()
List1.AddItem "广东省广州市"
List1.AddItem "广东省河源市"
List1.AddItem "广东省惠州市"
List1.ListIndex = 0
End Sub

Private Sub LeftAll_Click()
Dim i As Integer
  For i = 0 To List2.ListCount - 1
  List1.AddItem List2.List(i)
  Next
  List2.Clear
  List1.ListIndex = List1.NewIndex
  
End Sub

Private Sub LeftOne_Click()
Dim i As Integer
  If List2.ListCount = 0 Then Exit Sub
   List1.AddItem List2.Text
   i = List2.ListIndex
   List2.RemoveItem i
   List1.ListIndex = List1.NewIndex
    If List2.ListCount > 0 Then
    If i > List2.ListCount - 1 Then
    List2.ListIndex = i - 1
    Else
       List2.ListIndex = i
    End If
  End If
End Sub

Private Sub List1_dblclick()

RightOne_Click
End Sub

Private Sub List2_dblClick()
LeftOne_Click
End Sub

Private Sub RightOne_Click()
Dim i As Integer
If List1.ListCount = 0 Then Exit Sub
   List2.AddItem List1.Text
   i = List1.ListIndex
   List1.RemoveItem List1.ListIndex
   If List1.ListCount > 0 Then
   If i > List1.ListCount - 1 Then
   List1.ListIndex = i - 1
   Else
    List1.ListIndex = i
    End If
End If
List2.ListIndex = List2.NewIndex
End Sub
Private Sub RightALL_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
 List1.Clear
 List2.ListIndex = 0
End Sub

Private Sub Up_Click()
Dim Up As Integer
With List2
If .ListIndex < 0 Then Exit Sub
  Up = .ListIndex
  If Up = 0 Then Exit Sub '不能将第一个项目向上移动
  .AddItem .Text, Up - 1 '向上移动项目
  .RemoveItem Up + 1   '删除旧的项目
  .Selected(Up - 1) = True   '选择刚刚被移动的项目
  End With
End Sub
Private Sub Down_Click()
Dim Down As Integer
  With List2
  If .ListIndex < 0 Then Exit Sub
    Down = .ListIndex
    If Down = .ListCount - 1 Then Exit Sub  '不能将最后的项目向下移动
    .AddItem .Text, Down + 2  '向下移动项目
    .RemoveItem Down     '删除旧的项目
    .Selected(Down + 1) = True  '选择刚刚被移动的项目
    
  End With
    
End Sub

附有截图

先新建两个listbox一个命名为:list1和一个list2

和六个命令按钮,详细命名见上图即可。为左、右、全左、全右、上、下

转载于:https://www.cnblogs.com/rosesmall/p/3435862.html