以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动拍照  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49868)
--  作者：nxqtxwz
--  发布时间：2014/4/25 9:30:00
--  自动拍照
我的表中有姓名、身份证号、照片等列，想在照片列通过照相机自动将相片以身份证号为文件名录入到照片列中，不知能不能实现，如何实现，请各位老师指导。
--  作者：Bin
--  发布时间：2014/4/25 9:33:00
--  
把以身份证命名的照片文件都放到 你设置的目录下.

在DataColChanged事件

if e.datacol.name="身份证号" then
   e.datarow("照片")=e.datarow("身份证号") & ".jpg"
end if
--  作者：有点甜
--  发布时间：2014/4/25 9:34:00
--  

 拍照？可以用代码

 

Dim c As new camera
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
    \'Dim size As New Size(50, 50)
    \'Dim img As New Bitmap(c.image, size)
    \'img.Save("d:\\abc.jpg")

     c.Image.Save("d:\\abc.jpg")
End If
--  作者：有点甜
--  发布时间：2014/4/25 9:37:00
--  

 如果要好一点的，可以参考

 

 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41778&skin=0