汗,原来是比例问题。截图的时候,要根据实际生成的图片宽度和高度跟预览框的宽高进行比例调整
你可以写在截图函数那里,也可以写在窗口里。
'计算截图框坐标
Dim bl_w As Double = 640 / ylk.Width
Dim bl_h As Double = 480 / ylk.Height
Dim x As Integer = Math.Abs(zs.Left-ylk.left) * bl_w
Dim y As Integer = Math.Abs(zs.Top-ylk.Top) * bl_h
Dim w As Integer = Math.Abs(zs.Left - yx.Left) * bl_w
Dim h As Integer = Math.Abs(zs.Top - yx.Top) * bl_h