how to fill listview without image

[mrmagoo]

I'm trying to fill a listview with data. I'm using the example from the help
file, but how do I modify this to avoid using images? I want the exact same
layout but without images. This procedure seems so dependent on the image
being the "anchor" of each row that I don't understand how to modify it.

Thanks.
Dim lv As ListView
lv = Me.ListView1
With lv
.View = View.Details
.LabelEdit = True
.AllowColumnReo rder = True
.CheckBoxes = False
.FullRowSelect = True
.GridLines = True
.Sorting = SortOrder.Ascen ding
End With
Dim item1 As New ListViewItem("i tem1", 0)
With item1
.Checked = True
.SubItems.Add(" 1")
.SubItems.Add(" 2")
.SubItems.Add(" 3")
End With
Dim item2 As New ListViewItem("i tem2", 1)
With item2
.Checked = True
.SubItems.Add(" 4")
.SubItems.Add(" 5")
.SubItems.Add(" 6")
End With
Dim item3 As New ListViewItem("i tem3", 0)
With item3
.Checked = True
.SubItems.Add(" 7")
.SubItems.Add(" 8")
.SubItems.Add(" 9")
End With
Dim item4 As New ListViewItem("i tem4", 0)
With item4
.Checked = True
.SubItems.Add(" 7")
.SubItems.Add(" 8")
.SubItems.Add(" 9")
End With
With lv
.Columns.Add("C olumn 1", -2, HorizontalAlign ment.Left)
.Columns.Add("C olumn 2", -2, HorizontalAlign ment.Left)
.Columns.Add("C olumn 3", -2, HorizontalAlign ment.Left)
.Columns.Add("C olumn 4", -2, HorizontalAlign ment.Left)
.Items.AddRange (New ListViewItem() {item1, item2, item3, item4})
End With

Dim imageListSmall As New ImageList
Dim imageListLarge As New ImageList

' Initialize the ImageList objects with bitmaps.

imageListSmall. Images.Add(Bitm ap.FromFile("D: \Data\MySmallIm age1.bmp"))

imageListSmall. Images.Add(Bitm ap.FromFile("D: \Data\MySmallIm age2.bmp"))

imageListLarge. Images.Add(Bitm ap.FromFile("D: \Data\MyLargeIm age1.bmp"))

imageListLarge. Images.Add(Bitm ap.FromFile("D: \Data\MyLargeIm age2.bmp"))

''Assign the ImageList objects to the ListView.
lv.LargeImageLi st = imageListLarge
lv.SmallImageLi st = imageListSmall
Me.Controls.Add (lv)

[Kerry Moorman]

mrmagoo,

The problem is the code that creates the columns, lines like this:

..Columns.Add(" Column 1", -2, HorizontalAlign ment.Left)

You need to change the negative number to a positive number representing a
column width.

You can just leave all the image stuff out, that's not the problem.

Kerry Moorman
"mrmagoo" wrote:

I'm trying to fill a listview with data. I'm using the example from the help
file, but how do I modify this to avoid using images? I want the exact same
layout but without images. This procedure seems so dependent on the image
being the "anchor" of each row that I don't understand how to modify it.

Thanks.
Dim lv As ListView
lv = Me.ListView1
With lv
.View = View.Details
.LabelEdit = True
.AllowColumnReo rder = True
.CheckBoxes = False
.FullRowSelect = True
.GridLines = True
.Sorting = SortOrder.Ascen ding
End With
Dim item1 As New ListViewItem("i tem1", 0)
With item1
.Checked = True
.SubItems.Add(" 1")
.SubItems.Add(" 2")
.SubItems.Add(" 3")
End With
Dim item2 As New ListViewItem("i tem2", 1)
With item2
.Checked = True
.SubItems.Add(" 4")
.SubItems.Add(" 5")
.SubItems.Add(" 6")
End With
Dim item3 As New ListViewItem("i tem3", 0)
With item3
.Checked = True
.SubItems.Add(" 7")
.SubItems.Add(" 8")
.SubItems.Add(" 9")
End With
Dim item4 As New ListViewItem("i tem4", 0)
With item4
.Checked = True
.SubItems.Add(" 7")
.SubItems.Add(" 8")
.SubItems.Add(" 9")
End With
With lv
.Columns.Add("C olumn 1", -2, HorizontalAlign ment.Left)
.Columns.Add("C olumn 2", -2, HorizontalAlign ment.Left)
.Columns.Add("C olumn 3", -2, HorizontalAlign ment.Left)
.Columns.Add("C olumn 4", -2, HorizontalAlign ment.Left)
.Items.AddRange (New ListViewItem() {item1, item2, item3, item4})
End With

Dim imageListSmall As New ImageList
Dim imageListLarge As New ImageList

' Initialize the ImageList objects with bitmaps.

imageListSmall. Images.Add(Bitm ap.FromFile("D: \Data\MySmallIm age1.bmp"))

imageListSmall. Images.Add(Bitm ap.FromFile("D: \Data\MySmallIm age2.bmp"))

imageListLarge. Images.Add(Bitm ap.FromFile("D: \Data\MyLargeIm age1.bmp"))

imageListLarge. Images.Add(Bitm ap.FromFile("D: \Data\MyLargeIm age2.bmp"))

''Assign the ImageList objects to the ListView.
lv.LargeImageLi st = imageListLarge
lv.SmallImageLi st = imageListSmall
Me.Controls.Add (lv)

[mrmagoo]

Beautiful. Thanks.
"Kerry Moorman" <Ke**********@d iscussions.micr osoft.com> wrote in message
news:FE******** *************** ***********@mic rosoft.com...

mrmagoo,

The problem is the code that creates the columns, lines like this:

.Columns.Add("C olumn 1", -2, HorizontalAlign ment.Left)

You need to change the negative number to a positive number representing a
column width.

You can just leave all the image stuff out, that's not the problem.

Kerry Moorman
"mrmagoo" wrote:

I'm trying to fill a listview with data. I'm using the example from the help file, but how do I modify this to avoid using images? I want the exact same layout but without images. This procedure seems so dependent on the image being the "anchor" of each row that I don't understand how to modify it.

Thanks.
Dim lv As ListView
lv = Me.ListView1
With lv
.View = View.Details
.LabelEdit = True
.AllowColumnReo rder = True
.CheckBoxes = False
.FullRowSelect = True
.GridLines = True
.Sorting = SortOrder.Ascen ding
End With
Dim item1 As New ListViewItem("i tem1", 0)
With item1
.Checked = True
.SubItems.Add(" 1")
.SubItems.Add(" 2")
.SubItems.Add(" 3")
End With
Dim item2 As New ListViewItem("i tem2", 1)
With item2
.Checked = True
.SubItems.Add(" 4")
.SubItems.Add(" 5")
.SubItems.Add(" 6")
End With
Dim item3 As New ListViewItem("i tem3", 0)
With item3
.Checked = True
.SubItems.Add(" 7")
.SubItems.Add(" 8")
.SubItems.Add(" 9")
End With
Dim item4 As New ListViewItem("i tem4", 0)
With item4
.Checked = True
.SubItems.Add(" 7")
.SubItems.Add(" 8")
.SubItems.Add(" 9")
End With
With lv
.Columns.Add("C olumn 1", -2, HorizontalAlign ment.Left)
.Columns.Add("C olumn 2", -2, HorizontalAlign ment.Left)
.Columns.Add("C olumn 3", -2, HorizontalAlign ment.Left)
.Columns.Add("C olumn 4", -2, HorizontalAlign ment.Left)
.Items.AddRange (New ListViewItem() {item1, item2, item3, item4}) End With

Dim imageListSmall As New ImageList
Dim imageListLarge As New ImageList

' Initialize the ImageList objects with bitmaps.

imageListSmall. Images.Add(Bitm ap.FromFile("D: \Data\MySmallIm age1.bmp"))

imageListSmall. Images.Add(Bitm ap.FromFile("D: \Data\MySmallIm age2.bmp"))

imageListLarge. Images.Add(Bitm ap.FromFile("D: \Data\MyLargeIm age1.bmp"))

imageListLarge. Images.Add(Bitm ap.FromFile("D: \Data\MyLargeIm age2.bmp"))

''Assign the ImageList objects to the ListView.
lv.LargeImageLi st = imageListLarge
lv.SmallImageLi st = imageListSmall
Me.Controls.Add (lv)