Dim csVideoCaptureDevice As VideoCaptureDevice'声明一个相机csVideoCaptureDevice = VideoPlayer2.VideoSource'视频播放csVideoCaptureDevice.DisplayPropertyPage(IntPtr.Zero)'这是焦点
http://zip.nvp.com.tw/forum.php?mod=viewthread&tid=2758&extra=page%3D4 Dim statistics As ImageStatistics Dim mhistogram As AForge.Math.Histogram statistics = New ImageStatistics(img) mhist