>ThisForm.oleImageList1.ListImages.Add(,JustStem('1st Module'),LoadPicture('FLGAUSTA.ICO')) >ThisForm.oleListView.Icons = ThisForm.oleImageList1 > >With ThisForm.oleListView.ListItems >loImageListItem = ThisForm.oleImageList1.Object.ListImages('1st Module') >liImageIndex = 0 >thisform.olelistView.ListItems.Add(,'AFJK','1st Module',liImageIndex,liImageIndex) >ENDWITH > >thisform.olelistView.Refresh() >>
*-- Clean up first Thisform.listView.ListItems.Clear Thisform.ListView.Object.Icons = .NULL. Thisform.ListView.Object.SmallIcons = .NULL. Thisform.ImageListLarge.ListImages.Clear Thisform.ImageListSmall.ListImages.Clear if lnIcons > 0 for lnI = 1 to alen(loIconBuddy.aIcons, 1) lcIconKey = justExt(lcFile) + sys(2015) Thisform.ImageListLarge.ListImages.Add( ,lcIconKey, loIconBuddy.aIcons[lnI, 1] ) Thisform.ImageListSmall.ListImages.Add( ,lcIconKey, loIconBuddy.aIcons[lnI, 2] ) if lnI = 1 ThisForm.ListView.Object.Icons = ThisForm.ImageListLarge.Object Thisform.ListView.Object.SmallIcons = ThisForm.ImageListSmall.Object endif Thisform.ListView.ListItems.Add(, lcIconKey, "This is Icon No."+padl(lnI,3,"0") , ; ThisForm.ImageListLarge.ListImages.Count,; ThisForm.ImageListSmall.ListImages.Count) endfor &&* lnI = 1 to alen(loIconBuddy.aIcons, 1) endif