本篇文章主要介绍了" VB 窗口透明度设置-WindowsAPI-SetLayeredWindowAttributes"，主要涉及到方面的内容，对于VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：
VB 窗口透明度设置-WindowsAPI-SetLayeredWindowAttributes1效果图2VB代码模块代码Option Explicit
Pub...
VB 窗口透明度设置-WindowsAPI-SetLayeredWindowAttributes
1效果图
2VB代码
模块代码
Option Explicit
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = -20
Public Const LWA_ALPHA = &H2
Public Const LWA_COLORKEY = &H1
' bAlpha 0~255 0为完全透明，255为不透明
' 其中，dwFlags参数可取以下值：
' LWA_ALPHA时：crKey参数无效，bAlpha参数有效；
' LWA_COLORKEY：窗体中的所有颜色为crKey的地方将变为透明，bAlpha参数无效。其常量值为1。
' LWA_ALPHA | LWA_COLORKEY：crKey的地方将变为全透明，而其它地方根据bAlpha参数确定透明度。
窗体代码
Option Explicit
Private Sub Form_Load()
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, 0, 100, LWA_ALPHA
End Sub
参考资料：
http://useway.blog.51cto.com/736087/294579/
').addClass('pre-numbering').hide();
$(this).addClass('has-numbering').parent().append($numbering);
for (i = 1; i <= lines; i++) {
$numbering.append($('
').text(i));
};
$numbering.fadeIn(1700);
});
});
以上就介绍了 VB 窗口透明度设置-WindowsAPI-SetLayeredWindowAttributes，包括了方面的内容，希望对VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。
本文网址链接：http://www.codes51.com/article/detail_4134188.html
