VB简单实现窗口全透明
2008-10-29 14:01
405 查看
VB简单实现窗口全透明
实现窗口全透明,不管用什么编程语言,其实原理都是一样的,为了进一步展现各语言实现整个窗口全透明,前几天已将C#和C++MFC源码发布,现将用VB实现的源码送上,供大家参考。
效果图:
![](http://p.blog.csdn.net/images/p_blog_csdn_net/SnowRen3074/EntryImages/20081029/VbAeroGlass.png)
程序源码如下:
工程源码下载: http://download.csdn.net/source/731299
发布:薛雪 E_mail:SnowEmail3074@163.com
备注:实现方法虽然很简单,转载时敬请注明出处,谢谢!
实现窗口全透明,不管用什么编程语言,其实原理都是一样的,为了进一步展现各语言实现整个窗口全透明,前几天已将C#和C++MFC源码发布,现将用VB实现的源码送上,供大家参考。
效果图:
![](http://p.blog.csdn.net/images/p_blog_csdn_net/SnowRen3074/EntryImages/20081029/VbAeroGlass.png)
程序源码如下:
Private Declare Function DwmIsCompositionEnabled Lib "dwmapi.dll" (ByRef enabledptr As Long) As Long Private Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" (ByVal hwnd As Long, margin As MARGINS) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type MARGINS m_Left As Long m_Right As Long m_Top As Long m_Button As Long End Type Private Sub 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 End Sub Private Sub Form_Paint() 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 End Sub
工程源码下载: http://download.csdn.net/source/731299
发布:薛雪 E_mail:SnowEmail3074@163.com
备注:实现方法虽然很简单,转载时敬请注明出处,谢谢!
相关文章推荐
- MFC对话框简单实现窗口全透明的方法
- C#简单实现窗口全透明
- 窗口界面编程之一:VB实现简单异形窗口
- MFC对话框简单实现窗口全透明的方法
- [Win32 & GDI+Flat] 用分层窗口实现简单仿Aero透明效果
- 窗口界面编程之一:VB实现简单异形窗口
- vb.net简单实现透明窗体显示出背景透明的png
- VB通过windows API实现窗口透明,部分透明,CreateRectRgn,CombineRgn
- 在Vb.net中实现透明控件背景
- 透明窗口(窗口上面文字图片等内容不透明)的实现
- js实现简单模态窗口,背景灰显
- vb数据库增,删,改,查简单实现
- VB.net实现的一个简单的P2P示例
- 再谈用VB无窗口透明Usercontrol编写透明浮动按钮
- 自绘实现半透明水晶按钮(继承CButton,设置BS_OWNERDRAW风格,覆盖DrawItem函数绘制按钮,把父窗口的背景复制到按钮上,实现视觉上的透明,最后通过AlphaBlend实现半透明)
- (转载)c++builder/delphi中透明panel及透明窗口的实现方法_delphi教程
- Qt5 圆角加阴影窗口简单实现
- vb.net实现简单的眼睛保护系统
- windows api 实现简单窗口
- android 简单实现透明栏