专家坐堂-[求助]截图内部函数Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [求助]截图内部函数
老师，如何设置内部函数，能匹配以下分辨率。谢谢！

[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