Fuction 4 Adding Items 2 ListView

[ahostbr]

This is my 1st codebank entry... i was trying to find just a nice easy way 2 add to my logs... so i created this function... that adds 3 items 2 a listview... also it uses time as the second item 2 add... but you can easily change that

hope this helps someone ... i know if i had it yesterday it would have saved me 2 hrs... ... also im a pretty big newb... if theres a better way 2 do this please share

'By ahostbr VBForums.com
    'Usage:
    'to_log("HI", 0, "Very Nice Function :)")
    'im using time 4 item 2... you can change that if youd like :)
    Public Function to_log(ByVal item1_string As String, ByVal img_index As Integer, ByVal item3 As String)
        'The string to pass is The 1st Items String &_
        ' Integer to Pass is Image Index
        Dim item1 As New ListViewItem(item1_string, img_index)
 
        'Enabled Images
        item1.Checked = True
 
        ' Grabs The Time
        Dim time As String = TimeOfDay.Now.ToString
 
        'Adds To Second Column
        item1.SubItems.Add(time) 'using time here, you can just add whatever                
 
        'Adds To 3rd Column
        item1.SubItems.Add(item3)
 
        ' Create ImageList objects.
        Dim imageList As New ImageList()
        ' Initialize the ImageList objects from my.resources.
        imageList.Images.Add(My.Resources.black_check) 'index is 0
        imageList.Images.Add(My.Resources.question_mark) 'index is 1
        imageList.Images.Add(My.Resources.err_blood) 'index is 2
 
        'Assign the ImageList objects to the ListView.
        ListView1.LargeImageList = imageList
        ListView1.SmallImageList = imageList
 
        'Adds What We Made Maybe Called after a Next Statement
        ListView1.Items.AddRange(New ListViewItem() {item1})
 
 
        Return Nothing
    End Function

Copy Friendly:

    'By ahostbr VBForums.com
    'Usage:
    'to_log("HI", 0, "Very Nice Function :)")
    'im using time 4 item 2... you can change that if youd like :)
    Public Function to_log(ByVal item1_string As String, ByVal img_index As Integer, ByVal item3 As String)
        'The string to pass is The 1st Items String &_
        ' Integer to Pass is Image Index
        Dim item1 As New ListViewItem(item1_string, img_index)

        'Enabled Images
        item1.Checked = True

        ' Grabs The Time
        Dim time As String = TimeOfDay.Now.ToString

        'Adds To Second Column
        item1.SubItems.Add(time) 'using time here, you can just add whatever                

        'Adds To 3rd Column
        item1.SubItems.Add(item3)

        ' Create ImageList objects.
        Dim imageList As New ImageList()
        ' Initialize the ImageList objects from my.resources.
        imageList.Images.Add(My.Resources.black_check) 'index is 0
        imageList.Images.Add(My.Resources.question_mark) 'index is 1
        imageList.Images.Add(My.Resources.err_blood) 'index is 2

        'Assign the ImageList objects to the ListView.
        ListView1.LargeImageList = imageList
        ListView1.SmallImageList = imageList

        'Adds What We Made Maybe Called after a Next Statement
        ListView1.Items.AddRange(New ListViewItem() {item1})


        Return Nothing
    End Function