- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助能否曾加照相功能] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43177)
-- 发布时间：2013/12/1 16:12:00
-- [求助能否曾加照相功能]
能否添加个照相功能，相片名称以身份证号命名或以学校_班级_姓名命名，我刚接触狐表，请指教，本人是教师，制作此表目的减轻负担，请各位帮忙，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学籍文件.rar |
[此贴子已经被作者于2013-12-1 16:13:53编辑过]
-- 发布时间：2013/12/1 18:40:00
--
如果是摄像头照相，就搜索论坛，好像有人写过一个的
-- 发布时间：2013/12/1 19:20:00
--
foxtable有照相的功能。如下例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学籍文件.zip |
-- 发布时间：2013/12/1 20:42:00
--
怎么看不到呢？
-- 发布时间：2013/12/1 20:43:00
--
怎么操作呢，请教
-- 发布时间：2013/12/1 20:48:00
--
点击照片列单元格右边的按钮，开始照相。
[此贴子已经被作者于2013-12-1 20:48:39编辑过]
-- 发布时间：2016/11/19 11:18:00
--
怎么把单元格中的按钮事件代码转换为窗口按钮代码？
-- 发布时间：2016/11/19 11:23:00
--
Dim r As Row = Tables("学生信息").Current
Dim c As new camera
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
Dim name As String = ProjectPath & "Attachments\\" & r("身份证号") & Format(Date.now, "hhmmss") & ".jpg"
c.Save(name) \'保存文件
r("照片") += vbcrlf & name
End If