dotNETportal.cz

Dobrý deň! Potreboval by som pomoc.

Viemi niekto poradiť kód pre Visual Basic? Nejedná sa o excel, ale v programe Visual Studio Expres 2010

Vo Form1 mám dva TextBoxy, jeden ListView, dva Buttony a jeden DatePicker. DatePicker je dátum narodenia, TexBox1 je meno a TexBox2 je Priezvisko.

A potreboval by som nejaký kód, že keď kliknem na Button1 tak aby z DataPickeru a TexBoxov prepísalo do troch stlpcov ListView.

A keď kliknem na Button2, aby vymazal vždy označený riadok v ListView.

Je možné, že bude treba niečo zmeniť aj vo vlastnostiach ak áno tak čo?

Trochu sa učím programovať, mám aj knižku Visual Basic, ale tento postup nie je písaný a neviem na to prísť.

Ak niekto vie poradiť vopreď Ďakujem!!!

Dobrý den, vřele doporučuji nejprve nastudovat základy (pokud kniha nepomůže, přečtěte si zde na webu seriál "VB.NET od začátku" http://vbnet.cz/serial--1-vb_net_od_zaca....

Přesto uvedu i kod pro váš dotaz:

'Přidání nové položky do ListView

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        ListView1.Items.Add(TextBox1.Text & " " & TextBox2.Text & " | " & DateTimePicker1.Value)

    End Sub


'Odebrání označené položky v ListView
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        If (ListView1.SelectedItems.Count = 1) Then
            ListView1.SelectedItems(0).Remove()
        End If

    End Sub

Omlouvám se za špatně uvedený odkaz.

http://vbnet.cz/serial--1-vb_net_od_zaca...

Spíš bych přidal do ListView nějaké Columns a pak přidal položku takto:

ListView1.Items.Add(New ListViewItem({TextBox1.Text,TextBox2.Text,DateTimePicker1.Value.ToString()}))

Kód je samozřejmě v pořádku, ale začátečníkům bych doporučoval spíš přidávat a vytvářet to postupně, aby se to dalo jednoduše krokovat a sledovat, což u zkráceného zápisu nelze.

Díky za kód funguje to!!!

Prosil by som ešte o jednu radu.

Mám tento kód:

Dim a As Integer = CInt(TextBox1.Text)

Dim b As Integer = CInt(TextBox2.Text)

Dim c As Integer = a - b

TextBox3.Text = CStr(c)

Funguje to správne, ale vie mi niekto poradiť, ako výsledky dostanem namiesto TextBox3 do Listview1 7 stlpec cez Button1?

v Buttone1 mám kód:

ListView1.Items.Add(New ListViewItem({DateTimePicker1.Value, ComboBox1.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text.ToString()}))

Mám 7 stlpcov, ale šesť stlpcov mi píše hodnoty a do siedmeho potrebujem výsledky. To znamená, že keď zadám čísla do TextBox1 a do TextBox2 tak pri kliknutí na Button1 by malo v písať výsledok do ListView1 7 stlpec.

Ďakujem!!!

Kdesi som tu videl plnenie ListViewu položkami poľa.

Dim addLines(listIssue.count - 1) As ListViewItem

For i As Integer = 0 To listIssue.count - 1

Dim issue As New Entry

issue = listIssue.entryGet(i)

addLines(i) = issue.buildListViewEntry()

Next

Seznam.Items.AddRange(addLines)

Tak prečo mne to takto nefunguje ?

Dim riadok(4) As ListViewItem

For i As Byte = 0 To UBound(riadok)

riadok(i) = ListView1.Items.Add(i & " riadok")

Next

ListView1.Items.AddRange(riadok)

Kdesi som tu videl plnenie ListViewu položkami poľa.

Dim addLines(listIssue.count - 1) As ListViewItem

For i As Integer = 0 To listIssue.count - 1

Dim issue As New Entry

issue = listIssue.entryGet(i)

addLines(i) = issue.buildListViewEntry()

Next

Seznam.Items.AddRange(addLines)

Tak prečo mne to takto nefunguje ?

Dim riadok(4) As ListViewItem

For i As Byte = 0 To UBound(riadok)

riadok(i) = ListView1.Items.Add(i & " riadok")

Next

ListView1.Items.AddRange(riadok) - tu to nefunguje