ListView 排序 移动

http://topic.csdn.net/t/20041001/07/3422642.html

 

方法1：  
  上下两个节点交换一下内容  
   
  方法2：  
  先取得选中的节点：  
  Dim   item   As   ListViewItem   =   Me.ListView1.SelectedItems(0)  
  Dim   index   As   Integer   =   Me.ListView1.SelectedItems(0).Index  
   
  然后删除该节点：  
  ListView1.Items.Remove(item)  
   
  重新插入该节点：  
  如果上移：ListView.Items.Insert(index-1,item)  
   
  如果下移：ListView.Items.Insert(index+1,item)   
    
  ======================================

  
  Public   Class   frm  
          Inherits   System.Windows.Forms.Form  
   
  #Region   "   Windows   Form   Designer   generated   code   "  
   
          Public   Sub   New()  
                  MyBase.New()  
   
                  'This   call   is   required   by   the   Windows   Form   Designer.  
                  InitializeComponent()  
   
                  'Add   any   initialization   after   the   InitializeComponent()   call  
   
          End   Sub  
   
          'Form   overrides   dispose   to   clean   up   the   component   list.  
          Protected   Overloads   Overrides   Sub   Dispose(ByVal   disposing   As   Boolean)  
                  If   disposing   Then  
                          If   Not   (components   Is   Nothing)   Then  
                                  components.Dispose()  
                          End   If  
                  End   If  
                  MyBase.Dispose(disposing)  
          End   Sub  
   
          'Required   by   the   Windows   Form   Designer  
          Private   components   As   System.ComponentModel.IContainer  
   
          'NOTE:   The   following   procedure   is   required   by   the   Windows   Form   Designer  
          'It   can   be   modified   using   the   Windows   Form   Designer.      
          'Do   not   modify   it   using   the   code   editor.  
          Friend   WithEvents   btnUp   As   System.Windows.Forms.Button  
          Friend   WithEvents   btnDown   As   System.Windows.Forms.Button  
          Friend   WithEvents   lvw   As   System.Windows.Forms.ListView  
          <System.Diagnostics.DebuggerStepThrough()>   Private   Sub   InitializeComponent()  
                  Me.lvw   =   New   System.Windows.Forms.ListView  
                  Me.btnUp   =   New   System.Windows.Forms.Button  
                  Me.btnDown   =   New   System.Windows.Forms.Button  
                  Me.SuspendLayout()  
                  '  
                  'lvw  
                  '  
                  Me.lvw.Location   =   New   System.Drawing.Point(12,   12)  
                  Me.lvw.Name   =   "lvw"  
                  Me.lvw.Size   =   New   System.Drawing.Size(284,   212)  
                  Me.lvw.TabIndex   =   0  
                  '  
                  'btnUp  
                  '  
                  Me.btnUp.Location   =   New   System.Drawing.Point(308,   24)  
                  Me.btnUp.Name   =   "btnUp"  
                  Me.btnUp.Size   =   New   System.Drawing.Size(40,   28)  
                  Me.btnUp.TabIndex   =   2  
                  Me.btnUp.Text   =   "Up"  
                  '  
                  'btnDown  
                  '  
                  Me.btnDown.Location   =   New   System.Drawing.Point(308,   60)  
                  Me.btnDown.Name   =   "btnDown"  
                  Me.btnDown.Size   =   New   System.Drawing.Size(40,   28)  
                  Me.btnDown.TabIndex   =   3  
                  Me.btnDown.Text   =   "Down"  
                  '  
                  'frm  
                  '  
                  Me.AutoScaleBaseSize   =   New   System.Drawing.Size(6,   14)  
                  Me.ClientSize   =   New   System.Drawing.Size(360,   245)  
                  Me.Controls.Add(Me.btnDown)  
                  Me.Controls.Add(Me.btnUp)  
                  Me.Controls.Add(Me.lvw)  
                  Me.Name   =   "frm"  
                  Me.ResumeLayout(False)  
   
          End   Sub  
   
  #End   Region  
   
          Private   Sub   frm_Load(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   MyBase.Load  
                  InitLVW()  
          End   Sub  
   
          '加载项到列表  
          Private   Sub   InitLVW()  
                  Dim   i   As   Integer  
                  Me.lvw.FullRowSelect   =   True  
                  Me.lvw.View   =   View.Details  
                  Me.lvw.Columns.Add("ID",   100,   HorizontalAlignment.Center)  
                  Me.lvw.Columns.Add("Name",   100,   HorizontalAlignment.Center)  
                  For   i   =   0   To   10  
                          Dim   xItem   As   New   ListViewItem  
                          xItem.Text   =   i.ToString()  
                          xItem.SubItems.Add(i   &   "   item")  
                          Me.lvw.Items.Add(xItem)  
                  Next  
          End   Sub  
   
          '上移  
          Private   Sub   btnUp_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   btnUp.Click  
                  '当列表项有多于1条记录，并且有选中记录时，才能操作  
                  Dim   iCount   As   Integer   =   Me.lvw.Items.Count  
                  If   iCount   >   1   And   Me.lvw.SelectedItems.Count   >   0   Then  
                          '当选择中的不是第1项时才可上移  
                          If   Me.lvw.SelectedItems(0).Index   <>   0   Then  
                                  Dim   iIndex   As   Integer   =   lvw.SelectedItems(0).Index  
   
                                  Dim   xItem   As   ListViewItem   =   Me.lvw.SelectedItems(0)  
                                  lvw.Items.Remove(xItem)  
                                  lvw.Items.Insert(iIndex   -   1,   xItem)  
                          End   If  
                  End   If  
          End   Sub  
   
          '下移  
          Private   Sub   btnDown_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   btnDown.Click  
                  '当列表项有多于1条记录，并且有选中记录时，才能操作  
                  Dim   iCount   As   Integer   =   Me.lvw.Items.Count  
                  If   iCount   >   1   And   Me.lvw.SelectedItems.Count   >   0   Then  
                          '当选择中的不是最后项时才可下移  
                          If   Me.lvw.SelectedItems(0).Index   <>   iCount   -   1   Then  
                                  Dim   iIndex   As   Integer   =   lvw.SelectedItems(0).Index  
   
                                  Dim   xItem   As   ListViewItem   =   Me.lvw.SelectedItems(0)  
                                  lvw.Items.Remove(xItem)  
                                  lvw.Items.Insert(iIndex   +   1,   xItem)  
                          End   If  
                  End   If  
          End   Sub  
   
  End   Class  
==========================================

 

上移：
private void button1_Click(object sender, System.EventArgs e)
{
for(int i = 0; i < listView1.CheckedItems.Count; i++)
{
   if(listView1.CheckedItems[i].Index != 0)
   {
    ListViewItem   item   =   listView1.CheckedItems[i];  
    int index = item.Index;
    listView1.Items.Remove(item);  
    listView1.Items.Insert(index - 1,item);  
   }
}
}

下移：
private void button2_Click(object sender, System.EventArgs e)
{
for(int i = listView1.CheckedItems.Count; i > 0; i--)
{
   if(listView1.CheckedItems[i-1].Index != listView1.Items.Count - 1)
   {
    ListViewItem item   =   listView1.CheckedItems[i-1];  
    int index = item.Index;
    listView1.Items.Remove(item);  
    listView1.Items.Insert(index + 1,item);  
   }
}