主题：[分享]做了拍照的功能不知道有用否

相对路径是 ProjectPath & "CamCap" & ......

有自带的，你试一下……

Dim c As new camera
c.capture() '开始照相
If c.image IsNot Nothing Then '照相成功
    Dim size As New Size(50, 50)
    Dim img As New Bitmap(c.image, size)
    img.Save("d:\abc.jpg")
End If