Listview move item

#1
vlad1m1r

Posted 01 May 2011 - 16:55

Member

Grup: Members
Posts: 250
Înscris: 08.11.2009

Salut cum pot face niste butoane cu care sa mut itemele in sus si in jos.Pe google am gasit destule exemple dar nu merge nici unul pentru ca nu pot folosi ListView1.ListItems , nu il are, am visual bazic 2008 framework 3.5!

Back to top

#2
_Smiley_

Posted 01 May 2011 - 17:00

Guru Member

Grup: Senior Members
Posts: 20,043
Înscris: 24.02.2006

foloseste ListView1.Items

Back to top

#3
vlad1m1r

Posted 01 May 2011 - 17:09

Member

Grup: Members
Posts: 250
Înscris: 08.11.2009

Acum imi da eroare la ListView1.SelectedItem.Index

dar mai e ceva eu am SelectedItems cu s

Edited by vlad1m1r, 01 May 2011 - 17:13.

Back to top

#4
_Smiley_

Posted 01 May 2011 - 17:42

Guru Member

Grup: Senior Members
Posts: 20,043
Înscris: 24.02.2006

pentru ca ListView iti permite selectie multipla, iar elementele selectate sunt in SelectedItems

nu stiu ce exemple ai gasit tu, dar e posibil sa se refere la vreo versiune beta de VS2008. vezi pe aici varianta actualizata a lui ListView: http://msdn.microsof...s.listview.aspx

Back to top

#5
edy_3dz

Posted 01 May 2011 - 17:44

Rau sau bun

Grup: Senior Members
Posts: 3,241
Înscris: 30.08.2008

Private Sub button11_Click(sender As Object, e As EventArgs)
	'sus
	If listView1.SelectedItems.Count > 0 Then
		Dim index As Integer = listView1.SelectedItems(0).Index
		If index > 0 Then
			Dim lvi As ListViewItem = listView1.SelectedItems(0)
			listView1.Items(index).Remove()
			listView1.Items.Insert(index - 1, lvi)
		End If
	End If
End Sub

Private Sub button13_Click(sender As Object, e As EventArgs)
	'jos
	If listView1.SelectedItems.Count > 0 Then
		Dim index As Integer = listView1.SelectedItems(0).Index
		If index < listView1.Items.Count - 1 Then
			Dim lvi As ListViewItem = listView1.SelectedItems(0)
			listView1.Items(index).Remove()
			listView1.Items.Insert(index + 1, lvi)
		End If
	End If
End Sub

Ar trebui sa mearga perfect

Back to top

#6
vlad1m1r

Posted 01 May 2011 - 19:03

Member

Grup: Members
Posts: 250
Înscris: 08.11.2009

edy_3dz, on 1st May 2011, 18:44, said:

Private Sub button11_Click(sender As Object, e As EventArgs)
	'sus
	If listView1.SelectedItems.Count > 0 Then
		Dim index As Integer = listView1.SelectedItems(0).Index
		If index > 0 Then
			Dim lvi As ListViewItem = listView1.SelectedItems(0)
			listView1.Items(index).Remove()
			listView1.Items.Insert(index - 1, lvi)
		End If
	End If
End Sub

Private Sub button13_Click(sender As Object, e As EventArgs)
	'jos
	If listView1.SelectedItems.Count > 0 Then
		Dim index As Integer = listView1.SelectedItems(0).Index
		If index < listView1.Items.Count - 1 Then
			Dim lvi As ListViewItem = listView1.SelectedItems(0)
			listView1.Items(index).Remove()
			listView1.Items.Insert(index + 1, lvi)
		End If
	End If
End Sub

Ar trebui sa mearga perfect

Chiar asa e merge perfect

tks

Back to top

Anunturi

Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

Listview move item

#1 vlad1m1r Posted 01 May 2011 - 16:55

#2 _Smiley_ Posted 01 May 2011 - 17:00

#3 vlad1m1r Posted 01 May 2011 - 17:09

#4 _Smiley_ Posted 01 May 2011 - 17:42

#5 edy_3dz Posted 01 May 2011 - 17:44

#6 vlad1m1r Posted 01 May 2011 - 19:03

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
vlad1m1r

Posted 01 May 2011 - 16:55

#2
_Smiley_

Posted 01 May 2011 - 17:00

#3
vlad1m1r

Posted 01 May 2011 - 17:09

#4
_Smiley_

Posted 01 May 2011 - 17:42

#5
edy_3dz

Posted 01 May 2011 - 17:44

#6
vlad1m1r

Posted 01 May 2011 - 19:03