用API改变ACCESS窗口的背景的例程（源码）

引用 大熊 2002-4-8 23:47

好宝贝，谢了！

引用 huanghai 2002-4-9 02:21

非常精采，谢谢总版主！

引用 cnwang 2002-4-9 04:54

巨好的东东，总版主万岁!!!

原来敝人还是个ACCESS门外汉。。。

唉。。。。。

引用 tmtony 2002-4-9 04:57

我也想做你这样的门外汉啊
最近是不是又接到单啦 ：）

引用 binbow_z 2002-4-9 07:08

ME.TALK="我要下载"
N=1
DO WHILE N<=10000
MSGBOX "我要下载"
LOOP

引用 zhuyiwen 2002-4-9 07:25

tmtony

有一处错误，

Private Sub cmdChangeImage_Click()

    strPicPath = ap_GetFileDialog(False, "tm.bmp", "选择指定的图片", "位图文件 (*. bmp)" & Chr(0) & "*.bmp" & Chr(0))
.
.
.
End Sub

应为

Private Sub cmdChangeImage_Click()

    strPicPath = ap_GetFileDialog(True, "tm.bmp", "选择指定的图片", "位图文件 (*. bmp)" & Chr(0) & "*.bmp" & Chr(0))
.
.
.
End Sub

引用 tmtony 2002-4-9 07:30

正确 ：）
谢谢！

引用 zhuyiwen 2002-4-9 07:39

tony, 请你换一个大一点的图片试试，好象有点反应迟顿。

引用 tmtony 2002-4-9 07:54

200多K的图片，加载时有闪烁啦
最好用小图片平铺啦

引用 zhuyiwen 2002-4-9 09:10

我用的WIN2000 & ACCESS2000，当换大一点的图片时，出现没响应，要等10-20秒才出现画面，且画面在屏幕的右下角。

引用 tmtony 2002-4-9 16:55

我用的是98+ACCESS2000速度挺快，就是闪烁，且也是在右下角，还没来得及看程序，不过平铺就不会

引用 zhuerw 2002-4-23 17:50

怎么下载啊？

引用 蝼蛄 2002-4-24 01:05

到哪里载呀，我没找到啊

引用 xinbao 2002-4-24 05:08

tony,下载是有问题哦，
我试了很久，发现可能是下载链接怎么变成了文字了， 按下面方面下载就可以
http://www.office-cn.net/bbs/http://www.office-cn.net/vvb/uploadimages/20024815235763228.zip

引用 大熊 2002-4-24 05:27

我发的回信附件中有，是不是你啊！

引用 zhuyiwen 2002-5-2 06:06

今天是五一节，在家把这个例子做了一遍，得到如下结果：

1、GetFileDialog模块，是一个通用的用API实现的文件存取对话框，非常有价值
   调用方式：
   ap_GetFileDialog(访问方式, 默认文件名, 对话框标题, 文件类型)

   访问方式：  True ---- 读取文件       False ---- 写入文件
   默认文件名：指定对话框打开时，文件名文本框的文件名
   对话框标题：指定对话框的标题
   文件类型：  指定选取的文件的类型（扩展名）

   返回包含路径的文件名

   例如：
    strPath = ap_GetFileDialog(True, "LOGO.BMP", "选择指定的图片", _
                "位图文件 (*.bmp)" & Chr(0) & "*.bmp" & Chr(0) _
                & "JPEG 文件 (*.jpg)" & Chr(0) & "*.jpg" & Chr(0) _
                & "GIF 文件 (*.gif)" & Chr(0) & "*.gif" & Chr(0))
   选取类型为.bmp .jpg .gif的文件

2、CMDIWindow类
   支持三种文件：.bmp .jpg .gif
   DrawMode属性：1 - 平铺  2 - 居中  3 - 左上角  4 - 右下角  5 - 拉伸

   但是通过程序验证，平铺、左上角、右下角没什么问题；居中，小图片没问题，大图片时变成了左下角；拉伸，是从左下角开始的。不知道各位网友的测试如何。

另外，我的环境是Windows 2000 Pro+Access 2000，运行该程序，如果有一段时间不动它，CPU资源变成100%，各位的情况如何？

[em26][em26][em26]

引用 ganrong 2002-5-2 06:14

受益匪淺,知道如何選擇個種類型文件了

引用 aydl1014 2002-12-18 01:26

能不能改成打开后随即显示出背景（去掉选择图片和显示北景的按钮，直接显示出背景来）

引用 hqkay 2003-4-22 19:52

首先非常感谢您的帮助,但这个背景界面还有不成熟的地方,它的起动会使系统不稳定,会不会是给MDIClientWnd设置新窗口过程值造成的.
另外,为什么要进行窗口过程值信息的设定,如果不设定,图片好象会被擦逝,为什么.
希望这些问题对你有帮助,进而帮助了我们所有人.

查看全部评论(35)