Forums before death by AOL, social media and spammers... "We can't have nice things"
| comp.lang.visual.basic | MS Visual Basic discussions, NOT dot-net | 10,840 messages |
[ << oldest | < older | list | newer > | newest >> ]
| Message 9,643 of 10,840 |
| S.W. Rasmussen to All |
| swapping two listview lines |
| 03 Aug 05 23:52:14 |
From: swr@seqtools.dk Hi, A trivial question: Is there an easier/more elegant way of swapping two lines in a 5-column listview control than the "primitive" method indicated below? Dim tmp0 As String Dim tmp1 As String Dim tmp2 As String Dim tmp3 As String Dim tmp4 As String tmp0 = lvwMain.ListItems.Item(selNum).Text tmp1 = lvwMain.ListItems.Item(selNum).ListSubItems(1).Text tmp2 = lvwMain.ListItems.Item(selNum).ListSubItems(2).Text tmp4 = lvwMain.ListItems.Item(selNum).ListSubItems(3).Text tmp5 = lvwMain.ListItems.Item(selNum).ListSubItems(4).Text lvwMain.ListItems.Item(selNum).Text = EditPage.lvwMain.ListItems.Item(selNum - 1).Text lvwMain.ListItems.Item(selNum).ListSubItems(1).Text = lvwMain.ListItems.Item(selNum - 1).ListSubItems(1).Text lvwMain.ListItems.Item(selNum).ListSubItems(2).Text = lvwMain.ListItems.Item(selNum - 1).ListSubItems(2).Text lvwMain.ListItems.Item(selNum).ListSubItems(3).Text = lvwMain.ListItems.Item(selNum - 1).ListSubItems(3).Text lvwMain.ListItems.Item(selNum).ListSubItems(4).Text = lvwMain.ListItems.Item(selNum - 1).ListSubItems(4).Text lvwMain.ListItems.Item(selNum - 1).Text = tmp0 lvwMain.ListItems.Item(selNum - 1).ListSubItems(1).Text = tmp1 lvwMain.ListItems.Item(selNum - 1).ListSubItems(2).Text = tmp2 lvwMain.ListItems.Item(selNum - 1).ListSubItems(3).Text = tmp3 lvwMain.ListItems.Item(selNum - 1).ListSubItems(4).Text = tmp4 Soeren W. --- SoupGate-Win32 v1.05 * Origin: you cannot sedate... all the things you hate (1:229/2) |
(c) 1994, bbs@darkrealms.ca