如何将整个窗体(包括控件)存储为JPG图片...

leorb 2003-08-28 03:45:24

如题

...全文

46 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

射天狼 2003-08-28

打赏
举报

Option Explicit

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()
'从屏幕上截图
picCopy.Width = Width
picCopy.Height = Height - 300

BitBlt picCopy.hDC, 0, 0, Width - 1, Height - 300, Me.hDC, 0, 0, &HCC0020
SavePicture picCopy.Image, "c:\aa.bmp"
End Sub

Private Sub Form_Load()
'在窗口中加一个PICTUREBOX控件
picCopy.Visible = False
picCopy.AutoRedraw = True
End Sub

leorb 2003-08-28