设为首页收藏本站

SKY外语、计算机论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 3025|回复: 1

vb图片变暗 读取像素改变值

[复制链接]

60

主题

8

好友

1161

积分

金牌会员

Rank: 6Rank: 6

生肖
星座
处女座
性别

最佳新人 活跃会员 灌水之王 论坛元老

发表于 2012-5-24 13:16:54 |显示全部楼层
本帖最后由 sky_yx 于 2015-12-30 14:21 编辑

以游戏超级男人暂停效果为例 代码如下:
我这里有三个picture  stopp1 stopp2 stopp3(里面还有一个image  装载stop!图像)
  1. Private Sub stop1_Click() ' 暂停过程
  2.     stopN = True       '暂停为真
  3.     '------------------------------截当前活动屏
  4.     stopp2.Visible = False
  5.     Clipboard.Clear
  6.     keybd_event 18, 0, 0, 0
  7.     keybd_event vbKeySnapshot, 0&, 0&, 0&
  8.     DoEvents
  9.    
  10.     t = Timer
  11.     Do While Timer - t < 0.1
  12.         DoEvents
  13.     Loop
  14.      
  15.     keybd_event 18, 0, KEYEVENTF_KEYUP, 0
  16.     stopp1.Picture = Clipboard.GetData
  17.     stopp1.Move 0, 0, form1.Width, form1.Height
  18.     stopp3.Move 0, 0, form1.Width, form1.Height
  19.     '------------------------------图像变暗
  20.    
  21.     Dim BITMAP As BITMAPINFO
  22.     Dim ImgData() As Byte
  23.     Dim lIndex As Long
  24.    
  25.     With BITMAP
  26.         .bmiHeader.biSize = 40
  27.     End With
  28.    
  29.     If GetDIBits(stopp1.hdc, stopp1.Picture.Handle, 0, 0, 0, BITMAP, DIB_RGB_COLORS) <> 0 Then      '获取图像位图数据大小
  30.         ReDim ImgData(BITMAP.bmiHeader.biSizeImage)     '重定义数组准备接收位图数据
  31.         If GetDIBits(stopp1.hdc, stopp1.Picture.Handle, 0, BITMAP.bmiHeader.biHeight - 1, ImgData(0), BITMAP, DIB_RGB_COLORS) <> 0 Then     '正式获取位图数据并将数据存入定义的数组中
  32.             '注意数组中颜色分量的存储顺序为:B、G、R(并不是R、G、B),如果你需要对图像进行处理只需改变数组中的数据即可完成
  33.             
  34.             '**************** 下面这段程序是将图像亮度变暗(只作为演示,其它效果你可以自己动手做) ***********************
  35.             '注意:第一条扫描线的位置是从左下角开始
  36.             
  37.             For lIndex = 0 To BITMAP.bmiHeader.biSizeImage
  38.                 If ImgData(lIndex) - 50 < 0 Then
  39.                     ImgData(lIndex) = 0
  40.                 Else
  41.                     ImgData(lIndex) = ImgData(lIndex) - 50
  42.                 End If
  43.             Next
  44.             '*********************************************************************
  45.             
  46.             SetDIBits stopp3.hdc, stopp3.Image.Handle, 0, BITMAP.bmiHeader.biHeight - 1, ImgData(0), BITMAP, DIB_RGB_COLORS '将位图数据写入stopp3中
  47.         End If
  48.     End If
  49.     stopp3.Picture = stopp3.Image
  50.     '====================================剪切stopp3为stopp1
  51.     stopp2.Visible = True
  52.     stopp2.Move 0, 0, form1.ScaleWidth, form1.ScaleHeight
  53.     stopp2.PaintPicture stopp3, (form1.ScaleWidth - form1.Width) / 2, form1.ScaleHeight - form1.Height - (form1.ScaleWidth - form1.Width) / 2, form1.Width, form1.Height, 0, 0, form1.Width, form1.Height
  54.     Image1.Move 200, 200
复制代码
模块:
  1. '-----------------------------------------------------模拟按键
  2. Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  3. Public Const KEYEVENTF_KEYUP = &H2 '模拟按键截屏
  4. '-----------------------------------------------------------------------------像素读取 图像转暗
  5. Public Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
  6. Public Declare Function SetDIBits Lib "gdi32" (ByVal hdc As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
  7. Public Type BITMAPINFOHEADER '40 bytes
  8.         biSize As Long
  9.         biWidth As Long
  10.         biHeight As Long
  11.         biPlanes As Integer
  12.         biBitCount As Integer
  13.         biCompression As Long
  14.         biSizeImage As Long
  15.         biXPelsPerMeter As Long
  16.         biYPelsPerMeter As Long
  17.         biClrUsed As Long
  18.         biClrImportant As Long
  19. End Type
  20. Public Type RGBQUAD
  21.         rgbBlue As Byte
  22.         rgbGreen As Byte
  23.         rgbRed As Byte
  24.         rgbReserved As Byte
  25. End Type
  26.         bmiHeader As BITMAPINFOHEADER
  27.         bmiColors As RGBQUAD
  28. End Type
  29. Public Const DIB_RGB_COLORS = 0 '  color table in RGBs
复制代码
效果图:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

你老婆要生了。我要当爹了

114

主题

2

好友

975

积分

版主

Rank: 7Rank: 7Rank: 7

生肖
星座
射手座
性别

突出贡献 优秀版主 荣誉管理 论坛元老 最佳新人 灌水之王

发表于 2012-5-25 10:40:26 |显示全部楼层
本帖最后由 sky_yx 于 2015-12-30 14:21 编辑



给所有的胖纸讲个鬼故事,夏天来了。。   
回复

使用道具 评分 举报

您需要登录后才可以回帖 登录 | 立即注册


手机版|SKY外语计算机学习 ( 粤ICP备12031577 )    

GMT+8, 2024-3-29 23:03 , Processed in 0.134671 second(s), 28 queries .

回顶部