网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 大学论文导航 设计下载 最新论文 下载排行 原创论文 论文源代码
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > VB > 正文

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

来源:http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 14/07/10

以下是网学网为您推荐的VB-用Visual Basic6.0在Vista下实现全磨砂玻璃窗口,希望本篇文章对您学习有所帮助。

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

如图:

  

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

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

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

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

  

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

  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

然后运行(先确保系统使用Aero界面且合成效果被打开),结果发现窗体依然如故。原来,DwmExtendFrameIntoClientArea扩展后的边框并不会在客户区的前景显示(它其实是一个背景,你会发现,此时边框其实已经被扩展了,因为原来的客户区的凹陷边界已经消失),磨砂玻璃的效果被窗体默认画上去的前景覆盖了,所以我们得自己给窗体画个“透明”的前景。幸运的是,在RGB调色版中,黑色black (0x00000000)刚好就是ARGB(short for Alpha, Red, Green and Blue)的100%透明(这刚好可以解释为什么用Windows 画图板打开一个png图片时透明背景会变成纯黑)。所以,第一个方法,我们可以在窗口的Form_Paint事件(是的,Form_Paint就足够了,不用去子类化窗体。当然,如果要实现更高级功能,还是子类化吧…)中给窗口的前景用纯黑(RGB(0,0,0))填充,用的是经典的GDI,主要就是CreateSolidBrush和FillRect两个API工作,代码:

Dim hBrush As Long, m_Rect As RECT, hBrushOld As Long

hBrush = CreateSolidBrush(RGB(0, 0, 0))

hBrushOld = SelectObject(Me.hdc, hBrush)

GetClientRect Me.hwnd, m_Rect

FillRect Me.hdc, m_Rect, hBrush

SelectObject Me.hdc, hBrushOld

DeleteObject hBrush ‘别忘了删除对象

  现在再按一次F5,恩….很好!

网学推荐

免费论文

原创论文

设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号