内置拍照功能
Dim c As new camerac.capture() '开始照相If c.image IsNot Nothing Then '照相成功 c.image.Save("E:\后台操作系统\后台操作系统.jpg") '保存文件End If
调用摄像头例子
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=48460&skin=0
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=93741&skin=0
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41778&skin=0