Access挑战Excel第十五期：图片浏览

roych · 发表于 2016-4-7 03:08:20

出于减少代码量的考虑，这里不打算自定义文件夹（所以解压后不要改变相对路径哦），连按钮都省掉了，点击下方的导航器即可跳转记录。
代码不多，加上错误处理也就7行。

Private Sub Form_Current()
On Error GoTo Err_Handler
Me.imgPicture.Picture = CurrentProject.Path & "\img" & Me.UserName & ".jpg"
Err_Exit:
Exit Sub
Err_Handler:
MsgBox "无图片"
GoTo Err_Exit
End Sub

复制代码

当然，也可以强行忽略错误，即改为（不过不太建议这么做）：

Private Sub Form_Current()
On Error Resume Next
Me.imgPicture.Picture = CurrentProject.Path & "\img" & Me.UserName & ".jpg"
End Sub

复制代码

此外，我还写了一个宏。显然，宏在错误处理方面比较弱，进入新纪录时会弹出无法打开文件夹的错误提示。

-------------------------------------------------------------------------------------------------------------------

Excel据说是可以做到的，不过需要一点小技巧。

游客，如果您要查看本帖隐藏内容请回复

这里使用了定义名称和引用，不过当然是做不到子窗体模式的效果的。