• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • 用VB完成屏幕阴暗支配

      作者:燕义怀  出处:中国电脑教育报

         使用过Windows 9x的用户都应该知道,在关闭Windows系统时,悉数屏幕会暗下来,那么,如何在自身拓荒的运用递次中也完成这一效果呢?我们经过进程调用一组API函数就可以或许完成,如果你有兴趣,就跟我来吧!这一组函数是:

         GetDC :用来猎取屏幕的设备号;

         ReleaseDC :释放指定的设备;

         CreatePatternBrush :竖立图形刷子;

         PatBlt: 运用竖立的图形刷子填充指定设备;

         DeleteObject :删除竖立的对象(与CreatePatternBrush竖立的刷子对象照顾);

         CreateBitmap :竖立BMP对象;

         SelectObject :遴选今后支配对象;

         InvalidateRect :使支配无效,即恢复变暗前的状态。  

         

         基本思路

         

         首先竖立一个位图对象,然后,运用此位图对象竖立一个图案刷子,

      Win32 API 使用的特殊情况
      基于Delphi的屏幕抓图技术的实现,Delphi中数据的自动录入,Delphi编程:用流来读取TXT文件中的数据,使用Delphi创建IIS虚拟目录的方法,Delphi初学者应小心的六大陷阱,Delphi“判断服务器路径”与“清空日志文件”,利用VFW在Delphi中开发视频捕获程序,Delphi实现网页表单数据的自动提交,Delphi编程使用HOOK监视Windows,Delphi编程禁止用户关闭操作系统,Delphi中利用钩子实现QQ聊天窗口的修改,一个判断定文件是否为文本文件的函数,把Flash文件转换为Exe文件,用Delphi实现文件下载的几种方法,Delphi中保存图像列表,基于Delphi的接口编程入门,在Delphi中使用CreateOleObject方法对WORD文件进行操作,利用Delphi开发旅游景点微机售票系统,Delphi中用ICMP探测远程主机状态,Delphi7对XML的支持分析
      Delphi

      遴选指定设备为今后设备,运用已竖立的图案刷子填充今后设备,删除竖立的刷子对象即可以或许使今后设备变暗。调用InvalidateRect函数就可以或许使指定设备恢复到变暗前的状态。

           

         步 骤

            

         1、竖立一个Form1窗体,设置2个Command按钮,将Command1和Command2的Caption属性告别设置为:“变暗”和“恢复”。

         2、在窗体代码模块中声明API函数和相应的类型,代码以下:

         Private Type RECT

         Left As Long

         Top As Long

         Right As Long

         Bottom As Long

         End Type

         Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

         Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

         Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long

         Private Declare Function PatBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long

         Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

         Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long

         Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

         Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long

         3、编写代码完成递次服从,由于版面所限,细致代码将放到CCE网站(http://www.cce.com.cn)。

         以上就是屏幕变暗的方法。如果要使窗体、图片框等对象变暗,只要使窗体或图片框等对象猎取句柄即可,修改Command1_Click进程和Command2_Click进程傍边的以下语句即可完成窗体变暗。

         hdc5=Form1.Hdc;

         Width5=Form1.width;

         height5=Form1.height;

         ReleaseDC(Form1.hwnd,hdct)

         aa=InvalidateRect (Form1.hwnd,bottom,1)。

         以上递次在VB6.中文版,Windwos 98 状况中运转经过进程。有兴趣的朋友可以或许去试一试,看到这类效果是不是是觉得很惊奇呢!

      Win32 API 使用的特殊情况
      基于Delphi的屏幕抓图技术的实现,Delphi中数据的自动录入,Delphi编程:用流来读取TXT文件中的数据,使用Delphi创建IIS虚拟目录的方法,Delphi初学者应小心的六大陷阱,Delphi“判断服务器路径”与“清空日志文件”,利用VFW在Delphi中开发视频捕获程序,Delphi实现网页表单数据的自动提交,Delphi编程使用HOOK监视Windows,Delphi编程禁止用户关闭操作系统,Delphi中利用钩子实现QQ聊天窗口的修改,一个判断定文件是否为文本文件的函数,把Flash文件转换为Exe文件,用Delphi实现文件下载的几种方法,Delphi中保存图像列表,基于Delphi的接口编程入门,在Delphi中使用CreateOleObject方法对WORD文件进行操作,利用Delphi开发旅游景点微机售票系统,Delphi中用ICMP探测远程主机状态,Delphi7对XML的支持分析
      Delphi

    • 0
    • 0
    • 0
    • 76
    • 单栏布局 侧栏位置: