vb.net应用devexpress进行图像采集

1前期准备

1安装devexpress18.0盗版可用于vs2012和4.5框架
2安装完后devexpress并不会出现在工具栏中，右键所有窗体修复

3拖入如下插件，左边为cameracontrol右边为picturebox

4设计如下功能点一下左边camercontrol，右侧就会有点击时的快照，及将快照存入指点位置

2代码

Imports System.IO
Public Class Form1
    Public cameraImage As Image
    Private Sub CameraControl1_Click(sender As Object, e As EventArgs) Handles CameraControl1.Click
        cameraImage = Me.CameraControl1.TakeSnapshot()
        PictureBox1.Image = cameraImage
        Dim pathpic As String = "D:\\ScreenShot"
        Directory.CreateDirectory(pathpic)
        If Not Directory.Exists(pathpic) Then
            Directory.CreateDirectory(pathpic)
        Else
            Dim NG As String = Convert.ToString(Guid.NewGuid())
            cameraImage.Save(pathpic & "\" & NG & ".jpg")
        End If

    End Sub
End Class