Naming classes is sometimes hard. What do you think name of the class should be?
I originally created the class to use as a cache but can see its may have other uses. Example code to use the class.
Dim cache = New NamePendingDictionary(Of String, Sample)
Dim value = cache("a", Function() New Sample())
And here is the class that needs a name.
''' <summary>
''' Enhancement of <see cref="System.Collections.Generic.
Dictionary"/>. See the Item property
''' for more details.
''' </summary>
''' <typeparam name="TKey">The type of the keys in the
dictionary.</typeparam>
''' <typeparam name="TValue">The type of the values in the
dictionary.</typeparam>
Public Class NamePendingDictionary(Of TKey, TValue)
Inherits Dictionary(Of TKey, TValue)
Delegate Function DefaultValue() As TValue
''' <summary>
''' Gets or sets the value associated with the specified key. If the specified key does not exist
''' then <paramref name="createDefaultValue"/> is invoked and added to the
dictionary. The created
''' value is then returned.
''' </summary>
''' <param name="key">The key of the value to get.</param>
''' <param name="createDefaultValue">
''' The delegate to invoke if <paramref name="key"/> does not exist in the
dictionary.
''' </param>
''' <exception cref="T:System.ArgumentNullException"><paramref name="key" /> is null.</exception>
Default Public Overloads ReadOnly Property Item(ByVal key As TKey, ByVal createDefaultValue As DefaultValue) As TValue
Get
Dim value As TValue
If createDefaultValue Is Nothing Then
Throw New ArgumentNullException("createValue")
End If
If Not Me.TryGetValue(key, value) Then
value = createDefaultValue.Invoke()
Me.Add(key, value)
End If
Return value
End Get
End Property
End Class
