'
根据VB6代码改的，经过本人优化。请先导入Drawing类库。
Declare
Function
SelectObject
Lib
"
gdi32
"
(
ByVal
hdc
As
Integer
,
ByVal
hObject
As
Integer
)
As
Integer
Declare
Function
BitBlt
Lib
"
gdi32
"
(
ByVal
hDestDC
As
Integer
,
ByVal
x
As
Integer
,
ByVal
y
As
Integer
,
ByVal
nWidth
As
Integer
,
ByVal
nHeight
As
Integer
,
ByVal
hSrcDC
As
Integer
,
ByVal
xSrc
As
Integer
,
ByVal
ySrc
As
Integer
,
ByVal
dwRop
As
Integer
)
As
Integer
Declare
Function
CreateCompatibleBitmap
Lib
"
gdi32
"
(
ByVal
hdc
As
Integer
,
ByVal
nWidth
As
Integer
,
ByVal
nHeight
As
Integer
)
As
Integer
Declare
Function
CreateDC
Lib
"
gdi32
"
Alias
"
CreateDCA
"
(
ByVal
lpDriverName
As
String
,
ByVal
lpDeviceName
As
String
,
ByVal
lpOutput
As
String
,
ByRef
lpInitData
As
Integer
)
As
Integer
Declare
Function
CreateCompatibleDC
Lib
"
gdi32
"
(
ByVal
hdc
As
Integer
)
As
Integer
Function
GetSerPic(
Optional
ByVal
BitWidth
As
Integer
=
-
1
,
Optional
ByVal
BitHeight
As
Integer
=
-
1
)
As
Image
If
BitWidth
<
0
Then
BitWidth
=
My.Computer.Screen.Bounds.Width
If
BitHeight
<
0
Then
BitHeight
=
My.Computer.Screen.Bounds.Height
Dim
Bhandle, DestDC, SourceDC
As
IntPtr
SourceDC
=
CreateDC(
"
DISPLAY
"
,
Nothing
,
Nothing
,
0
)
DestDC
=
CreateCompatibleDC(SourceDC)
Bhandle
=
CreateCompatibleBitmap(SourceDC, BitWidth, BitHeight)
SelectObject(DestDC, Bhandle)
BitBlt(DestDC,
0
,
0
, BitWidth, BitHeight, SourceDC,
0
,
0
,
&
HCC0020)
Return
Image.FromHbitmap(Bhandle)
End Function
'
最近学了Graphics类的画图方法，所以无聊就写了两个小程序。
'
这一例是不使用系统API就可以进行屏幕截取的代码。
Public
Class
frmMain
Private
Sub
Button1_Click(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
Me
.Hide()
Dim
p1
As
New
Point(
0
,
0
)
Dim
p2
As
New
Point(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
Dim
pic
As
New
Bitmap(p2.X, p2.Y)
Using
g
As
Graphics
=
Graphics.FromImage(pic)
g.CopyFromScreen(p1, p1, p2)
Me
.BackgroundImage
=
pic
End
Using
Me
.Show()
End Sub
End Class
