|
可以把图片外置,只是存个连接。用 图象 控件显示图片Private Sub Form_Current()
'************************'
'利用dir()查找图片在server机中
'***********************' Me.image.picture = "C:\WINNT\Zapotec.bmp" '指定一个临时图片
Dim myfile, mypath1, mypath2, mypath3 As String
mypath1 = "\\server\g\our photo\smartrend\"
mypath2 = "\\server\g\our photo\wax-silver model\新款号-photo\"
mypath3 = "\\server\g\our photo\smartrend\ring\"
If Left([STYLE], 3) = "uba" Then
If Dir(mypath1 & "bangle\" & Me.STYLE & "*.jpg ") = "" Then '尝试采用模糊方法打开图片
If Dir(mypath2 & Me.STYLE & "*.jpg") <> "" Then
myfile = Dir(mypath2 & Me.STYLE & "*.jpg")
image.picture = mypath2 & myfile
Else
image.picture = "C:\WINNT\Zapotec.bmp"
End If
Else
myfile = Dir(mypath1 & "bangle\" & Me.STYLE & "*.jpg ")
image.picture = mypath1 & "bangle\" & myfile
End If
Else |
|