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

MiQTkAyOl

MiQTkAyOl

2016-02-19 20:14

有了下面这个利用VB产生屏幕变暗的效果教程,不懂利用VB产生屏幕变暗的效果的也能装懂了,赶紧get起来装逼一下吧!
想利用VB编程实现屏幕变暗的效果(像关闭Win95时的效果),只要按下面的步骤来做:

1.在Form1中加入两个CommandButton和一个PictureBox.

2.在Form1的代码窗口中添加以下代码:
  PrivateTypeRECT
  LeftAsLong
  TopAsLong
  RightAsLong
  BottomAsLong
  EndType

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)

PrivateDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong
  PrivateDeclareFunctionReleaseDCLib"user32"(ByValhwndAsLong,ByValhdcAsLong)AsLong
  PrivateDeclareFunctionCreatePatternBrushLib"gdi32"(ByValhBitmapAsLong)AsLong
  PrivateDeclareFunctionPatBltLib"gdi32"(ByValhdcAsLong,ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValdwRopAsLong)AsLong
  PrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong
  PrivateDeclareFunctionCreateBitmapLib"gdi32"(ByValnWidthAsLong,ByValnHeightAsLong,ByValnPlanesAsLong,ByValnBitCountAsLong,lpBitsAsAny)AsLong
  PrivateDeclareFunctionSelectObjectLib"gdi32"(ByValhdcAsLong,ByValhObjectAsLong)AsLong
  PrivateDeclareFunctionInvalidateRectLib"user32"(ByValhwndAsLong,ByVallpRectAsLong,ByValbEraseAsLong)AsLong
  Privatebybits(1To16)AsByte
  PrivatehBitmapAsLong,hBrushAsLong
  PrivatehDesktopWndAsLong

PrivateSubCommand1_Click()
  DimropAsLong,resAsLong
  Dimhdc5AsLong,width5AsLong,height5AsLong
  hdc5=GetDC(0)
  width5=Screen.WidthScreen.TwipsPerPixelX
  height5=Screen.HeightScreen.TwipsPerPixelY
  rop=&HA000C9
  CallSelectObject(hdc5,hBrush)
  res=PatBlt(hdc5,0,0,width5,height5,rop)
  CallDeleteObject(hBrush)
  res=ReleaseDC(0,hdc5)
  EndSub

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)

PrivateSubCommand2_Click()
  DimaaAsLong
  aa=InvalidateRect(0,0,1)
  EndSub
  PrivateSubForm_Load()
  Dimary
  DimiAsLong
  ary=Array(&H55,&H0,&HAA,&H0,_
  &H55,&H0,&HAA,&H0,_
  &H55,&H0,&HAA,&H0,_
  &H55,&H0,&HAA,&H0)
  Fori=1To16
  bybits(i)=ary(i-1)
  Nexti
  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
  EndSub

运行程序,按Command1就可以使屏幕暗下来,按Command2恢复。

->

展开更多 50%)
分享

猜你喜欢

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

编程语言 网络编程
利用VB产生屏幕变暗的效果

利用VB6.0设计屏幕保护程序

编程语言 网络编程
利用VB6.0设计屏幕保护程序

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

VB利用API函数设定屏幕颜色数

编程语言 网络编程
VB利用API函数设定屏幕颜色数

用VB实现屏幕滚屏保护效果

编程语言 网络编程
用VB实现屏幕滚屏保护效果

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

笔记本屏幕变暗的原因分析

电脑入门
笔记本屏幕变暗的原因分析

利用VB设计图像的显示效果

编程语言 网络编程
利用VB设计图像的显示效果

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

如何调整Mac字体大小

如何调整Mac字体大小

如何在VB中实现绘图区的大十字光标

如何在VB中实现绘图区的大十字光标
下拉加载更多内容 ↓