vb.net2019- 调用 opencv
生活随笔
收集整理的這篇文章主要介紹了
vb.net2019- 调用 opencv
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
有時你的代碼需要非托管的資源,如文件句柄、 COM 包裝器或 SQL 連接。 一個Using塊確保一個或多個此類資源的釋放你的代碼完成與之時。 這使它們可用于其他代碼使用。
托管的資源釋放由.NET Framework 垃圾回收器 (GC) 而無需您采取任何額外的編碼。 不需要Using托管資源的塊。 但是,仍可以使用Using塊以強制釋放托管資源而不是等待垃圾回收器。
一個Using塊都有三個部分: 獲取、 使用情況和可供使用。
獲取意味著創建變量并將其初始化,以便向系統資源,請參閱。 Using語句可以獲取一個或多個資源,也可以在進入塊之前獲取恰好一個資源,其提供給Using語句。 如果你提供resourceexpression,必須在將控制權傳遞給之前獲取資源Using語句。
使用情況意味著訪問資源并使用它們執行操作。 之間的語句Using和End Using表示資源的使用。
處置方法調用Dispose方法中的對象上resourcename。 這允許要明確終止其資源的對象。 End Using語句釋放的資源下Using塊的控件。
首先安裝
然后,寫個簡單例子Canny邊緣檢測
Imports OpenCvSharpPublic Class Form1Private Sub Start(ByVal fileName As String)Using imgSrc As New Mat(fileName, ImreadModes.Color),imgGray As New Mat(imgSrc.Size, MatType.CV_8UC1),imgDst As Mat = imgSrc.Clone()Cv2.CvtColor(imgSrc, imgGray, ColorConversionCodes.BGR2GRAY, 0)Dim keypoints() = Cv2.FAST(imgGray, 50, True)For Each kp As KeyPoint In keypointsimgDst.Circle(kp.Pt, 3, Scalar.Red, -1, LineTypes.AntiAlias, 0)Next kpCv2.ImShow("FAST", imgDst)Cv2.WaitKey(0)Cv2.DestroyAllWindows()End UsingEnd SubPrivate Sub showPict(ByVal fileName As String)' Dim src As Mat = New Mat(fileName, ImreadModes.Grayscale)Dim src As Mat = Cv2.ImRead(fileName, ImreadModes.Grayscale)Dim dst As Mat = New Mat()Cv2.Canny(src, dst, 50, 200)Using (New Window("src image", src))Using (New Window("dst image", dst))Cv2.WaitKey()End UsingEnd UsingEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickOpenFileDialog1.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"Dim fResult = OpenFileDialog1.ShowDialog() '打開文件選擇框If fResult = DialogResult.OK ThenDim fileName As String = OpenFileDialog1.FileName '得到選擇的文件showPict(fileName)End IfEnd Sub End Class總結
以上是生活随笔為你收集整理的vb.net2019- 调用 opencv的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 搭建一个完整的微服务项目
- 下一篇: 百度地图API实现地图应用