主题：双击截图保存

If e.Col.name = "图片" Then

    Dim dr As DataRow = e.Row.DataRow

    If dr.IsNull ("区域名称") Or Dr.IsNull("立面编号")  Or Dr.IsNull("类别") Or Dr.IsNull("施工项目")  Then

        MessageBox.show("带 * 为必填","提示")

        e.cancel = True

    Else

        baseMainForm.WindowState= system.Windows.forms.FormWindowState.Minimized

        ClipBoard.Clear

        Dim proc As new Process

        proc.File = ApplicationPath & "/capture.exe"        

        proc.WaitForClose = True

        proc.Start()

        If ClipBoard.ContainsImage Then

            Dim img As Image

            img = ClipBoard.GetImage()

            Dim f As String =   e.Row("区域名称") & "\" & e.Row("立面编号") &"\" & e.Row("类别")&"\" & e.Row("施工项目")&".png"

            img.save(projectpath  &"\\Vce\toda$\数据文件\"& f)

            e.Row("图片") = f

        End If

    End If

End If