Imports HalconDotNet
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim img As HImage = New HImage("rings_and_nuts")
Dim w, h As Integer
Dim rg, rg1 As HRegion
img.GetImageSize(w, h)
HWindowControl1.HalconWindow.SetPart(0, 0, h - 1, w - 1)
img.DispObj(HWindowControl1.HalconWindow)
rg = img.Threshold(0.0, 128.0)
rg = rg.ClipRegion(10, 10, h - 10, w - 10)
HWindowControl2.HalconWindow.SetPart(0, 0, h - 1, w - 1)
img.DispObj(HWindowControl2.HalconWindow)
HWindowControl2.HalconWindow.SetDraw("margin")
HWindowControl2.HalconWindow.SetColored(12)
rg.DispObj(HWindowControl2.HalconWindow)
HWindowControl2.HalconWindow.SetColor("red")
HWindowControl2.HalconWindow.SetTposition(10, 10)
HWindowControl2.HalconWindow.WriteString("Object Nums : " & rg.CountObj)
rg1 = rg.Connection
HWindowControl3.HalconWindow.SetPart(0, 0, h - 1, w - 1)
img.DispObj(HWindowControl3.HalconWindow)
HWindowControl3.HalconWindow.SetDraw("margin")
HWindowControl3.HalconWindow.SetColored(12)
rg1.DispObj(HWindowControl3.HalconWindow)
HWindowControl3.HalconWindow.SetColor("red")
HWindowControl3.HalconWindow.SetTposition(10, 10)
HWindowControl3.HalconWindow.WriteString("Object Nums : " & rg1.CountObj)
img.Dispose()
rg.Dispose()
rg.Dispose()
End Sub
End Class