vb 屏幕COPY

具体代码没有带来,上网的时候忽然想起来了就上来问问,希望有高手帮我解决.
VB复制整个屏幕到Clipboard有几个API涵数来实现,只要将对像的句柄传到某个涵数就行了,桌面对像的句柄永远是0.这个不是什么问题了,现在的问题是,我不想将整个屏幕画面COPY到Clipboard对像,而是想在内存中开辟一个"对像",允许写入读取BMP格式的数据,并且是将实现这个"对像"的能功写成CLS类模块. CopyMemory涵数并不是很了解.希望可以得到帮助.3Q...

追问：呵呵,个人认为,VB处理图片的能力并不是很高.如果是在应用程序里通过Picture控件或控件数组来保存临时的图片,那么效率远远没有直接在内存中创建隐藏的对像来的快.因为Picture是要显示出来的,而如果是只在内存中创建一个对像,那么只用直接复制内存就可以了.我想,如果是屏幕录像的情况,谁也不乐意用控件数组来保存临时的图片吧.

答案：这个不是用CopyMemory
应该是创建一个DC,用bitblt把屏幕指定部分复制到DC中
再打开剪贴板,把图像复制进去
一般不用自己创建DC,麻烦死,用个Picturebox就可以了
1. 启动新 VisualBasic 常用 Exe 项目。 默认情况下创建 Form 1。 
2. 在 项目 菜单上, 选择将一个新模块添加到现有项目 添加模块 。  
3. 向窗体, 名称之一添加两 图片框 Pic_Edit （目标）, 和其他名称 Pic_Dest （目标）。 
4. 将是 Pic_Edit Picture 属性设置为要从中选择区域位图 
5. 将是 Pic_Dest AutoRedraw 属性设置为 True  
6. 以下代码添加到 Module 1：Public Const INVERSE = 6
Public Const DOT = 2
Public Const SOLID = 0

Public OrigX As Long
Public OrigY As Long
Public DestX As Long
Public DestY As Long

Public Sub Draw_Selection_Rectangle()

' Set drawing mode to INVERSE since this routine also used to erase
' the selection rectangle by simply drawing over the currently 
' displayed rectangle

With Editor.Pic_Edit
       .DrawMode = INVERSE
       .DrawStyle = DOT
       Editor.Pic_Edit.Line (OrigX, OrigY)-(DestX, DestY), , B
       .DrawStyle = SOLID
End With

End Sub

Public Sub Copy_Rectangle()
With Editor.Pic_Dest
       .Cls
       .Visible = True
       .Height = DestY - OrigY
       .Width = DestX - OrigX
       .PaintPicture Editor.Pic_Edit, 0, 0, (DestX - OrigX), _
         (DestY - OrigY), OrigX, OrigY, (DestX - OrigX), _
         (DestY - OrigY), vbSrcCopy
End With

' Make sure the clipboard is clear, then copy the image:
Clipboard.Clear
Clipboard.SetData Editor.Pic_Dest.Image
End Sub



7. 以下代码添加到 Form 1：Private Sub Pic_Edit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Pic_Edit.Refresh
Pic_Dest.Visible = False
OrigX = X
OrigY = Y
DestX = OrigX
DestY = OrigY
Call Module1.Draw_Selection_Rectangle
End Sub

Private Sub Pic_Edit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
If Button = 1 Then
       DestX = X
       DestY = Y
       Pic_Edit.Refresh
       Call Module1.Draw_Selection_Rectangle
End If
End Sub

Private Sub Pic_Edit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Check to see if mouse moved or goes the "wrong" way:
If DestX <= OrigX Or DestY <= OrigY Then
       Pic_Edit.Refresh
       Exit Sub
End If

If Button = 1 Then Call Copy_Rectangle
End Sub



8. 启动应用程序并选择用鼠标与位图的区域。 当您松开鼠标按钮, Pic_Dest 出现 备注 所选区域： 如果备份 MS 画图、 MSWord 或任何其他应用程序可能需要粘贴位图, 打开您就可以粘贴到该应用程序图像的选定部分。 也可以通过剪贴板查看程序查看剪贴板的内容。

上一个：vb 登陆界面
下一个：VB制作CMD