Dim t1 As WinForm.TextBox = e.Form.Controls("textbox1")
Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
ClipBoard.GetImage.save("d:\test.jpg")
Dim pbx2 As WinForm.PictureBox
pbx2= e.Form.Controls("PictureBox2")
pbx2.Image = GetImage("d:\test.jpg")
t1.text="d:\test.jpg"
End If
老师，因为有些图片文件的文件为横式，照得不标准，用上面代码是用来裁剪两寸证件照，我想在拉动裁剪框时，宽高比例保持两寸照比例3.4:5.2,请问怎样实现.
加好友 
发短信
Post By：2019/11/15 20:16:00 [只看该作者]
