一、程序运行如下所示:
我们可以看出,前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