VisionPro保存CogDisplay控件的显示内容

概述Dim vppFile As String = Application.StartupPath + "\test.vpp" Dim myToolGroup As CogToolGroup = CType(CogSerializer.LoadObjectFromFile(vppFile), CogToolGroup) Dim myToolBlock A

            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)

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

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

总结

以上是内存溢出为你收集整理的VisionPro保存CogDisplay控件的显示内容全部内容，希望文章能够帮你解决VisionPro保存CogDisplay控件的显示内容所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。