Question

vb如何任意截屏

VB截屏,并放入到richtextbox中,击command1可发送.

请写出源码.
请写出鼠标拖动截屏并另存文件的源代码.

Answer 1

用savepicture函数保存的是bmp格式的，所以很大可以使用系统自带的GDI 图形库函数

Answer 2

'form中放一个按钮和一个图片框

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScreen = 0
Const theForm = 1

Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, theScreen, 0, 0)
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub

另外，注意要把form和picturebox都弄大一点，这样方便看一些

Answer 3

zzhxhcf 不错~

Answer 4

不能