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

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

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