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)注意保存的是控件内的显示效果,包含蓝色背景,如果有检测结果,也会一并保存
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。