一、程序运行如下所示：

我们可以看出，前4条记录对面的图片编号为1,后4条对应的记录的图片编号为2当我们点击下面的一条记录时，对应的编号将出现在上面的“图片编号”文本框中

这时点击“查看图片”将在窗体下面显示编号为1的图片

再点击一条编号为2的记录，点击显示图片后，下面的图片将变成编号为2的图

二、代码设计

主要是图片的载入代码:

定义一个编号ee，用以保存记录编号，再载入image的载入方法就行了，很简单吧

Private Sub Command2_Click()
Dim ee As String
ee = Text7.Text
Image1.Picture = LoadPicture("d:/文拍图/" & ee & ".jpg")
End Sub