老师，如何设置内部函数，能匹配以下分辨率。谢谢！[2592*1944] 全副图像 (29.70cm * 21.00cm @ 120dpi)
[2048*1536] 全副图像 (29.70cm * 21.00cm @ 120dpi)
[1600*1200] 全副图像 (29.70cm * 21.00cm @ 120dpi)
[640*480] 全副图像 (16.93cm * 12.70cm @ 96dpi)
[480*320] 3/4副图像 (12.70cm * 8.47cm @ 96dpi)
[320*240] 半幅图像 (8.47cm * 6.35cm @ 96dpi)
[321*204] 身份证 (8.5cm*5.4cm @ 96dpi)
[83*121] 黑白小一寸照片 (2.2cm * 3.2cm @ 96dpi)
[102*144] 彩色小一寸照片 (2.7cm * 3.8cm @ 96dpi)
[151*208] 彩色大一寸照片 (4.0cm * 5.5cm @ 96dpi)
[238*336] 彩色二寸照片 (6.3cm * 8.9cm @ 96dpi)
[98*121] 身份证照片 (2.6cm * 3.2cm @ 96dpi)
[83*121] 驾驶证照片 (2.2cm * 3.2cm @ 96dpi)
[125*181] 普通证件照片 (3.3cm * 4.8cm @ 96dpi)
[127*175] 自定义 (3.36cm * 4.63cm @ 96dpi)
内部函数（截图）：(截图匡控件大小：640*480)
'从Bitmap图像中截取指定区域的图像
'参数0 : Bitmap图像
'参数1 : 截图坐标 X 水平起点
'参数2 : 截图坐标 Y 垂直起点
'参数3 : 截图坐标 W 宽度
'参数4 : 截图坐标 H 宽度
'返回 : Bitmap图像
Dim imgold As Bitmap = Args(0)
Dim x As Integer = Args(1)
Dim y As Integer = Args(2)
Dim w As Integer = Args(3)
Dim h As Integer = Args(4)
Dim imgnew As Bitmap
imgnew = new Bitmap(w,h)
Dim g As Graphics = Graphics.FromImage(imgnew)
Dim d2 As Rectangle = new Rectangle(new Point(0, 0), new Size(w,h))
Dim d1 As Rectangle = new Rectangle(new Point(x, y), new Size(w,h))
g.DrawImage(imgold, d2, d1, GraphicsUnit.Pixel)
Return imgnew
加好友 
发短信
Post By：2016/2/23 10:27:00 [只看该作者]
