界面/窗体/控件
【美观】Access窗体半透明的做法
2013-09-07 16:26:36
文件类型 :
文件版本 :
简要说明 :
窗体是呈现给用户的界面，美观的界面能让用户用得更加舒适，给软件争分不少。
win7 系统的诞生给我们的第一感觉就是美，虚幻。因为用了很多半透明的窗口。
Access软件也能开发出半透明或者全透明的窗口。
Public Sub SetFormOpacity(frm As Form, sngOpacity As Single)
Dim lngStyle As Long
' get the current window style, then set transparency
lngStyle = GetWindowLong(frm.hwnd, GWL_EXSTYLE)
SetWindowLong frm.hwnd, GWL_EXSTYLE, lngStyle Or WS_EX_LAYERED
SetLayeredWindowAttributes frm.hwnd, 0, (sngOpacity * 255), LWA_ALPHA
End Sub