在Win2k下实现半透明窗口的两个步骤(修补稿1.2)

原创 2001年08月13日 11:40:00

 

现在有不少软件都采用了透明的窗口作为界面,如何在你的程序中实现呢?我发现在Win2k中提供了这种支持,只要简单的几行代码就可实现。(本例子目前只适用于Win2k )

拿一个对话框为例:

第一步 定义功能

typedef BOOL (FAR PASCAL * FUNC1)(
  HWND hwnd,           // handle to the layered window
  COLORREF crKey,      // specifies the color key
  BYTE bAlpha,         // value for the blend function
  DWORD dwFlags        // action
);

第二步 实现代码

在OnInitDialog中加入下列代码

.....
 HMODULE hModule = GetModuleHandle("user32.dll");
 FUNC1 SetLayeredWindowAttributes;
 SetLayeredWindowAttributes =  (FUNC1) GetProcAddress (hModule, _T( "SetLayeredWindowAttributes" ) );

 // 设置分层扩展标记
 SetWindowLong(GetSafeHwnd(), GWL_EXSTYLE, GetWindowLong(GetSafeHwnd(), GWL_EXSTYLE) | 0x80000L);
 // 70% alpha
 SetLayeredWindowAttributes(GetSafeHwnd(), 0, (255 * 70) / 100, 0x2);

工作完成,怎么样,现在你可以运行你的程序来查看效果,即使背景变化也能立刻反映到你的窗口当中,这一点比金山词霸的效果要好。

 

看到下面这段文章的人有福了,这是新加入的:

第三步:如何除去透明选项?

 // 除去分层扩展标记
SetWindowLong(GetSafeHwnd(),, GWL_EXSTYLE,
        GetWindowLong(GetSafeHwnd(), GWL_EXSTYLE) & ~ 0x80000L);
 // 重画窗口
RedrawWindow();

第四部:VB的透明窗口(摘自MSDN)

Private Declare Function GetWindowLong Lib "user32" Alias _
  "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
  "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
  (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, _
  ByVal dwFlags As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_TRANSPARENT = &H20&
Private Const LWA_ALPHA = &H2&

Option Explicit

Private Sub Form_Load()
    Dim lOldStyle As Long
    Dim bTrans As Byte ' The level of transparency (0 - 255)

    bTrans = 128
    lOldStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    SetWindowLong Me.hWnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED
     SetLayeredWindowAttributes Me.hWnd, 0, bTrans, LWA_ALPHA
End Sub

总算完整了一点。多谢观看。

java swing打造半透明窗口

要生成一个半透明的成形窗口,而又要避免使用本地的编码,唯有灵活地应用screenshot(屏幕快照).  半透明窗口是大众对Swing最为渴求的特性之一. 也可以称之为定形窗口,这种窗口有一部分是透明...
  • ihc523
  • ihc523
  • 2009年10月05日 21:11
  • 3191

WINDOWS上的透明窗口实现

http://mydone.bokee.com/178980.html(原文)[转者注]实现局部透明窗口一般有两种方法1 用SetLayeredWindowAtrribute 来设置具备WS_EX_L...
  • hhyttppd
  • hhyttppd
  • 2007年01月22日 12:57
  • 1063

纯GDI完美实现半透明不规则窗口

以前在研究半透明不规则窗口的时候,用的是gdi的TextOut/DrawText绘制字体,但绘制出的字体是透明的, 现在我完全放弃了GDI的TextOut()、BitBlt()的方式,而用SetDI...
  • weiwuyuan
  • weiwuyuan
  • 2012年09月21日 17:06
  • 1050

半透明: MFC实现父窗口不透明,子窗口半透明效果

[cpp] view plaincopy OnEraseBkgnd(CDC* pDC)   {       // TODO: 在此添加消息处理程序代码和/或调用默认...
  • u011430225
  • u011430225
  • 2015年09月15日 17:16
  • 1516

Qt 透明窗体,圆角

一. 背景刷成黑色,前景色设为白色。 方法一、paltette方式,经测试,该方法不会影响到其他控件,推荐使用 QPalette bgpal = palette(); bgpal.setColo...
  • markely
  • markely
  • 2012年09月19日 19:42
  • 3278

Delphi 窗口半透明

Delphi 窗口半透明
  • gjtao1130
  • gjtao1130
  • 2014年05月16日 11:46
  • 1227

设置窗口的透明度SetLayeredWindowAttributes

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As ...
  • glt3953
  • glt3953
  • 2013年02月01日 16:14
  • 3016

vc 实现透明窗口和不规则窗口

做一个vc项目的时候,用到了不规则-透明窗口,中间走了几个弯路,在此总结一下:...
  • wjl1043124617
  • wjl1043124617
  • 2015年09月30日 10:54
  • 733

使用PNG实现半透明的窗体

  Delphi中标准控件是不支持png图片的,据说从Window2000后增加gdiplus.dll库处理更多的gdi图像,其中包括png。  关键的几个api  GdipCreateBitmapF...
  • zswang
  • zswang
  • 2008年02月25日 17:35
  • 8340

半透明信息显示浮动窗口的实现

实现目的       在一些画图软件中,经常需要向用户展示鼠标移动到的位置的对象的一些参数信息。此时,完成一个交互性友好的信息显示界面就相当的重要了。因为一个软件的好坏,在用户的眼中,第一感觉甚至是第...
  • lllsui
  • lllsui
  • 2010年05月15日 14:11
  • 612
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Win2k下实现半透明窗口的两个步骤(修补稿1.2)
举报原因:
原因补充:

(最多只允许输入30个字)