- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 拍照尺寸问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58551)
-- 发布时间：2014/10/19 9:54:00
-- 拍照尺寸问题
用一下这段代码进行拍照，那拍照的时候那个取经尺寸能否进行长和宽的限制或者裁剪。 Dim c As new camera Dim dr As DataRow = Tables("会员表").Current.DataRow c.capture() \'开始照相 If c.image IsNot Nothing Then \'照相成功 c.Save(ProjectPath & "Attachments\\" & dr("会员姓名") & ".png") \'保存文件 dr("会员照片") = dr("会员姓名") & ".png" End If |
-- 发布时间：2014/10/19 9:59:00
--
可以
Dim c As new camera
Dim dr As DataRow = Tables("会员表").Current.DataRow
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
Dim bmp As new bitmap(c.image, 50, 50)
bmp.save(ProjectPath & "Attachments\\" & dr("会员姓名") & ".png")
bmp.Dispose
dr("会员照片") = dr("会员姓名") & ".png"
End If
-- 发布时间：2014/10/19 10:13:00
--
果然是OK
