请问，要取得屏幕界面，应该怎么做？

[Clamd]

请写出API函数的名字和参数注释，
最好列出例子和源代码

[Clamd]

再问：如果我要把取得的图像存为JPEG文件，应该怎么做？

[CHKK]

litsnake1(litsnake) 崇拜你，！

[litsnake1]

Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Private Declare Function GetWindowDC 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 Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDc As Long) As Long


Private Sub Command1_Click()
Dim hDc As Long
Form1.Hide
DoEvents '若不执行这一句，则me.hide不会即时被执行
PicCopy.Width = Screen.Width
PicCopy.Height = Screen.Height
PicCopy.AutoRedraw = True
hDc = GetDC(0) '取得屏幕DC
'将屏幕DC的图象转移到名称为PicCopy 的picturebox中
BitBlt PicCopy.hDc, 0, 0, Screen.Width \ Screen.TwipsPerPixelX, Screen.Width \ Screen.TwipsPerPixelY, GetWindowDC(0), 0, 0, SRCCOPY
SavePicture PicCopy.Image, "e:\abc.bmp" '保存图象到一个名为abc的bmp文件中
ReleaseDC 0, hDc '释放屏幕DC
Me.Show
End Sub

[lxcc]

up

[用户 昵称]

right