Sort data fil-ListView

Posted by Elisha fil -kontrolli , il Eżempji , il tutorials fuq 03 18, 2009 | L 11 tweġibiet

bażi bl-użu eżempju preċedenti , se naraw kif, bażiku viżwali. nett , sort-data fil ListView minn wieħed mill-kolonni tiegħu.

Il-proġett qabel inti żid żewġ buttuni li jagħżlu li hija l-ordni mixtieqa. Kif muri fl-istampa hawn taħt:

Aktar tard fil-kodiċi istess forma aħna se joħloq żewġ klassijiet ġodda (OrdenarPorNombre u l-Ordni mill Daqs), u l-avvenimenti tal-buttuni lagħaq waqqafna l-proprjetà ListViewItemSorter ListView ma 'każ ġdid tal-klassi li jikkorrispondi għall-ordni magħżula. Il-kodiċi huwa qasir, sabiex ma jiswa analiżi ħafna. Imbagħad I jħallu l-kodiċi tal-formola: 

 Importazzjonijiet System.IO
 Pubblika Klassi Form1

 Privat Sub Form1_Load (ByVal mittent Bħala System.Object, _
 ByVal e Bħala System.EventArgs) Mankijiet MyBase.Load
 D DIM Kif DirectoryInfo Ġdid ("C: \ Windows")
 ListView1.View = View.Details
 ListView1.FullRowSelect = True

 ListView1.BeginUpdate ()
 ListView1.Items.Clear ()

 Għall Kull f Bħala FileInfo Fil d.GetFiles
 Oġġett DIM Kif New ListViewItem (f.Name)

 item.SubItems.Add (f.length)
 item.SubItems.Add (f.CreationTime)
 item.SubItems.Add (f.LastWriteTime)
 item.SubItems.Add (f.LastAccessTime)

 ListView1.Items.Add (oġġett)
 Jmiss
 ListView1.EndUpdate ()

 Tmiem Sub

 Privat Sub Button1_Click (ByVal mittent Bħala System.Object, _
 ByVal e Bħala System.EventArgs) Mankijiet Button1.Click
 "Sort by isem
 ListView1.ListViewItemSorter = New ordenarPorNombre
 Tmiem Sub

 Privat Sub Button2_Click (ByVal mittent Bħala System.Object, _
 E ByVal Fir System.EventArgs) Mankijiet Button2.Click
 "Sort by daqs
 ListView1.ListViewItemSorter = New ordenarPorTamaño
 Tmiem Sub
 Klassi Tmiem

 Klassi ordenarPorNombre
 Implimenti IComparer

 Funzjoni Pubblika Qabbel (ByVal x As, Għan ByVal y Kif Object) _
 Kif Integer implimenti System.Collections.IComparer.Compare
 Dim punt1 Bħala ListViewItem = CType (x, ListViewItem)
 Item2 DIM Kif ListViewItem = CType (y, ListViewItem)
 Ritorn String.Compare (item1.Text, item2.Text)
 Funzjoni Tmiem
 Klassi Tmiem

 Klassi ordenarPorTamaño
 Implimenti IComparer

 Funzjoni Pubblika Qabbel (ByVal x As, Għan ByVal y Kif Object) _
 Kif Integer implimenti System.Collections.IComparer.Compare
 Dim punt1 Bħala ListViewItem = CType (x, ListViewItem)
 Item2 DIM Kif ListViewItem = CType (y, ListViewItem)
 Ritorn Math.Sign (CLng (item1.SubItems (1) Test) -.. CLng (item2.SubItems (1) Test))
 Funzjoni Tmiem
 Klassi Tmiem

Bħal dejjem, Nispera li l-kodiċi se jkunu utli.

11 Responses to "Issortjar Data fil-ListView"

  1. Bitacoras.com jgħid:
    18/03/2009 fi 10:41 am

    Informazzjoni Bitacoras.com ...

    Rata fil Bitacoras.com: l-użu bħala bażi l-eżempju hawn fuq, se naraw kif, bażiku viżwali Net ListView data xorta minn xi kolonni tagħha.. Il-proġett ta 'qabel se jżid żewġ buttuni li jagħżlu liema hija l-ordni ta' .....

    Tweġiba
  2. Laura:
    14/04/2009 fi 14:17

    Ok, multa, iżda ... dan? Biss f'ordni axxendenti u tordna u 'l isfel, li tagħti l ikklikkja fuq il-kolonna header

    Tweġiba
  3. Elisha:
    15/04/2009 fi 01:22

    Hi Laura:

    Tordna bl-isem f'ordni dixxendenti biss għandhom ireġġgħu lura l-varjabbli li jiġu rritornati fil-klassi OrdenarPorNombre ... Inti jkollha tinbidel:
    Ritorn String.Compare (item1.Text, item2.Text)
    għal dan:
    Ritorn String.Compare (item2.Text, item1.Text)

    u fil-każ ta 'ordni numeriku għandu jreġġa' lura s-sinjal lura mill-każ ordenarPorTamaño, tbiddel din:
    Ritorn Math.Sign (CLng (item1.SubItems (1) Test) -.. CLng (item2.SubItems (1) Test))
    għal dan:
    Ritorn Math.Sign () CLng (item1.SubItems (1) Test.) - CLng (. Item2.SubItems (1) Test)) * -1)

    u finalment jgħidlek li l-ordni li tagħti kolonna Ikklikkja ta ListView ma jikkummentaw hawn għaliex nixtieq li jiddedikaw artikolu separat.

    Tislijiet, Elisha

    Tweġiba
  4. Oscar:
    26/05/2009 fi 03:10

    U kif inti ordni minn xi qasam f'ordni dixxendenti Data data Maħluq eż.

    Tweġiba
    • Elisha:
      27/05/2009 fi 01:35

      Żid il-klassi li ġejja u tassenja lill-buttuna li trid.

      Klassi ordenarPorFechaCreacion
      Implimenti IComparer

      Funzjoni Pubblika Qabbel (ByVal x As, Għan ByVal y Kif Object) _
      Kif Integer implimenti System.Collections.IComparer.Compare
      Dim punt1 Bħala ListViewItem = CType (x, ListViewItem)
      Item2 DIM Kif ListViewItem = CType (y, ListViewItem)
      Ritorn Date.Compare (Date.parse (item1.SubItems (2). Test), Date.parse (item2.SubItems (2). Test))
      Funzjoni Tmiem
      Klassi Tmiem

      Tweġiba
  5. Roxana:
    21/11/2009 fi 22:49

    Hello nies.
    fis-C # kif ikun il-piena għall-istess ordni?

    Tweġiba
  6. Aqra l-isem tal-fajl u jgħaddu ListView - VB-Dinja - Programmar viżwali jgħid:
    26/04/2010 fi 17:59

    [...] [...]

    Tweġiba
  7. bebrafraptaug jgħid:
    2011/05/03 fi 5:36 am

    dobry bidu

    Tweġiba
  8. Joshua:
    2011/10/04 fi 23:43

    fil-każ jekk ikolli lista sabiex
    23 = 5 +5 +13
    5 = 1 +1 +1 +2
    4 = 3 +1
    eċċ .....
    I tista 'tagħmel I kif tordnaha mill-numri li jekk ir-riżultat huwa I 231 = 100 100 31 ma tqiegħed lilha wara l-23 = 5 +5 13

    Tweġiba
  9. Victor:
    16/11/2011 fi 18:57

    Tajba wara nofsinhar,

    Sorry għall-inkonvenjenza, iżda se tkun taf kif tista 'sort permezz ta' żewġ kolonni f'daqqa? xi ħaġa bħal din:
    XYZ
    aba -> 1
    baa -> 2
    biex b -> 3

    u ħalla:

    XYZ
    biex b -> 3
    aba -> 1
    baa -> 2

    Super grat jekk inti tista 'tgħin u jekk le, grazzi għall-istazzjonar-istess informazzjoni li kienet utli lili wkoll.

    Tweġiba
  10. Cinthia qal:
    2011/12/12 fi 21:27

    U jekk inti tixtieq li data ..... li mhux biss huma skond id-data tal-ħolqien

    Tweġiba

Comment