VC实现屏幕变暗效果

最新推荐文章于 2025-08-12 13:50:46 发布

原创最新推荐文章于 2025-08-12 13:50:46 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#null #vb #byte #编程 #网络 #c

应用开发专栏收录该内容

2 篇文章

订阅专栏

博客展示了一段屏幕绘制的代码，包含屏幕宽度和高度的获取，创建位图、画刷，进行屏幕绘制等操作。若条件不满足则重画整个屏幕，还提供了源代码的下载链接。

网络上有很多利用VB编程实现屏幕变暗的效果（像关闭Win95时的效果），我用VC改写了一下，权利属于原文作者！

正文
    HDC hdc;
         //屏幕的宽度个高度
    int SCRWidth,SCRHeight;

    if(m_Bool)
    {
    BYTE bybits[] = {0x55, 0x0, 0xAA, 0x0,
                     0x55, 0x0, 0xAA, 0x0,
                     0x55, 0x0, 0xAA, 0x0,
                     0x55, 0x0, 0xAA, 0x0};

    hBitmap = ::CreateBitmap(8, 8, 1, 1, bybits);
    hBrush = ::CreatePatternBrush(hBitmap);

    hdc = ::GetDC(NULL);
    SCRWidth = ::GetSystemMetrics(SM_CXSCREEN);
    SCRHeight = ::GetSystemMetrics(SM_CYSCREEN);

    ::SelectObject(hdc,hBrush);
    //0xA000C9
    ::PatBlt(hdc,0,0,SCRWidth,SCRHeight,0xA000C9);

    ::DeleteObject(hBrush);
    ::ReleaseDC(0, hdc);
    }
    else
             //重画整个屏幕
        ::InvalidateRect(NULL, 0, 1);