vb.net Emgu.CV 旋转摄像头视频

Imports Emgu.CVImports Emgu.CV.StructureImports Emgu.CV.UtilPublic Class Form1Dim capturez As Capture = New CaptureDim imagez1 As Image(Of Bgr, Byte)Dim imagez2 As Image(Of Bgr, Byte)Dim rotation As IntegerPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tickimagez1 = capturez.RetrieveBgrFrameimagez2 = imagez1.Rotate(rotation, New Bgr(255, 255, 255))rotation = rotation + 2If rotation = 360 Thenrotation = 0End IfPictureBox1.Image = imagez2.ToBitmapEnd SubEnd Class