如何代码设置窗体背景图片
很多时候，我们并不想通过传统手动的方法去设置窗体背景图片，特别是在某些自动化程序中，窗体的背景图片可能需要随时变化，所以这时候用VBA代码来设置就显得很灵活了。窗体背景图片的代码控制很简单，我们只要掌握以下这个示例就基本会了，如下图，是一个没有设置窗体背景图片的测试窗体：
现在通过点击“加载图片”按钮来实现对该窗体背景图片以及图片缩放模式的设置，该按钮代码如下：
Private Sub Command0_Click()
Me.PictureSizeMode = 1
Me.Picture = CurrentProject.Path & "\1.png"
End Sub
代码解析：
1、Me.PictureSizeMode = 1
此句用来设置窗体的图片缩放模式。窗体常见的图片缩放模式有“剪裁”（默认值）、“拉伸”和“缩放”，对应的值分别是是0、1、2。
2、Me.Picture = CurrentProject.Path & "\1.png"
Me.Picture表示窗体的背景图片，后面加上图片所在的路径即可，本例中该图片是放在这个数据库同路径下名为“1.png”的图片，CurrentProject.Path引用的是当前数据库的路径。
赞 (0)