To:tztz520(午夜逛街)及各位高手 窗体样子保存为图片的问题
以下代码是将运行的窗体样子保存为图片:
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()
Picture3.Width = Me.Width
Picture3.Height = Me.Height
BitBlt Picture3.hDC, 0, 0, Picture3.Width, Picture3.Height, Me.hDC, 0, 0, vbSrcCopy
SavePicture Picture3.Image, "f:\acdacd.bmp"'保存到F盘
End Sub
Private Sub Form_Load()
Picture3.AutoRedraw = True
Picture3.Visible = False
'Picture3运行时不可见,用来保存窗体界面
End Sub
**************************
问题是:如果窗体隐藏了:Me.Hide 则运行上述方法就不能保存窗体的样子了!
所以,请各位帮帮忙,窗体隐藏了,如何保存窗体的样子(窗体一定是隐藏的)