如何保持截剪框比例 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

添加一个图片框，控件宽高比例保持两寸照比例3.4:5.2。然后添加图片，运行窗口，可以使用鼠标移动图片合适的位置，再截图。可以通过按钮放大缩小图片

窗口afterlload

dim d as double = 1

vars("w")= d

放大按钮

Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")

pic.Image = Nothing

Dim file As String = "D:\1.png"

Dim img As image = getimage(file)

Dim w As Integer = img.width * vars("w")

vars("w") += 0.5 '放大倍数自己控制

Dim bmp As bitmap

bmp = new bitmap(img, w, w * (img.height / img.width))

pic.Image = bmp

缩小按钮

Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")

pic.Image = Nothing

Dim file As String = "D:\1.png"

Dim img As image = getimage(file)

Dim w As Integer = img.width * vars("w")

vars("w") -= 0.5

Dim bmp As bitmap

bmp = new bitmap(img, w, w * (img.height / img.width))

pic.Image = bmp

这种情况没有办法控制。

如果是使用6楼的用法，直接照抄确定按钮代码即可

如果是其它方法，一样还是使用一楼的方式打开截图，然后根据红框的范围选择不就行了

请上传可以测试的实例

我也不懂。建议还是使用截图处理。

截图按钮

Dim Lineleft As WinForm.Line = e.Form.Controls("Lineleft")

Dim Linetop As WinForm.Line = e.Form.Controls("Linetop")

Dim Lineright As WinForm.Line = e.Form.Controls("Lineright")

Dim Linebottom As WinForm.Line = e.Form.Controls("Linebottom")

Dim PictureBox5 As WinForm.PictureBox = e.Form.Controls("PictureBox5")

Dim point As Point = e.Form.panel.PointToScreen(new point(Lineleft.Left+10,Lineleft.Top))

Lineleft.Visible = False

Linetop.Visible = False

Lineright.Visible = False

Linebottom.Visible = False

Application.Doevents

Dim myGraphics As Graphics = basemainform.CreateGraphics()

Dim s As new Size(Linetop.Width, Lineleft.Height) '截取的大小

Dim bit As New Bitmap(s.Width, s.Height , myGraphics)

Dim memoryGraphics As Graphics = Graphics.FromImage(bit)

memoryGraphics.CopyFromScreen(point.x, point.y, 0, 0, s) '截取的开始位置,坐标(100, 200)

bit.save(ProjectPath & "123.jpg")

memoryGraphics.dispose

myGraphics.dispose

bit.dispose

Application.Doevents

e.Form.Controls("PictureBox2").image = getimage(ProjectPath & "123.jpg")

Lineleft.Visible = True

Linetop.Visible = True

Lineright.Visible = True

Linebottom.Visible = True

图片压缩后在放入box5

主题：如何保持截剪框比例