日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

vb.net2019- 调用 opencv

發布時間:2025/3/12 编程问答 22 豆豆
生活随笔 收集整理的這篇文章主要介紹了 vb.net2019- 调用 opencv 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

有時你的代碼需要非托管的資源,如文件句柄、 COM 包裝器或 SQL 連接。 一個Using塊確保一個或多個此類資源的釋放你的代碼完成與之時。 這使它們可用于其他代碼使用。
托管的資源釋放由.NET Framework 垃圾回收器 (GC) 而無需您采取任何額外的編碼。 不需要Using托管資源的塊。 但是,仍可以使用Using塊以強制釋放托管資源而不是等待垃圾回收器。
一個Using塊都有三個部分: 獲取、 使用情況和可供使用。
獲取意味著創建變量并將其初始化,以便向系統資源,請參閱。 Using語句可以獲取一個或多個資源,也可以在進入塊之前獲取恰好一個資源,其提供給Using語句。 如果你提供resourceexpression,必須在將控制權傳遞給之前獲取資源Using語句。
使用情況意味著訪問資源并使用它們執行操作。 之間的語句Using和End Using表示資源的使用。
處置方法調用Dispose方法中的對象上resourcename。 這允許要明確終止其資源的對象。 End Using語句釋放的資源下Using塊的控件。
首先安裝

PM>Install-Package OpenCvSharp4.Windows -Version 4.0.1.20190326

然后,寫個簡單例子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的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。