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

SKY定格

以游戏超级男人暂停效果为例 代码如下：
我这里有三个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
    

复制代码

效果图：

夏师太~·