VB全屏截图代码

Question

我需要一个全屏截图的VB代码，分辨率和电脑屏幕一样就够了，但效率要快，只需要全屏截图的就可以，最好可以截到软件全屏后的图

Answer 1

学习vb vb.net java php ps office的朋友欢迎来歪歪频道4350,小小虾~宣 !
vb 的 仿QQ拼音截图,代码给你了,新建个记事本,然后复制下面的内容保存,然后把记事本的后缀名改为.frm

VERSION 5.00
Begin VB.Form VB模拟QQ截屏
BorderStyle = 0 'None
Caption = "模拟QQ截屏"
ClientHeight = 5310
ClientLeft = 0
ClientTop = 0
ClientWidth = 6180
Icon = "模拟QQ截屏.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 5310
ScaleWidth = 6180
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
BackColor = &H00F8E2DE&
BorderStyle = 0 'None
Height = 390
Left = 0
ScaleHeight = 390
ScaleWidth = 3075
TabIndex = 0
Top = 0
Visible = 0 'False
Width = 3080
Begin VB.Line Line1
BorderColor = &H00FFC0C0&
X1 = 1620
X2 = 1620
Y1 = 40
Y2 = 320
End
Begin VB.Label lblInfo
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Label2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00EC7A00&
Height = 255
Left = 45
TabIndex = 2
Top = 75
Width = 1540
End

Answer 2

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Sub Command1_Click()
Me.AutoRedraw = True
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy
sFile$ = ("D:\") & ".bmp" "*********************************保存位置
SavePicture Me.Image, sFile “ 让窗体上显示刚才截的图

End Sub本回答被网友采纳

Answer 3

这个。系统自带 何必 PRTSCSYSRQ 自己去找这个好了。