Ahoj! Potřeboval bych prosím poradit s listviewem ve VB2010 potřebuji přidat do listviewu novou položku viz.kod, ale v tomto případě se my vždy zařadí až na konec seznamu,ale já ji potřebuji dát do místa označeného řádku
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'přidá novou položku
'zjistit hodnoty z okna
Dim popis As String = TextBox1.Text
Dim prumer As Double = Val(TextBox2.Text)
Dim otacky As Double = Val(TextBox3.Text)
Dim posuv As Double = Val(TextBox4.Text)
Dim uhel As Double = Val(TextBox5.Text)
Dim britu As Double = Val(TextBox6.Text)
Dim polozka As New ListViewItem()
polozka.Text = popis.ToString 'vypsat popis
polozka.SubItems.Add(prumer)
polozka.SubItems.Add(otacky)
polozka.SubItems.Add(posuv)
polozka.SubItems.Add(uhel)
polozka.SubItems.Add(britu)
ListView1.Items.Add(polozka) 'přidat položku do seznamu
End Sub
|