主题：照相示例代碼

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