Article ID: 187962
Article Last Modified on 3/3/2005
Option Explicit
Private Sub cmdLeftArrow_Click()
Dim l
Set l = ListViewCtrl1.ListItems.Add(, , "Left Arrow", 1)
End Sub
Private Sub cmdRightArrow_Click()
Dim r
Set r = ListViewCtrl1.ListItems.Add(, , "Right Arrow", 2)
End Sub
Private Sub Form_Load()
'Add Images to ImageList
ImageList1.Add ("\Windows\arrowl.2bp")
ImageList1.Add ("\Windows\arrowr.2bp")
'Make the images in ImageList control available for
'the ListView control
ListViewCtrl1.Icons = ImageList1.hImageList
End Sub
Imagelist1.Add ("\windows\arrowl.2bp")
with the lines:ImageList1.ImageWidth = 109 ImageList1.Add "\windows\wincelgo.bmp"When adding images, if the width of the image is not evenly divisible by the ImageWidth set above, it may appear distorted as the Imagelist control attempts to re-scale it.
Additional query words: vbce wince vbce6 eVB bmp 2bp
Keywords: kbhowto kbtoolkit KB187962