利用VB产生屏幕变暗的效果.

原创 2001年03月06日 10:23:00
利用VB产生屏幕变暗的效果.
想利用VB编程实现屏幕变暗的效果(向关闭Win95时的效果),只要按下面的步骤来做
1、在Form1中加入两个CommandButton和一个PictureBox.
2、在Form1的代码窗口中添加以下代码:
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, ByVal lpRect As
Long, ByVal bErase As Long) As Long

Private bybits(1 To 16) As Byte
Private hBitmap As Long, hBrush As Long
Private hDesktopWnd As Long

Private Sub Command1_Click()
Dim rop As Long, res As Long
Dim hdc5 As Long, width5 As Long, height5 As Long

hdc5 = GetDC(0)
width5 = Screen.Width / Screen.TwipsPerPixelX
height5 = Screen.Height / Screen.TwipsPerPixelY

rop = &HA000C9
Call SelectObject(hdc5, hBrush)
res = PatBlt(hdc5, 0, 0, width5, height5, rop)
Call DeleteObject(hBrush)

res = ReleaseDC(0, hdc5)
End Sub

Private Sub Command2_Click()
Dim aa As Long


aa = InvalidateRect(0, 0, 1)
End Sub

Private Sub Form_Load()
Dim ary
Dim i As Long
ary = Array(&H55, &H0, &HAA, &H0, _
&H55, &H0, &HAA, &H0, _
&H55, &H0, &HAA, &H0, _
&H55, &H0, &HAA, &H0)
For i = 1 To 16
bybits(i) = ary(i - 1)
Next i
hBitmap = CreateBitmap(8, 8, 1, 1, bybits(1))
hBrush = CreatePatternBrush(hBitmap)
Picture1.ForeColor = RGB(0, 0, 0)
Picture1.BackColor = RGB(255, 255, 255)
Picture1.ScaleMode = 3
End Sub
运行程序,按Command1就可以使屏幕暗下来,按Command2恢复。

Android实现底部弹出PopupWindow背景逐渐变暗效果

Android实现底部弹出PopupWindow背景逐渐变暗效果 作者:Arbo_Xjb 字体:[增加 减小] 类型:转载 时间:2016-10-22 我要评论 ...
  • Tuke0814
  • Tuke0814
  • 2017年09月05日 17:18
  • 302

Android中弹出PopupWindow让屏幕变暗

Android开发中 经常碰到让屏幕变暗的场景,特别是弹出一个对话框 或 弹出一个PopupWindow。弹出PopupWindow 的时候有的盆友会用一个半透明的match_parent的vie...
  • mingyunxiaohai
  • mingyunxiaohai
  • 2015年12月03日 14:48
  • 2288

Android 禁止系统休眠,使屏幕不变暗

Android 禁止系统休眠,使屏幕不变暗,保持游戏中屏幕高亮实现这一功能的方法有两种,一种是在Manifest.xml文件里面声明,一种是在代码里面修改LayoutParams的标志位。具体如下:1...
  • sxsj333
  • sxsj333
  • 2011年07月19日 13:30
  • 6721

Android实现长时间不用屏幕变暗

直接上代码,代码如下: import android.app.Activity; import android.os.Bundle; import android.os.Handler; ...
  • wl455624651
  • wl455624651
  • 2015年06月04日 18:16
  • 3280

PopupWindow弹出后屏幕其他部分变暗

由于平时用PopupWindow的机会很少,然后今天产品要一个需求的时候居然一时没辙了:PopupWindow在弹出来的时候屏幕的其他部分要变暗 看了下PopupWindow也没有这样的属性,然后只...
  • llzz1985
  • llzz1985
  • 2015年05月21日 21:34
  • 1237

cocos2d-x 让游戏画面变暗

大脚男孩(1091797743)  14:15:55 请问让游戏暂停,那个变暗效果是用什么函数啊? 尚宇翔(1161043803)  14:16:47 变暗?挂个cccolorlayer就行了 ...
  • drawlemon
  • drawlemon
  • 2012年03月28日 14:15
  • 1330

Android frameworks去掉熄屏前先变暗的功能

设置>显示:这里可以设置自动休眠超时时间。 当设置为30s时,到24s左右屏幕会先变暗,告知用户屏幕快熄灭了,6s以后才会真正熄屏。 现在需要去掉这个功能,在PowerManagerSer...
  • zhoumushui
  • zhoumushui
  • 2016年05月18日 14:13
  • 2107

[小代码]强制操作锁屏开关,阻止屏幕变暗

强制操作锁屏开关有时候是必须的,但是请不要经常使用,因为它是耗电的。 设定权限: import android.app.Activity; import android.content.Cont...
  • laihuan99
  • laihuan99
  • 2013年05月21日 10:30
  • 1047

Unity&Shader案例篇—屏幕渐暗效果

一、前言 本文使用版本为Unity5.3.3,两种实现方法得到的效果是一样的,侧重点不一样,择其良者而用之。 二、第一种方案 1、效果图如图所示 2、制作步骤 首先是C#脚本部分,前面的几章基础篇...
  • zhangxiao13627093203
  • zhangxiao13627093203
  • 2016年11月28日 21:44
  • 1448

android 按钮点击上去的变暗效果

drawable -》btn_press_style.xml     图片 xml version="1.0" encoding="utf-8"?> xmlns:android="http:...
  • rongbinjava
  • rongbinjava
  • 2016年09月01日 15:07
  • 963
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用VB产生屏幕变暗的效果.
举报原因:
原因补充:

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