Welcome to the Lounge

Public Class DefaultOptionPanelDescriptor
    Implements IOptionPanelDescriptor
 
    Private _id As String = String.Empty
    Private _optionPanelDescriptors As List(Of IOptionPanelDescriptor) = Nothing
    Private _optionPanel As IOptionPanel = Nothing
 
    Public ReadOnly Property ID As String Implements IOptionPanelDescriptor.ID
        Get
            Return _id
        End Get
    End Property
 
    Public Property Label As String Implements IOptionPanelDescriptor.Label
 
    Public ReadOnly Property ChildOptionPanelDescriptors As IEnumerable(Of IOptionPanelDescriptor) Implements IOptionPanelDescriptor.ChildOptionPanelDescriptors
        Get
            Return _optionPanelDescriptors
        End Get
    End Property
 
    Private _addIn As AddIn
    Private _owner As Object
    Private _optionPanelPath As String
 
    Public ReadOnly Property OptionPanel As IOptionPanel Implements IOptionPanelDescriptor.OptionPanel
        Get
            If _optionPanelPath <> Nothing Then
                If _optionPanel Is Nothing Then
                    _optionPanel = CType(_addIn.CreateObject(_optionPanelPath), IOptionPanel)
                    If _optionPanel IsNot Nothing Then
                        _optionPanel.Owner = _owner
                    End If
                End If
                _optionPanelPath = Nothing
                _addIn = Nothing
            End If
            Return _optionPanel
        End Get
    End Property
 
    Public ReadOnly Property HasOptionPanel As Boolean Implements IOptionPanelDescriptor.HasOptionPanel
        Get
            Return _optionPanelPath <> Nothing
        End Get
    End Property
 
    Public Sub New(ByVal id As String, ByVal label As String)
        _id = id
        Me.Label = label
    End Sub
 
    Public Sub New(ByVal id As String, ByVal label As String, ByVal dialogPanelDescriptors As List(Of IOptionPanelDescriptor))
        Me.New(id, label)
        Me._optionPanelDescriptors = dialogPanelDescriptors
    End Sub
 
    Public Sub New(ByVal id As String, ByVal label As String, ByVal addIn As AddIn, ByVal owner As Object, ByVal optionPanelPath As String)
        Me.New(id, label)
        _addIn = addIn
        _owner = owner
        _optionPanelPath = optionPanelPath
    End Sub
 
End Class

NRefactory Said:

CONVERSION ERROR: Code could not be converted. Details:
 
-- line 16 col 12: "Get" expected
 
Please check for any errors in the original code and try again.

Bob Dole

The internet is a great way to get on the net.

2.0.82.7292 SP6a