██████求助！！VB高手来~挑战VB极限！！█████在线等！！███████

来源：百度知道 编辑：UC知道 时间：2024/05/02 13:02:47
这个问题很简单

就是我想让VB窗口是 透明的
但是Label1是 不透明的 （无论是什么时候都不透明）
所以运行时就显示label1

注意：不要额外控件！！！！！！！！！！！
我要具体代码~

高手帮忙写一下，小生万分感激~

智慧~ 那就是智慧！！我感到你们智慧的光芒 以来到我的身边，我无知的阴影即将被你们智慧的圣火照亮！！！！！

谢谢

楼上的是把所有窗体上的白色设置为透明,包括标题或其他窗体上的白色部分,运行效果不是很好,

具体代码如下: 很简单把
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

Private Const RGN_AND = 1
'将两个区域相加
Private Const RGN_COPY = 5
'创建hSrcRgn1的拷贝
Private Const RGN_DIFF = 4
'将两个区域相减
Private Const RGN_OR = 2
'将两个区域进行或操作
Private Const RGN_XOR = 3
'将两个区域进行异或操作
Private Const