formlistbox.frm

vb精彩编程希望大家有用

VERSION 5.00
Begin VB.Form FormListBox 
   Caption         =   "列表框应用程序"
   ClientHeight    =   4800
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6075
   LinkTopic       =   "Form1"
   ScaleHeight     =   4800
   ScaleWidth      =   6075
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton List2MoveCmd 
      Caption         =   "删除所选项目"
      Height          =   375
      Left            =   3840
      TabIndex        =   11
      Top             =   3120
      Width           =   1695
   End
   Begin VB.CommandButton List1MoveCmd 
      Caption         =   "删除所选项目"
      Height          =   375
      Left            =   480
      TabIndex        =   10
      Top             =   3120
      Width           =   1695
   End
   Begin VB.CommandButton List2ClearCmd 
      Caption         =   "清除新项目"
      Height          =   375
      Left            =   3840
      TabIndex        =   9
      Top             =   4320
      Width           =   1695
   End
   Begin VB.CommandButton List1ClearCmd 
      Caption         =   "清除新项目"
      Height          =   375
      Left            =   480
      TabIndex        =   8
      Top             =   4320
      Width           =   1695
   End
   Begin VB.CommandButton List2AddCmd 
      Caption         =   "增加新项目"
      Height          =   375
      Left            =   3840
      TabIndex        =   7
      Top             =   3720
      Width           =   1695
   End
   Begin VB.CommandButton List1AddCmd 
      Caption         =   "增加新项目"
      Height          =   375
      Left            =   480
      TabIndex        =   6
      Top             =   3720
      Width           =   1695
   End
   Begin VB.CommandButton RighttoLeftCmd 
      Caption         =   "<<"
      Height          =   375
      Left            =   2760
      TabIndex        =   5
      Top             =   1920
      Width           =   495
   End
   Begin VB.CommandButton LefttoRightCmd 
      Caption         =   ">>"
      Height          =   375
      Left            =   2760
      TabIndex        =   4
      Top             =   1080
      Width           =   495
   End
   Begin VB.ListBox List2 
      Height          =   2160
      Left            =   3480
      Sorted          =   -1  'True
      Style           =   1  'Checkbox
      TabIndex        =   3
      Top             =   600
      Width           =   2415
   End
   Begin VB.ListBox List1 
      Height          =   2040
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   2415
   End
   Begin VB.Label Label2 
      Caption         =   "排序列表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3480
      TabIndex        =   2
      Top             =   240
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "未排序的列表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Width           =   1335
   End
End
Attribute VB_Name = "FormListBox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
    '装载窗体时，给列表中的元素赋值
    List1.AddItem "China"
    List1.AddItem "America"
    List1.AddItem "Japan"
    List2.AddItem "Soccer"
    List2.AddItem "Tennis"
    List2.AddItem "Basketball"
End Sub

Private Sub LefttoRightCmd_Click()
    '将左边列表中所选元素移动到右边列表中
    If List1.ListIndex >= 0 Then
        '在右边列表中增加新元素
        List2.AddItem List1.Text
        '删除左边列表中的所选元素
        List1.RemoveItem List1.ListIndex
    End If
End Sub

Private Sub List1AddCmd_Click()
    Dim ListItem As String
    ListItem = InputBox("在列表中输入新项目")
    '向列表中加入新项目
    If Trim(ListItem) <> "" Then
    'Trim（）作用是清除ListItem字符串内的空格
        List1.AddItem ListItem
    End If
End Sub

Private Sub List1ClearCmd_Click()
    '清空列表
    List1.Clear
End Sub

Private Sub List1MoveCmd_Click()
    Dim i As Integer
    '判断列表框是否只有一个项目被选中
    If List1.SelCount = 1 Then
        List1.RemoveItem List1.ListIndex
    ElseIf List1.ListCount > 1 Then
        '删除列表框中的所选中的多个项目
        For i = List1.ListCount - 1 To 0 Step -1
        'ListCount返回列表框中的项目总数
        'ListCount-1是列表框中最后一个项目的索引号
            '判断该项目是否被选中，Selected()返回布尔值
            If List1.Selected(i) Then
                '删除索引号为i的项目
                List1.RemoveItem i
            End If
        Next
    End If
End Sub

Private Sub List2AddCmd_Click()
    '定义变量，以接收输入的字符串
    Dim ListItem As String
    ListItem = InputBox("在列表中输入新项目")
    If Trim(ListItem) <> "" Then
        '将字符串增加到列表中
        List2.AddItem ListItem
    End If
End Sub

Private Sub List2ClearCmd_Click()
    '清空列表
    List2.Clear
End Sub

Private Sub List2MoveCmd_Click()
    Dim i As Integer
    '判断所选 元素是否只有一个
    If List2.SelCount = 1 Then
        List2.RemoveItem List2.ListIndex
        '如果所选 元素大于1，则按下列操作进行
        ElseIf List2.ListCount > 1 Then
        For i = List2.ListCount - 1 To 0 Step -1
            If List2.Selected(i) Then
                List2.RemoveItem i
            End If
        Next i
    End If
End Sub

Private Sub RighttoLeftCmd_Click()
    Dim i As Integer
    '判断选中的元素有几个
    If List2.SelCount = 1 Then
        List1.AddItem List2.Text
        List2.RemoveItem List2.ListIndex
        '当选中的元素大于一个时
        ElseIf List2.SelCount > 1 Then
        For i = List2.ListCount - 1 To 0 Step -1
            '如果该元素被选中，则将其从右边移至左边
            If List2.Selected(i) Then
                List1.AddItem List2.List(i)
                List2.RemoveItem i
            End If
        Next i
    End If
End Sub