VisionPro保存CogDisplay控件的显示内容

            Dim vppFile As String = Application.StartupPath + "test.vpp"
            Dim myToolGroup As CogToolGroup = CType(CogSerializer.LoadObjectFromFile(vppFile),CogToolGroup)
            Dim myToolBlock As CogToolBlock = myToolGroup.Tools.Item("CogToolBlock1")
            'Dim myAcqFifoTool As CogAcqFifoTool = myToolGroup.Tools.Item("CogAcqFifoTool1")' 没有相机
            Dim myImageFileTool As CogImageFileTool = myToolGroup.Tools.Item("CogImageFileTool1") ' 使用图片工具

            'myAcqFifoTool.Run() ' 相机
            myImageFileTool.Run() ' 图片
            myToolBlock.Run()

            ' 显示 图片+结果
            'CogRecordDisplay1.Image = myAcqFifoTool.OutputImage ' 相机
            CogRecordDisplay1.Image = myImageFileTool.OutputImage ' 图片
            CogRecordDisplay1.Record = myToolBlock.CreateLastRunRecord
            CogRecordDisplay1.Fit()

            '''''''''''''''''''''''''''''''' 保存控件当前实际显示结果 ''''''''''''''''''''''''''''''''''''
            CogRecordDisplay1.CreateContentBitmap(Display.CogDisplayContentBitmapConstants.Display).Save("test.png")

            ' 输出结果值
            Debug.WriteLine(">>>> X value : " + myToolBlock.Outputs.Item("Output_X").Value.ToString)
            Debug.WriteLine(">>>> Y value : " + myToolBlock.Outputs.Item("Output_Y").Value.ToString)

没找到保存图片和显示结果原图的方法。。。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!