VB6裁剪图片问题，求帮忙修改好
我想把红方框裁剪并保存下来。但保存下来的总是有多余部分。
程序代码：Private Sub Form_Load()
Me.Show
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture1.Picture = LoadPicture("1.BMP")
Picture2.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height, 1100, 0, Picture2.Width, Picture2.Height
sFile = "C:\" & Format(Now, "yyyymmddhhmmss") & ".BMP"
SavePicture Picture2.Image, sFile
MsgBox "当前屏幕图像已经保存到" & sFile, 64
End Sub
VB6裁剪图片.zip
(29.39 KB)
[此贴子已经被作者于2020-11-4 14:52编辑过]
