Office中国论坛/Access中国论坛

标题: 有关图片在ACCS中实现的问题 [打印本页]

作者: kbfh 时间: 2004-7-17 01:27
标题: 有关图片在ACCS中实现的问题
Private Sub Form_Current()

      If Dir(CurrentProject.Path & "\photo\" & Me.编号 & ".jpg") = ""

Then

         image1.Picture = ""

         MsgBox "该机器没有相片"

      Else

         image1.Picture = CurrentProject.Path & "\photo\" & Me.编号

& ".jpg"

      End If

End Sub

原程序用"编号=IMAGE1"实现一个号码对应一张图片(号码名=图片名)

现在我想一个编号对应2张图片,(号码名A=图片名A,号码名B=图片名B)

"编号A=IMAGE1"；"编号B=IMAGE2"

请各位高手指点，我没法解决这个问题.

例：原来编号001对应一个001.JPG图片，现想编号001对应两张图片，

一张叫001A.JPG，另一张叫001B.JPG

作者: sweetduck 时间: 2004-7-17 01:31
两张图就用两个图片控件啊image1.picture=CurrentProject.Path & "\photo\" & Me.编号 & "a.jpg"

image2.picture=CurrentProject.Path & "\photo\" & Me.编号 & "b.jpg"

作者: kbfh 时间: 2004-7-17 17:31
谢谢SWEETDUCK

我再请问一下,我在表各中定义一个"图片名字",是文本类型,我另要定义一个"图片连接"(链接类型)要求是默认是链接"\PATH\图片名字.JPG",请教该在表中怎样实现.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)