科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道用VB6.0在Vista下实现全磨砂玻璃窗口

用VB6.0在Vista下实现全磨砂玻璃窗口

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

使用过Windows Vista 的用户都会对Vista窗口的磨砂玻璃效果印象深刻

作者:佚名 来源:blog 2007年10月14日

关键字: VB6 Vista 磨砂玻璃窗口

  • 评论
  • 分享微博
  • 分享邮件

在本页阅读全文(共2页)

使用过Windows Vista 的用户都会对Vista窗口的磨砂玻璃效果印象深刻,而如果你在Windows Vista 下使用过 Windows Media Player 11 更会发现微软把这种效果扩展至WMP11的底部区域,使得WMP的底部按钮区域成为一条“玻璃带”,如图:

  

  事实上,Vista窗口的磨砂玻璃效果不仅限于窗体的边框(非客户区域),他可以任意的延伸,甚至铺满整个窗口,下面我们就来看看怎么用的vb6来实现这种扩展。

  Vista实现磨砂玻璃效果主要依靠一组叫做 Desktop Window Manager (DWM) 的API来实现,该组API均以dwm打头,存在于dwmapi.dll中(该文件为Vista特有),顾名思义,这些API是专门用来实现Vista窗口的特效的。由于篇幅所限,这里仅介绍和本文关系最密切的两个函数:DwmIsCompositionEnabled 和 DwmExtendFrameIntoClientArea。

  第一个函数DwmIsCompositionEnabled是用于判断系统的磨砂玻璃合成效果是否已经开启,因为该效果可以由用户关闭,尽管你可以在用户关闭合成效果的情况下在程序中单独使用合成效果。

  

  DwmIsCompositionEnabled的原型为:

HRESULT DwmIsCompositionEnabled( BOOL *pfEnabled )

  其中pfEnabled为一个输出参数,告诉后面的程序合成效果是否被打开。

  该函数的VB声明为:

  
Public Declare Function DwmIsCompositionEnabled Lib "dwmapi.dll" (ByRef enabledptr As Long) As Long

  这里要注意C++里的BOOL类型必须译成vb中的Long而不是Boolean,否则你将得到错误的结果。

  DwmExtendFrameIntoClientArea函数则用于将磨砂边框扩展至窗体客户区,使得整个窗体看上就像一张卡片(sheet)。

  该函数原型为:

  
HRESULT DwmExtendFrameIntoClientArea(HWND hWnd,const MARGINS *margins)

  其中hWnd 为目标窗口句柄,margins为一个MARGINS结构体指针

  MARGINS结构体定义为:

typedef struct _MARGINS
{
 int cxLeftWidth;
 int cxRightWidth;
 int cyTopHeight;
 int cyBottomHeight;
} MARGINS, *PMARGINS;


  该函数的vb引用为:

Public Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" (ByVal hwnd As Long, margin As MARGINS) As Long
  
  MARGINS的vb形式定义:

Public Type MARGINS
 m_Left As Long
 m_Right As Long
 m_Top As Long
 m_Button As Long
End Type

  其中MARGINS中的各个成员为需要扩展的边框大小(单位:像素),如果要把磨砂玻璃效果铺满整个边框(本文以此为例),全部成员可设置为-1

  知道了这些,我们现在就可以动手了。

  我们在窗体的Form_Load事件里写上:

Dim mg As MARGINS, en As Long
mg.m_Left = -1
mg.m_Button = -1
mg.m_Right = -1
mg.m_Top = -1
DwmIsCompositionEnabled en
If en Then
 DwmExtendFrameIntoClientArea Me.hwnd, mg
End If
    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章