用BitBlt 函数截取的图片如何保存

[wgj1022]

我用 BitBlt 函数 截取一段图片后，想保存这个图片但怎么保存不了
应该如何保存啊？ 谢谢啊！
代码如下
Private Sub Command1_Click() ‘截取
BitBlt Picture2.hDC, 0, 0, 1000, 1000, Picture1.hDC, 100, 20, vbSrcCopy
End Sub


Private Sub Command2_Click() ’保存
Picture2.Picture = Picture2.Image
SavePicture Picture2.Picture, "F:\照片\a.bmp"
End Sub

这个没法保存

[lyserver]

代码修改如下：
Private Sub Command1_Click()
Me.Picture2.AutoRedraw = True
BitBlt Picture2.hDC, 0, 0, 1000, 1000, Picture1.hDC, 100, 20, vbSrcCopy
Me.Picture2.Refresh
End Sub
Private Sub Command2_Click() '保存
SavePicture Picture2.Image, "F:\照片\a.bmp"
End Sub

[wgj1022]

太感谢了，分都给你了

[xiaoxiao00100a]

学习下