截图框的大小 位置 与 实拍出来的照片不一致，请教大家

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:拍照.table

各位大侠们，如何解决上面这个问题呀，先谢过了

 汗，原来是比例问题。截图的时候，要根据实际生成的图片宽度和高度跟预览框的宽高进行比例调整

 你可以写在截图函数那里，也可以写在窗口里。

\'计算截图框坐标
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