以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助！急！窗口加照相功能  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17891)
--  作者：一帆风顺
--  发布时间：2012/3/28 9:48:00
--  求助！急！窗口加照相功能

窗口中加照相功能步骤:管理项目中选窗口管理—按增加、按设计—加button按钮—双击该按钮—代码编辑器中加入代码，即

 

Dim c As new camera
Dim r AS Row = Tables("总表")

c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
     c.Save(ProjectPath & "Attachments\\" &  r("编号") & ".jpg") ‘保存文件

     r("照片") = r("编号") & ".jpg”
End If

 

 


然后按确定—保存—应用。不知道错在哪儿死机。求助！拜托！