只让窗体透明，而上面的控件不透明

tonyibm

我想达到只让窗体透明，而让控件不透明，

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE As Long = -20
Private Const WS_EX_TRANSPARENT = &H20&

Private Sub UserForm_Initialize()

Dim hwnd As Long
Dim rtn As Long

hwnd = FindWindow("ThunderDFrame", Me.Caption) '取得当前窗体的句柄
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

SetWindowLong hwnd, GWL_EXSTYLE, rtn or WS_EX_TRANSPARENT

doevents

End Sub

但是好像窗体和控件全部都看不见了，不知道要怎么才能只显示出控件，

[ 本帖最后由 tonyibm 于 2009-4-16 15:17 编辑 ]

zyg365

先占个位，等高人相助！！！！！！

linpansheng

用到API的，汗，我不会

DGG

窗体是其他控件的容器,窗体看不到,其他自然也看不到了.
就像篮子里有鸡蛋,你想把篮子塞到帘子背面,又想看到鸡蛋.自然mission imposible了.
使用windows自带的窗体应该不行的,除非你自行做窗体.
另外,我个人认为应该更多的关注实用的东西,少停留在界面新颖方面

tonyibm

谢楼上的兄弟关注，

这个肯定是可以实现的，我现在发现问题在于，成功运行程序之后，什么也看不到，要用鼠标点击一下窗体上面的控件（比如按钮），被点击的控件才会显示出来，
比如在下面这张截图上，刚开始是什么也看不到的，我摸索着点击了一下按钮所在的位置，按钮就显示出来了，而窗体是透明的，



[ 本帖最后由 tonyibm 于 2009-4-16 14:57 编辑 ]

小fisher

用userform.controls遍历窗体上的控件获取它们的矩形区域，然后createRectRgn为每个控件创建一个矩形区域，注意磅和像素的换算，还有坐标系统，窗体上控件的left和top是相对于窗体客户区左上角的，还应该加上标题栏高度和窗体边框宽度，这两个数值可以用GetSystemMetrics函数获得，或者在此之前用setWindowLong去掉窗体的边框和标题栏。
然后用CombineRgn r,r1,r2,RGN_OR将这些矩形联合起来生成新的Region区域，最后用setwindowRegion就可以了，注意用deleteobject销毁所有由createXXXrgn和combineRgn生成的region，在一个region被销毁之前，不要将表示它的句柄的变量赋值，否则会造成GDI泄露。

[ 本帖最后由 小fisher 于 2009-4-16 19:05 编辑 ]

小fisher

附件： transWindow.rar (14.47 KB, 下载次数: 1087)

2009-4-16 19:46 上传

点击文件名下载附件

设计模式下的窗口：

运行效果：


[ 本帖最后由 小fisher 于 2009-4-16 19:48 编辑 ]

tonyibm

多谢楼上兄弟，要的就是这个效果，

killerwarm

学无止境啊 只有想不到的没有做不到的

liucqa

牛呀