riverlj 2004年12月28日
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 则运行上述方法就不能保存窗体的样子了!
所以,请各位帮帮忙,窗体隐藏了,如何保存窗体的样子(窗体一定是隐藏的)
...全文
128 点赞 收藏 11
写回复
11 条回复

还没有回复,快来抢沙发~

发动态
发帖子
API
创建于2007-09-28

1196

社区成员

2.3w+

社区内容

VB API
社区公告
暂无公告