前面提及到如何上传和显示图片。都是一条记录对应一张图片的。那么如何显示多张图片呢？

下面的示例不仅可以显示多张图片，还可以通过双击另图片变大。点击ReviviF，即可是图片还原。

详细源码：

Option Compare Database

Dim ImageWidth, ImageHeight, ImageWidth1, ImageHeight1, ImageWidth2, ImageHeight2 As Long

Private Sub Label12_Click()

 DoCmd.GoToRecord , , acNext

End Sub

Private Sub Label13_Click()

 DoCmd.GoToRecord , , acPrevious

End Sub

Private Sub Label17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Label17.ForeColor = X * Y

End Sub

Private Sub Label18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Label18.ForeColor = X * Y

End Sub

Private Sub Label4_Click()

DoCmd.Quit

End Sub

Private Sub BookImage_DblClick(Cancel As Integer)

 Me.BookImage.Height = Me.BookImage.Height * 1.1

    Me.BookImage.Width = Me.BookImage.Width * 1.1

End Sub

Private Sub BookImage1_DblClick(Cancel As Integer)

 Me.BookImage1.Height = Me.BookImage1.Height * 1.1

    Me.BookImage1.Width = Me.BookImage1.Width * 1.1

End Sub

Private Sub BookImage2_DblClick(Cancel As Integer)

 Me.BookImage2.Height = Me.BookImage2.Height * 1.1

    Me.BookImage2.Width = Me.BookImage2.Width * 1.1

End Sub

Private Sub Form_Load()

    DoCmd.RunCommand acCmdAppMinimize

    ImageWidth = Me.BookImage.Width

    ImageHeight = Me.BookImage.Height

    ImageWidth1 = Me.BookImage1.Width

    ImageHeight1 = Me.BookImage1.Height

    ImageWidth2 = Me.BookImage2.Width

    ImageHeight2 = Me.BookImage2.Height

End Sub

Private Sub Label14_Click()

 Me.BookImage.Height = ImageHeight

    Me.BookImage.Width = ImageWidth

     Me.BookImage1.Height = ImageHeight1

    Me.BookImage1.Width = ImageWidth1

     Me.BookImage2.Height = ImageHeight2

    Me.BookImage2.Width = ImageWidth2

End Sub

Private Sub Form_Current()

If Dir(CurrentProject.Path & "\productphoto\" & Me.ProductCode & "a.jpg") = "" Then

            BookImage.Picture = ""

            BookImage1.Picture = ""

            BookImage2.Picture = ""

           Else

            BookImage.Picture = CurrentProject.Path & "\productphoto\" & Me.ProductCode & "a.jpg"

            BookImage1.Picture = CurrentProject.Path & "\productphoto\" & Me.ProductCode & "b.jpg"

            BookImage2.Picture = CurrentProject.Path & "\productphoto\" & Me.ProductCode & "c.jpg"

        End If

End Sub

Private Sub Label7_Click()

Me.BookImage.Height = ImageHeight

    Me.BookImage.Width = ImageWidth

    Me.BookImage.Height = ImageHeight

    Me.BookImage1.Width = ImageWidth

    Me.BookImage1.Height = ImageHeight

    Me.BookImage2.Width = ImageWidth

    Me.BookImage2.Height = ImageHeight

End Sub