Question

VB如何实现不规则窗体

Answer 1

'鼠标通信透明，大于或等于5时鼠标不透明，dwFlags是透明方式，可以取两个值：当取值为 &H2 时，
'crKey参数无效，bAlpha参数有效；当取值为 &H1 时，bAlpha参数有效而窗体中的所有颜色为crKey
'的地方将变为透明－－这个功能很有用：我们不必再为建立不规则形状的窗体而调用一大堆区域分析、
'创建、合并函数了，只需指定透明处的颜色值即可，哈哈哈哈！请看具体代码。
'代码:一个部分透明窗体

Private Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long