请教浏览图片的问题

Question

请问用什么控件浏览十幅图片呢？用imagelist绑定图片，在image图像框浏览能有滚动条吗？

Answer 1

'image和PictureBox都没有滚动条,用PictureBox浏览+滚动条,在事件里控制ImageList1.ListImages的Index来浏览imagelist绑定的图片
Picture1.Picture = ImageList1.ListImages(1).Picture

Answer 2

Option Explicit
Dim x  As Integer
Private Sub Command1_Click()
   Me.Picture1.Picture = Me.ImageList1.ListImages(x).Picture
   x = x + 1
   If x > Me.ImageList1.ListImages.Count Then Me.Command1.Enabled = False
End Sub
Private Sub Form_Load()
  x = 0
End Sub