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)

注意保存的是控件内的显示效果，包含蓝色背景，如果有检测结果，也会一并保存

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