源码

热门下载

最新下载

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

当前位置：首页 > 源码 > 界面/窗体/控件
界面/窗体/控件

【美观】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
发布人:admin-Office中国  
分享到：
点击次数：  更新时间：2013-09-07 16:26:36  【打印此页】  【关闭】
上一条：ACCESS文本框输入字母直接转为大写  下一条：access制作动态时钟

相关下载

热门下载

热门产品