frmmove.frm

vb 的例子

VERSION 5.00
Begin VB.Form frmMove 
   Caption         =   "条目移动"
   ClientHeight    =   2610
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4275
   LinkTopic       =   "Form1"
   ScaleHeight     =   2610
   ScaleWidth      =   4275
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdMove 
      Caption         =   "->"
      Height          =   375
      Left            =   1800
      TabIndex        =   2
      Top             =   1320
      Width           =   615
   End
   Begin VB.ListBox lstTo 
      Height          =   1860
      Left            =   2520
      TabIndex        =   1
      Top             =   600
      Width           =   1455
   End
   Begin VB.ListBox lstFrom 
      Height          =   1860
      ItemData        =   "frmMove.frx":0000
      Left            =   240
      List            =   "frmMove.frx":0002
      MultiSelect     =   2  'Extended
      TabIndex        =   0
      Top             =   600
      Width           =   1455
   End
   Begin VB.Label Label2 
      Caption         =   "目标列表框"
      Height          =   255
      Left            =   2520
      TabIndex        =   4
      Top             =   240
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "源列表框"
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   240
      Width           =   855
   End
End
Attribute VB_Name = "frmMove"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Dim int1 As Integer
    For int1 = 0 To 20
        lstFrom.AddItem "Item" & int1
   
    Next
     For int1 = 0 To 20
        lstFrom.AddItem "Item" & int1
   
    Next
   
End Sub
'Private Sub cmdMove_Click()                         ' 单击"->"按钮
'    Dim intSelNo() As Integer                         ' 声明动态数组
'    Dim intSelNum As Integer
'    Dim int1 As Integer, int2 As Integer
'
'    intSelNum = lstFrom.SelCount                        '得到选定条目的个数
'    ReDim intSelNo(1 To intSelNum)                      '重新定义动态数组
'    int1 = 1
'    For int2 = 0 To lstFrom.ListCount - 1               '得到各个被选条目的序号
'        If lstFrom.Selected(int2) Then
'            intSelNo(int1) = int2
'            int1 = int1 + 1
'        End If
'    Next
'                                                        '依次移动各个条目
'    For int1 = 1 To intSelNum
'        lstTo.AddItem lstFrom.List(intSelNo(int1))
'        lstFrom.RemoveItem intSelNo(int1)
'
'        For int2 = int1 + 1 To intSelNum
'            intSelNo(int2) = intSelNo(int2) - 1         '这里为什么要减1？
'        Next
'
'    Next
'End Sub


Private Sub cmdMove_Click()
    Dim int1 As Integer
    Do While lstFrom.SelCount > 0
        Do Until lstFrom.Selected(int1)
            int1 = int1 + 1
        Loop
        lstTo.AddItem lstFrom.List(int1)
        lstFrom.RemoveItem int1
    Loop
End Sub