【源码】设置程序背景的小例子

2015-4-30 17:33| 发布者: admin| 查看: 1434| 评论: 5|原作者: 竹笛|来自: www.office-cn.net

摘要: 1、本例子在huanghai基础上试制； 2、操作：请在文字框以外区域双击两次鼠标左键； 3、文件夹应放在D:\； 4、视图设置为“无边框” 晕倒，没传上！不知怎么搞的。请前往： http://www.accxp.com/cl ...

不看不后悔，看了也不悔！
在huanghai基础上写的。

程序代码：

Private Sub Form_Load()

Dim I, J As Integer

Access.SetOption "Show Status Bar", False

DoCmd.RunCommand acCmdAppMaximize

DoCmd.Maximize

I = Me.WindowWidth

J = Me.WindowHeight

DoCmd.Restore

DoCmd.MoveSize 0, 0, I, J

End Sub

Private Sub 主体_DblClick(Cancel As Integer)

If Me.Picture = "D:\背景图\a.jpg" Then'不能正常显示.jpg图像文件的学友，可改为a.bmp,下同理，D盘文件夹中的图片文件也要改为bmp文件。

Me.Picture = "D:\背景图\b.jpg"

Else

Me.Picture = "D:\背景图\a.jpg"

End If

End Sub

说明：

1、本例子在huanghai基础上试制；

2、操作：请在文字框以外区域双击两次鼠标左键；

3、文件夹应放在D:\；

4、视图设置为“无边框”

上一篇：[背景图]Access程序显示背景图片，切换背景图片的技巧方法下一篇：列表框按住Ctrl多选项，再添加到文本框示例

帐号		自动登录	找回密码
密码			注册

相关分类