VB.net 中轮廓分析的代码错误

Question

我正在尝试将 emgu.cv 库用于 vb.net 中的轮廓函数。问题是我的 var 没有定义。这应该在我已经导入的 lib emgu.cv 下。

Dim borderPen As New Pen(Color.FromArgb(150, 0, 255, 0))
Dim processor As ImageProcessor

Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs)
    Dim borderPen As New Pen(Color.FromArgb(150, 0, 255, 0))

    If RadioButton1.Checked = True Then
        For Each contour As var In processor.contours
            If contour.Total > 1 Then
                e.Graphics.DrawLines(Pens.Red, contour.ToArray())
            End If
        Next
    End If

    SyncLock processor.foundTemplates
        For Each found As FoundTemplateDesc In processor.foundTemplates
            If found.template.name.EndsWith(".png") OrElse    found.template.name.EndsWith(".jpg") Then
                DrawAugmentedReality(found, e.Graphics)
                Continue For
            End If
        Next
    End SyncLock
End Sub

Private Sub DrawAugmentedReality(found As FoundTemplateDesc, gr As Graphics)
    Dim fileName As String = "C:\Users\pnasguna\Desktop\A56.jpg"
    Dim AugmentedRealityImages As New Dictionary(Of String, Image)()
    Dim img As Image = AugmentedRealityImages(fileName)
    Dim p As Point = found.sample.contour.SourceBoundingRect.Center()
    Dim state = gr.Save()
    gr.TranslateTransform(p.X, p.Y)
    gr.RotateTransform(CSng(180.0F * found.angle / Math.PI))
    gr.ScaleTransform(CSng(found.scale), CSng(found.scale))
    gr.DrawImage(img, New Point(-img.Width / 2, -img.Height / 2))
    gr.Restore(state)
End Sub

我无法编译，因为未定义 var。如何解决这个问题？

Answer 1

您收到 Type <typename> is not defined 错误，因为类型 var 未定义。您可以通过执行以下步骤之一来解决此问题：

• 删除 As var。

For Each contour In processor.contours

• 将 var 替换为正确的数据类型。

For Each contour As <THE_CORRECT_TYPE> In processor.contours

---

Emgu

查看source code为emgu（用C#编写），ImageProcessor.cs文件将显示contours的数据类型：

public List<Contour<Point>> contours;

翻译成vb.net：

Public contours As List(Of Contour(Of Point))

解决方案

因此，有了这些信息，就很容易选择正确的数据类型。

For Each contour As Contour(Of Point) In Me.processor.contours

注意：您应该始终将Option Strict 设置为On。