Visual Basic

<br />
Invalid Operation Exception Was Unhandled<br />
<br />
An error occurred creating the form. See Exception.InnerException for details.  The error is: Object reference not set to an instance of an object.<br />

Imports System.ComponentModel
Imports Matrox.ActiveMIL
'''
<DefaultPropertyAttribute("Title")> _
Public Class ModelFinderProperties
    '''
    Private _MILGeometricFinder As AxMatrox.ActiveMIL.ModelFinder.AxMModelFinder = Nothing
    Private _ModelNum As Integer = 1

    Public Sub New(ByRef ModelFinder As AxMatrox.ActiveMIL.ModelFinder.AxMModelFinder, Optional ByVal ModelNum As Integer = 1)
        _MILGeometricFinder = ModelFinder
        _ModelNum = ModelNum
    End Sub

    <CategoryAttribute("Training Parameters"), _
       Browsable(True), _
       [ReadOnly](False), _
       BindableAttribute(False), _
       DefaultValueAttribute("(0.0,0.0)"), _
       DesignOnly(False), _
       DescriptionAttribute("The (0,0) Point of a found model.")> _
    Public Property ModelOrigin() As Point
        Get
            Return New Point(_MILGeometricFinder.Models.Item(_ModelNum).ReferenceX(), _
                              _MILGeometricFinder.Models.Item(_ModelNum).ReferenceY())
        End Get
        Set(ByVal Value As Point)
            _MILGeometricFinder.Models.Item(_ModelNum).ReferenceX = Value.X
            _MILGeometricFinder.Models.Item(_ModelNum).ReferenceY = Value.Y
        End Set

    End Property
    '''
    <CategoryAttribute("Search Parameters"), _
       Browsable(True), _
       [ReadOnly](False), _
       BindableAttribute(False), _
       DefaultValueAttribute("(0.0,0.0)"), _
       DesignOnly(False), _
   DescriptionAttribute("The starting and offset angle ranges to use when searching.")> _
   Public Property AngleRange() As RangeCls
        Get
            With _MILGeometricFinder.Models.Item(_ModelNum).Angle
                Return New RangeCls(.Value, .NegativeDelta, .PositiveDelta)
            End With
        End Get
        Set(ByVal newValue As RangeCls)
            With _MILGeometricFinder.Models.Item(_ModelNum).Angle
                .Value = newValue.Reference
                .NegativeDelta = newValue.NegativeDelta
                .PositiveDelta = newValue.PositiveDelta
            End With
        End Set
    End Property
End Class

Imports System.ComponentModel

<TypeConverter(GetType(RangeClsConverter))> _
Public Class RangeCls
    '''
    Private _Reference As Double
    Private _NegativeDelta As Double
    Private _PositiveDelta As Double

    '''
    Public Sub New(ByVal Reference As Double, ByRef NegativeDelta As Double, ByRef PositiveDelta As Double)
        _Reference = Reference
        _NegativeDelta = NegativeDelta
        _PositiveDelta = PositiveDelta
    End Sub
    '''
    Public Sub New()
        Me.new(0, 0, 0)
    End Sub

    <DescriptionAttribute("Set the reference value.")> _
       Public Property Reference() As Double
        Get
            Return _Reference
        End Get
        Set(ByVal Value As Double)
            _Reference = Value
        End Set
    End Property
    '''
    <DescriptionAttribute("Set the positive delta.")> _
       Public Property PositiveDelta() As Double
        Get
            Return _PositiveDelta
        End Get
        Set(ByVal Value As Double)
            _PositiveDelta = Value
        End Set
    End Property
    '''
    <DescriptionAttribute("Set the negative delta.")> _
   Public Property NegativeDelta() As Double
        Get
            Return _NegativeDelta
        End Get
        Set(ByVal Value As Double)
            _NegativeDelta = Value
        End Set
    End Property
End Class

Friend Class RangeClsConverter : Inherits ExpandableObjectConverter
    Public Overloads Overrides Function _
            CanConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, _
            ByVal destinationType As System.Type) As Boolean
        If (destinationType Is GetType(RangeCls)) Then
            Return True
        End If

        Return MyBase.CanConvertTo(context, destinationType)
    End Function

    Public Overloads Overrides Function _
            CanConvertFrom(ByVal context As System.ComponentModel.ITypeDescriptorContext, _
            ByVal sourceType As System.Type) As Boolean
        If (sourceType Is GetType(String)) Then
            Return True
        End If

        Return MyBase.CanConvertFrom(context, sourceType)
    End Function

    Public Overloads Overrides Function _
            ConvertFrom(ByVal context As System.ComponentModel.ITypeDescriptorContext, _
            ByVal culture As System.Globalization.CultureInfo, _
            ByVal value As Object) As Object

        If TypeOf value Is String Then
            Try
                Dim s As String = CType(value, String)
                Dim rangeParts(3) As String
                Dim _RangeCls As RangeCls = New RangeCls
                Dim delimiterIndex As Integer

                delimiterIndex = InStr(s, "[")
                rangeParts(0) = Left(s, delimiterIndex - 1)
                s = Mid(s, delimiterIndex + 1)

                delimiterIndex = InStr(s, ",")
                rangeParts(1) = Left(s, delimiterIndex - 1)
                s = Mid(s, delimiterIndex + 1)

                delimiterIndex = InStr(s, "]")
                rangeParts(2) = Left(s, delimiterIndex - 1)

                _RangeCls.Reference = Convert.ToDouble(rangeParts(0))
                _RangeCls.NegativeDelta = Convert.ToDouble(rangeParts(1))
                _RangeCls.PositiveDelta = Convert.ToDouble(rangeParts(2))

                Return _RangeCls
            Catch ex As Exception
                Throw New ArgumentException("Can not convert '" + _
                            value + "' to type RangeCls")
            End Try
        End If

        Return MyBase.ConvertFrom(context, culture, value)
    End Function

    Public Overloads Overrides Function _
            ConvertTo(ByVal context As _
            System.ComponentModel.ITypeDescriptorContext, _
            ByVal culture As System.Globalization.CultureInfo, _
            ByVal value As Object, ByVal _
            destinationType As System.Type) As Object

        If (destinationType Is GetType(System.String) AndAlso _
                TypeOf value Is RangeCls) Then

            Dim _RangeCls As RangeCls = CType(value, RangeCls)
            Return _RangeCls.Reference & " [" & _RangeCls.NegativeDelta & _
                                         ", " & _RangeCls.PositiveDelta & "]"

        End If

        Return MyBase.ConvertTo(context, culture, value, destinationType)
    End Function


End Class