这段代码为什么不能设定窗体的背景色为透明？怎么改才能达到目的呢？

secowu

我试了这个代码，没有效果，在启用非XP经典主题时：

If GetSysColor(12) <> 11249319 Then

Me.主体.BackColor = GetSysColor(12)

End If

secowu

现在，发现：原来：不同的主题有不同的应用程序背景颜色设定，但这个设定不是通过调用那个桌面外观里的设定现在是真的晕了，究竟是在调用哪里的参数来设定程序的背景颜色的？

secowu

哈哈，越试，问题发现真多。蒙了。。。

secowu

老大：我想起来了。

既然你能能ACCESS主窗口背景赋值，

那么，一定能够读取当前ACCESS主窗口背景值

那么，将此颜色的值再传给窗体的主体

问题就解决啦

secowu

我现在将GetSysColors(1)) 改成GetSysColors(12)) 就可以实现ACCESS主窗口背景颜色与窗体的主体颜色一致了非常感谢李大师Public Function Apibj()    '中国人

Dim blRet As Boolean

Dim I As Long

blRet = SetMDIBackGround(GetSysColors(12)) '括号中的数字是需要的背景颜色值End Function

'******************

'调用方法:直接调用APIBJ原贴地址见：（作者李寻欢）http://www.accfans.net/dvbbs/dispbbs.asp?boardID=26&ID=10794&page=1特别感谢海狸先生与李寻欢大师的热情帮忙，解决了这个问题。希望能对其它LZ有启发作用

[quote]排名不分先后

[/quote]