ListView in VB.Net

Question

khwo 0 Newbie Poster

17 Years Ago

Hi,
Anyone of you know hot to get item when user click on item in the listview. I want the data in listview display in the text box, can anyone give me some advice on this? The following code is my coding at Form_Load():-

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Set the List to Detail View
    ListView1.View = View.Details
    ListView1.CheckBoxes = True

    'To Activate an Item you must doubleclick the item
    'This will fire the 
    ListView_OrderEntry.Activation = ItemActivation.TwoClick

    'Add Columns
    ListView1.Columns.Add("C1", 100, HorizontalAlignment.Center)
    ListView1.Columns.Add("C2", 100, HorizontalAlignment.Center)
    ListView1.Columns.Add("C3", 100, HorizontalAlignment.Center)
    ListView1.Columns.Add("C4", 100, HorizontalAlignment.Center)
    ListView1.Columns.Add("C5", 100, HorizontalAlignment.Center)
    ListView1.Columns.Add("C6", 100, HorizontalAlignment.Center)
    ListView1.Columns.Add("C7", 100, HorizontalAlignment.Center)
    ListView1.Columns.Add("C8", 100, HorizontalAlignment.Center)
    ListView1.Columns.Add("C9", 100, HorizontalAlignment.Center)
    ListView1.Columns.Add("C10", 100, HorizontalAlignment.Center)
End Sub

vb.net

Edited 8 Years Ago by Reverend Jim because: Corrected code formatting

16 Contributors
16 Replies
4K Views
6 Years Discussion Span
Latest Post 10 Years Ago Latest Post by maley

All 16 Replies

Lord Soth 4 Posting Whiz in Training

17 Years Ago

Hi,

You can use SelectedIndexChange event of ListView class.

Loren Soth

maccinelyro 0 Newbie Poster

12 Years Ago

maybe this help you

private sub ListView_Click()

textbox1.text = Listview1.SelectedItems(0).Subitems(0).Text 'For C1
textbox2.text = Listview1.SelectedItems(0).Subitems(1).Text 'For C2
textbox3.text = Listview1.SelectedItems(0).Subitems(2).Text 'For C3
textbox4.text = Listview1.SelectedItems(0).Subitems(3).Text 'For C4
textbox5.text = Listview1.SelectedItems(0).Subitems(4).Text 'For C5
textbox6.text = Listview1.SelectedItems(0).Subitems(5).Text 'For C6
textbox7.text = Listview1.SelectedItems(0).Subitems(6).Text 'For C7
textbox8.text = Listview1.SelectedItems(0).Subitems(7).Text 'For C8
textbox9.text = Listview1.SelectedItems(0).Subitems(8).Text 'For C9
textbox10.text = Listview1.SelectedItems(0).Subitems(9).Text 'For C10

End Sub

Edited 12 Years Ago by Nick Evan because: Added CODE tags

ImZick 0 Posting Whiz in Training

11 Years Ago

@aterus29, change your code into this

    'Add first item
    arr(0) = "product_1"
    arr(1) = "100"
    arr(2) = "10"
    arr(3) = "10"
    itm = New ListViewItem(arr)
    ListView1.Items.Add(itm)

    'Add second item
    arr(0) = "product_2"
    arr(1) = "200"
    arr(2) = "20"
    arr(3) = "10"
    itm = New ListViewItem(arr)
    ListView1.Items.Add(itm)

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

Tanvir 0 Newbie Poster · Answer 1 · 2006-08-09T11:09:40+00:00

Code to fill the listview control in vb.net dynamically

Dim rdGetData As SqlClient.SqlDataReader
Try
    If ListView1.Items.Count > 0 Then
        ListView1.Items.Clear()
    End If
    SQLCmd.CommandType = CommandType.Text
    SQLCmd.CommandText = "SELECT * from table"
    rdGetData = SQLCmd.ExecuteReader

    Dim intCount As Decimal = 0
    While rdGetData.Read
        ListView1.Items.Add(Trim("FieldName"))           'col no. 1
        ListView1.Items(CInt(intCount)).SubItems.Add(Trim(rdGetContactsInfo("FieldName")))  'col no. 2
        ListView1.Items(CInt(intCount)).SubItems.Add(Trim(rdGetContactsInfo("FieldName")))  'col no. 3
        intCount = intCount + 1
    End While
    rdGetData.Close()
    rdGetData = Nothing

Catch Exp As Exception
    intNumError = Err.Number()
    MsgBox("[ " & CStr(intNumError) + " ] " + Err.Description, MsgBoxStyle.Critical, " (Program Error)")
End Try

Code to get selected item in the textbox control into the button's click event or according to your requirment.

TextBox1.Text = ListView1.SelectedItems(0).Text 
TextBox2.Text = ListView1.SelectedItems(0).SubItems(2).Text

This will copy the selected item's first value and 2nd value into the textboxes

Exelio 0 Junior Poster in Training · Answer 2 · 2006-08-09T16:11:39+00:00

hi,
You can use the following code to display the selected text in the textbox.

Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles           ListView1.ItemDrag
    TextBox1.Text = e.Item.ToString
End Sub

Regards

Exelio

giNMaN86 0 Newbie Poster · Answer 3 · 2009-10-15T07:42:58+00:00

hi,
You can use the following code to display the selected text in the textbox.
Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag
TextBox1.Text = e.Item.ToString
End Sub

Regards
Exelio

Perhaps you can use e.Item.ToString for an ItemDrag event, however I think he is using the ItemActivate event, in which case, this will not work. Why VB does this is beyond me. ListViews have been a pain to learn in general.

ola awny 0 Newbie Poster · Answer 4 · 2009-11-24T15:27:14+00:00

ola awny 0 Newbie Poster

14 Years Ago

thank you

pergsify 0 Newbie Poster · Answer 5 · 2010-07-23T19:31:55+00:00

'here i've got a listview1 ,label1 .
'as simple as this one. it displays the corresponding item from the listview1 straight to the 'label1 ..

Private Sub listview1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles listview1.ItemSelectionChanged

Label1.Text = e.Item.Text

End Sub

'or if you want the next column-item to be displayed, let say label2 from the same listview, then just the code

Label2.Text = e.Item.SubItems(1).Text

'(0) for the first column ,(1) for the 2nd, and so on.

note: this was coded in Visual Studio 2008, so i never tried the same code in VB.Net but i think it works the same.

noelcahapon 0 Newbie Poster · Answer 6 · 2010-09-04T08:45:11+00:00

noelcahapon 0 Newbie Poster

13 Years Ago

sfdasdfa

kevin m cain 0 Newbie Poster · Answer 7 · 2011-05-11T00:58:34+00:00

You should use the mouse click event and the code below

Dim itm as ListViewItem = Me.prvLstVw.GetItemAt(e.X, e.Y)

If itm is nothing Then
Exit Sub
End If

Gumagur 0 Newbie Poster · Answer 8 · 2011-09-22T17:13:35+00:00

You should use
textbox1.text = ListView1.SelectedItems.Item(0).Text

aterus29 0 Newbie Poster · Answer 9 · 2011-10-08T20:43:00+00:00

"ListView1.Items.Add("kb").SubItems.Add("ghv")"; this code can only add an item at column 1 and 2, how do i add an item in the third forth etc... column? thanks

laxmanpathare -1 Newbie Poster · Answer 10 · 2012-02-29T14:02:22+00:00

i want to do the folloing things

i have 1 combobox and 1 textbox i am entering the no in textbox and select the table from combobox when i am select the table it shows the data of this no and that table in the listview

plese give me help for this

totwa 0 Newbie Poster · Answer 11 · 2013-04-08T03:13:19+00:00

sirs, do you have a version of this code for listview web control. it doesnt work on web based listview.. thanks//

totwa 0 Newbie Poster · Answer 12 · 2013-04-08T03:25:42+00:00

--Sirs,, it tried this code on web app but not working.. pls help me for the web version..
    Dim rdGetData As SqlClient.SqlDataReader
        Try
            If ListView1.Items.Count > 0 Then
                ListView1.Items.Clear()
            End If
            SQLCmd.CommandType = CommandType.Text
            SQLCmd.CommandText = "SELECT * from table"
            rdGetData = SQLCmd.ExecuteReader

            Dim intCount As Decimal = 0
            While rdGetData.Read
                ListView1.Items.Add(Trim("FieldName")) 'col no. 1
                ListView1.Items(CInt(intCount)).SubItems.Add(Trim(rdGetContactsInfo("FieldName"))) 'col no. 2
                ListView1.Items(CInt(intCount)).SubItems.Add(Trim(rdGetContactsInfo("FieldName"))) 'col no. 3
                intCount = intCount + 1
            End While
            rdGetData.Close()
            rdGetData = Nothing

        Catch Exp As Exception
            intNumError = Err.Number()
            MsgBox("[ " & CStr(intNumError) + " ] " + Err.Description, MsgBoxStyle.Critical, " (Program Error)")
        End Try


        TextBox1.Text = ListView1.SelectedItems(0).Text
        TextBox2.Text = ListView1.SelectedItems(0).SubItems(2).Text

maley 0 Newbie Poster · Answer 13 · 2013-05-10T06:36:34+00:00

add items in list view

        arr[0] = "product_1";
        arr[1] = "100";
        arr[2] = "10";
        itm = new ListViewItem(arr);
        listView1.Items.Add(itm);

get items from list view

        productName = listView1.SelectedItems[0].SubItems[0].Text;
        price = listView1.SelectedItems[0].SubItems[1].Text;
        quantity = listView1.SelectedItems[0].SubItems[2].Text;

http://vb.net-informations.com/gui/vb.net-listview.htm

maley

ListView in VB.Net

Recommended Answers Collapse Answers

All 16 Replies

Recommended Answers