实现关机时的效果的一段代码

2016-02-19 14:04 5 1 收藏

下面，图老师小编带您去了解一下实现关机时的效果的一段代码，生活就是不断的发现新事物，get新技能~

【 tulaoshi.com - 编程语言】

　　unsigned char bybits[16]={0x55,0x0,0xaa,0x0,0x55,0x0,0xaa,0x0,
　　                          0x55,0x0,0xaa,0x0,0x55,0x0,0xaa,0x0};
　　HANDLE hBitmap,hBrush;
　　
　　//---------------------------------------------------------------------------
　　void __fastcall TForm1::Button1Click(TObject *Sender)
　　{
　　    /使屏幕暗下来
　　    HANDLE hdc5;
　　    hBitmap=CreateBitmap(8,8,1,1,&bybits[0]);
　　    hBrush=CreatePatternBrush(hBitmap);
　　    hdc5=GetDC(0);
　　    SelectObject(hdc5,hBrush);
　　    PatBlt(hdc5,0,0,Screen-Width,Screen-Height,0xa000c9);
　　    DeleteObject(hBrush);
　　    DeleteObject(hBitmap);
　　    ReleaseDC(0,hdc5);
　　}
　　//---------------------------------------------------------------------------
　　void __fastcall TForm1::Button2Click(TObject *Sender)
　　{
　　    //复原屏幕
　　    InvalidateRect(0,0,1);
　　}
　　//---------------------------------------------------------------------------

来源:http://www.tulaoshi.com/n/20160219/1606097.html

上一篇： 7.6 用文本+ASP打造新闻发布系统
下一篇：求N阶行列式的值

看过《实现关机时的效果的一段代码》的人还看了以下文章更多>>

一段采集程序代码

标签： Web开发

%@LANGUAGE="JScript" CODEPAGE="936"% script language=VBScript runat="Server" Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = ...

ASP创建EXCHANGE用户的一段代码

标签： ASP

近日逼不得已必须用ASP创建EXCHANGE 2000用户，但以前的相似文章都是关于EXCHANGE 5。5的，而且明确说明不向后兼容，因此在MSDN网站游荡了很久，终于找到一点资料，经过改编，终于能用于ASP。此段ASP的执行的环境在W2K+IIS5，并且必须要有足够的权限。如有不当之处，请高手指正。 <%@ Language=VBScript % <HTML <HEAD &...

实现对Access数据库表重命名的一段代码

标签： Web开发

ACCESS数据库不支持直接利用SQL语句实现更改表名，或者字段名，但可以ADOX对象来实现，范例代码如下：代码如下： % Call RenameTable("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\example.mdb", "test", "changed") Sub RenameTable (conStr, oldName, newName) 'Has to be&nb...

如何缩短win8电脑的关机时间

标签： windows系统

如何缩短win8电脑的关机时间因为喜好问题，图老师小编平时对于电脑倒是特别的在意，今天偶然路过办公室，看到一个同事因为急于下班，还没有关机完成的电脑就直接的拔掉了电源，也许很多朋友都是这样操作的吧!诚然，系统升级到win8纯净版之后，关机速度似乎并没有得到多大的提升，其实想要让关机的速度更快，一些设计技巧就可以搞定...

一段比较经典的多线程学习代码

标签： Web开发

一段比较经典的多线程学习代码。 1、用到了多线程的同步问题。 2、用到了多线程的顺序问题。如果有兴趣的请仔细阅读下面的代码。注意其中代码段的顺序，思考一下，这些代码的顺序能否互相调换，为什么？这应该对学习很有帮助的。为了演示，让所有的线程都Sleep了一段时间。 using System.Net; using System; u...

查看更多精彩>>