Option Compare Database
Option Explicit
Private mIl As MSComctlLib.ImageList '// reference to the ImageList control
Private mIndex As Long '// index of currently displayed image
Private Sub Form_Load()
mIndex = 1
Set mIl = Images.Object
DisplayImage
End Sub
Private Sub Next_Click()
If (mIndex < mIl.ListImages.Count) Then
mIndex = mIndex + 1
End If
DisplayImage
End Sub
Private Sub Previous_Click()
If (mIndex > 1) Then
mIndex = mIndex - 1
End If
DisplayImage
End Sub
Private Sub DisplayImage()
ImageDisplay.Picture = mIl.ListImages(mIndex).Picture '// failure here, the Picture property return the image's handle
End Sub
So, how can I display images held in an ImageList control, in an Image control ?
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.