调用到API。我给你段参考下PrivateDeclareFunctionSetWindowLongLib"user32"_
Alias"SetWindowLongA"_
(ByValhwndAsLong,_
ByValnIndexAsLong,_
ByValdwNewLongAsLong)_
AsLongPrivateDeclareFunctionGetWindowLongLib"user32"_
Alias"GetWindowLongA"_
(ByValhwndAsLong,_
ByValnIndexAsLong)_
AsLongPrivateConstGWL_EXSTYLE=(-20)PrivateConstLWA_ALPHAAsLong=&H2PrivateConstWS_EX_LAYEREDAsLong=&H80000PrivateDeclareFunctionSetLayeredWindowAttributesLib"user32"_
(ByValhwndAsLong,_
ByValcrKeyAsLong,_
ByValbAlphaAsLong,_
ByValdwFlagsAsLong)_
AsLongPrivateSubForm_Load() DimpAsLong p=GetWindowLong(Me.hwnd,GWL_EXSTYLE)'取得当前窗口属性 CallSetWindowLong(Me.hwnd,GWL_EXSTYLE,pOrWS_EX_LAYERED) '加上一个透明属性 CallSetLayeredWindowAttributes(Me.hwnd,0,128,LWA_ALPHA)EndSub |
