主题：用foxtable照相的代码

我的还是不能照相，如17楼与19楼的朋友的情况一样，我相信狐狸爸爸会很快搞定它的

要是能录像就更好了。

If FileSys.DirectoryExists("D:\My Documents\学生成绩\照片") Then '目录存在
Else
    FileSys.CreateDirectory("D:\My Documents\学生成绩\照片") '创建目录
End If

Dim c As new camera
c.capture() '开始照相
If c.image IsNot Nothing Then '照相成功
    c.Save("D:\My Documents\学生成绩\照片\abc.jpg") '保存文件
End If

运行外部照相编辑程序，在项目文件夹内新建如pic文件夹，PhotoEdit.exe放在其中。编辑的照片也保存在这里

Dim Proc As New Process '定义一个新的Process
Proc.File = ProjectPath & "pic\PhotoEdit.exe" '指定要打开的文件
Proc.Start()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:photoedit.rar

谢谢易服狐友，这下可以照相了，收藏学习！

谢谢。还要拜托您。

我要把数控1班学生照片打出来，怎么做。现在我只能把这个班学生信息及照片号打出来，怎么做才能让这个班学生照片同时钓出来

昭相的功能搞定没有，最好可以录像。

 

近期更新的foxtable，为了配合用户的需求，增加了照相功能。

在哪儿更新或下载

 

重新下载安装一次即可。

不行的，还是死机的。